Sub creatmdb() '创建数据库
If Dir("d:\new.mdb") <> "" Then Kill "d:\new.mdb"
Dim mycat As New ADOX.Catalog
mycat.Create "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=d:\new.mdb"
MsgBox "创建数据库 e:\new.mdb 成功!"
End Sub
Sub createtable() '创建数据库的表
On Error Resume Next
Dim mycat As New ADOX.Catalog
Dim mytable As New ADOX.Table
mycat.ActiveConnection = "Provider=MicroSoft.Jet.OLEDB.3.51;Data Source=d:\new.MDB"
For i = 1 To 9
mytable.Name = "表" & i
mytable.Columns.Append "字段1", adDate
mytable.Columns.Append "字段2", adInteger
mytable.Columns.Append "字段3", adBoolean
mytable.Columns.Append "字段4", adVarChar
mycat.Tables.Append mytable
Set mytable = Nothing
Next
MsgBox "创建 表1----表9 成功!"
Set mycat.ActiveConnection = Nothing
End Sub
Private Sub Command1_Click()
creatmdb
createtable
End Sub
用DAO
先引用MSDAO3.51或是3.6
Public Sub CreateDB(ByVal strDNname As String)
Dim dbNew As DAO.Database
Dim tdfNew As DAO.TableDef
Dim idxNew As DAO.Index
Dim relNew As DAO.Relation
Dim rstUpload As DAO.Recordset
'Me.MousePointer = vbHourglass
Set dbNew = CreateDatabase(strDNname, dbLangGeneral)
With dbNew
Set tdfNew = .CreateTableDef("Table")
With tdfNew
.Fields.Append .CreateField("ID", dbText, 10)
.Fields.Append .CreateField("Reserve1", dbText, 16)
.Fields.Append .CreateField("Reserve2", dbText, 16)
.Fields.Append .CreateField("Reserve3", dbText, 16)
'还可以加更多
Set idxNew = .CreateIndex("Primary")
With idxNew
.Fields.Append .CreateField("ID")
.Primary = True
End With
.Indexes.Append idxNew
End With
.TableDefs.Append tdfNew
.Close
End With
End Sub