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=e:\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
再来一个带主键的例子:
Dim yhCat As ADOX.Catalog
Dim yhTbl As ADOX.Table
Dim yhKey As ADOX.Key
Dim yhCol As ADOX.Column
Set yhCat = New ADOX.Catalog
Set P_Cnn = New ADODB.Connection
Set yhTbl = New ADOX.Table
Set P_Rs = New ADODB.Recordset
yhSql = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" + txtPath.Text + ";Jet OLEDB:Database Password=young_huge@263.net;"
P_Cnn.Open yhSql
Set yhCat.ActiveConnection = P_Cnn