请问各位高手，怎样利用ADO以编程方式向MDB数据库添加字段和删除字段？其具体指令格式是怎样的？

[此贴子已经被作者于2004-09-22 09:37:45编辑过]

添加字段和删除字段?

___________________________

更改数据库结构？ADO不能更改MDB数据库的结构，要用ADOX。

请问版主ADOX是什么?怎样使用?怎样修改MDB数据库结构(如添加和删除字段)?急用!

引用ADO Ext Dim objCat As New ADOX.Catalog Dim objTbl As New ADOX.Table '打开数据库 objCat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb" '打开表 Set objTbl=objCat.Tables(表名) '添加字段 objTbl.Columns.Append 字段名,类型,长度 '删除字段 objTbl.Columns.Delete(字段)

[此贴子已经被作者于2004-09-23 09:16:58编辑过]

请教版主,为什么我的程序运行到如下划线语句时会发生错误：“实时错误‘3706’未找到提供程序，该程序可能未正确安装。”有此信息。如何处理（我已在引用对象中引用了ADOX）。

Private Sub Command1_Click()

Dim objcat As New ADOX.Catalog

Dim obutbl As New ADOX.Table

objcat.ActiveConnection = "PROVIDER=MICROSOFT.JET.0LEDB.4.0;DATA SOURCE=D:\PP\回收科.mdb"

Set obutbl = objcat.Tables(gzb) obutbl.Columns.Append 新增, C, 10 obutbl.Columns.Delete 职等 End Sub

[此贴子已经被作者于2004-09-23 11:56:57编辑过]

objcat.ActiveConnection = "PROVIDER=MICROSOFT.JET.0LEDB.4.0;DATA SOURCE=D:\PP\回收科.mdb"

================================================================

OLEDB 是字母“O”，不是数字“零”

另外： '打开表 Set objTbl=objCat.Tables(表名) '表名是一个字符串变量，如果你的表名叫"gzb"，这里就应该写Set objTbl=objCat.Tables("gzb") '添加字段 objTbl.Columns.Append 字段名,类型,长度 '同理，增加一个字段名为“ID”，类型为“文本”，长度为10的字段，应该写： objTbl.Columns.Append "ID",adVarWChar,10 '删除字段 objTbl.Columns.Delete(字段) '同上，删除字段“ID” objTbl.Columns.Delete "ID" 在ADO的帮助中也有ADOX的帮助，你自己看看吧。

[此贴子已经被作者于2004-09-23 16:03:58编辑过]

谢谢版主帮忙！弄清楚了，原来是引用ADOX时弄错了版本。

可以用adodb来实现，而且adodb操作MDB也支持sql语句，应该可以用SQL语句添加和删除字段。连接字符串不用自己打可以用ADODC来自动生成。

这个方法——“可以用adodb来实现，而且adodb操作MDB也支持sql语句，应该可以用SQL语句添加和删除字段。连接字符串不用自己打可以用ADODC来自动生成”。 能否给我举个范例？