Question

vb 用ADOX创建表

Private Sub Form_Load()
Set cat = CreateObject("ADOX.Catalog")
cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;data source=" & App.Path & "\plan.mdb"
Set cat = Nothing
End Sub
引用了ado后，用这段代码可以创建数据库文件，但是如何继续创建表，怎么写代码？假如表的字段是：ID(自增类型)，内容（文本内容）。
只要能实现功能，越简单越好

Answer 1

Private Sub Command1_Click()
'使用ADOX创建表和自增字段
'首先引用Microsoft ADO Ext 2.8 For DDL Securit (msadox.dll)
Dim Tbl As Table
Dim Cat As ADOX.Catalog
Dim Col As Column
'Set Cat = New ADOX.Catalog
'Cat.Create "provider=Microsoft.Jet.OLEDB.4.0;data source=" & "C:\plan.mdb;" '创建数据库
Set Cat = New ADOX.Catalog
Cat.ActiveConnection = "provider=Microsoft.Jet.OLEDB.4.0;data source=" & "C:\plan.mdb;"
Set Tbl = New Table
Tbl.ParentCatalog = Cat
Tbl.Name = "Table1"
Set Col = New Column
Col.ParentCatalog = Cat
Col.Type = adInteger '必须先设置字段类型
Col.Name = "ID"
Col.Properties("Jet OLEDB:Allow Zero Length").Value = False
Col.Properties("AutoIncrement").Value = True
Col.Properties("Nullable").Value = True
Tbl.Columns.Append Col, adInteger, 0 '自增字段
Tbl.Columns.Append "内容", adVarWChar, 50 '使用adVarChar或adChar均出现“类型无效”的错误
Cat.Tables.Append Tbl
Set Cat = Nothing
Set Tbl = Nothing
End Sub

Answer 2

报QQ，线上联系，以前做个这个