请问各位高手,怎样利用ADO以编程方式向MDB数据库添加字段和删除字段?其具体指令格式是怎样的?
[此贴子已经被作者于2004-09-22 09:37:45编辑过]
引用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编辑过]