-------------------------------创建数据库同时创建表---------------------------------
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("操作成功!")
加好友 
发短信
Post By：2011/11/15 8:13:00 [只看该作者]
