专家坐堂-foxtable中用ADOX创建表相关用法代码和部分资料Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

-------------------------------创建数据库同时创建表---------------------------------

Dim Ca,tb

Ca = CreateObject("ADOX.Catalog")

Tb = CreateObject("ADOX.Table")

Ca.Create ("Provider= Microsoft.Jet.OLEDB.4.0; Data Source=" & "C:\\data.mdb")

Tb.ParentCatalog = Ca

Tb.Name = "Article"

Tb.Columns.Append("ID",3) \'添加一个长整型数字字段

Tb.Columns("ID").Properties("AutoIncrement") = True \'设为自动编号

Tb.Columns.Append("Title", 202, 255) \'添加一个文本字段,长度为255

Tb.Columns.Append("Class",3)

Tb.Columns("Class").Properties("default") = 0 \'将默认值设为0

Tb.Columns.Append("Time", 7) \'添加一个时间字段

Tb.Columns("Time").Properties("default") = "Now()"

Tb.Columns.Append("Info", 203) \'添加一个备注字段

Ca.Tables.Append(Tb)

Tb = Nothing

Ca = Nothing

MessageBox.show("操作成功!")

---------------------------------------仅创建表------------------------------------------------

Dim Ca,tb,conn

Ca = CreateObject("ADOX.Catalog")

Tb = CreateObject("ADOX.Table")

c & "C:\\data.mdb"

Ca.ActiveConnection = conn

Tb.ParentCatalog = Ca

Tb.Name = "Article1"

Tb.Columns.Append("TypeAs", 202, 255) \'添加一个文本字段

Tb.Columns("TypeAs").Properties("Nullable") = True \'使这个文本字段允许存在Null值

Ca.Tables.Append(Tb)

Tb = Nothing

Ca = Nothing

MessageBox.show("操作成功!")

------------------------------------------追加字段-----------------------------------------

Dim Ca,tb,conn

Ca = CreateObject("ADOX.Catalog")

c & "C:\\data.mdb"

Ca.ActiveConnection = conn

Tb = ca.Tables("Article2")

Tb.Columns.Append("admin", 202, 255)

Tb = Nothing

Ca = Nothing

MessageBox.show("操作成功!")