【IT168 服务器学院】
   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