| 用ADO建表ACCESS的表 |
|
| |
|
Option Explicit
Dim FileName As String
' 创建数据库以及表和字段
Private Sub Command1_Click()
Dim MyTable As TableDef
Dim MyField As Field
Dim MyDatabase As Database
Set MyDatabase = CreateDatabase(FileName, dbLangGeneral) ' 创建数据库
Set MyTable = MyDatabase.CreateTableDef(Text2.Text) ' 创建表
Set MyField = MyTable.CreateField(Text3.Text, dbText, 50) ' 创建字段
MyTable.Fields.Append MyField ' 将新创建的字段添加到表中
MyDatabase.TableDefs.Append MyTable ' 将表添加到数据库中
' 重复创建多个表和字段并添加到数据库中
Set MyTable = MyDatabase.CreateTableDef(Text4.Text)
Set MyField = MyTable.CreateField(Text5.Text, dbText, 50)
MyTable.Fields.Append MyField
Set MyField = MyTable.CreateField(Text6.Text, dbText, 50)
MyTable.Fields.Append MyField
MyDatabase.TableDefs.Append MyTable
MsgBox "完成创建数据库 " + FileName
End Sub
' 设置创建的数据库的位置和名称
Private Sub Command2_Click()
' 设置对话框
With CommonDialog1
.CancelError = True
.Filter = "数据库(*.mdb)|*.mdb"
.Flags = cdlOFNHideReadOnly
.ShowSave
If Err.Number = cdlCancel Then
Err.Clear
Exit Sub
End If
FileName = .FileName
Text1.Text = .FileTitle
End With
End Sub
' 退出程序
Private Sub Command3_Click()
End
End Sub
 |
频道声明：本频道的文章除部分特别声明禁止转载的专稿外，可以自由转载.但请务必注明出出处和原始作者 文章版权归本频道与文章作者所有.对于被频道转载文章的个人和网站,我们表示深深的谢意。
| 原始作者:佚名 |
录入时间:2006-9-11 |
| 信息来源:不详 |
投稿信箱:itqoo@126.com |
|
|
 |
|
|
|
| 教程录入：admin 责任编辑：admin |
|
上一个教程： ado.net建立虚拟数据集
下一个教程： 图片存放在字段的方法(IMAGE) |
| 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
用户登录 
新用户注册 
网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！） 