神马品牌网加拿大东部七日游:VB 里如何实现动态创建、删除ACCESS数据库(不用sql实现)
来源：百度文库 编辑：神马品牌网 时间：2024/05/03 20:32:57
各位大侠，偶用vb连接一个access数据库，想进行动态添加字段，可是怎么也没能实现！请求帮助！因为偶没学过sql，最好换个方法实现！！多谢了！！
使用ADOX可以实现你的要求，使用前需要先在工程中引用该对象库。
下面的代码演示如何创建新表，其中有对字段（Column）的操作。可以用Columns对象的Append方法添加新字段，使用其Delete方法删除字段。
Sub CreateTable()
Dim tbl As New Table
Dim cat As New ADOX.Catalog
cat.ActiveConnection = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=c:\Program Files\Microsoft Office\" & _
"Office\Samples\Northwind.mdb;"
tbl.Name = "MyTable"
tbl.Columns.Append "Column1", adInteger
tbl.Columns.Append "Column2", adInteger
tbl.Columns.Append "Column3", adVarWChar, 50
cat.Tables.Append tbl
'释放对象
End Sub