怎样用ADO对象对一个表动态的添加一个字段? 我的一个程序要升级,数据库中有一个表要加一个字段。我想做一个升级程序运行以后就把要添加的字段添加到对应的表中!请问怎么实现?给段代码!谢谢一定给分! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 cnn.execute "ALTER TABLE doc_exa ADD column_b VARCHAR(20) NULL" 我说的是将字段添加到ACCESS数据库的表中! 此示例在员工表中增加 Money 数据类型的一个工资字段。Sub AlterTableX1() Dim dbs As Database ' 在您的计算机中修改此行使其正确指到 Northwind 的路径。 Set dbs = OpenDatabase("Northwind.mdb") '添加工资字段至员工表中, '并且设置为 Currency 数据类型。 dbs.Execute "ALTER TABLE Employees " _ & "ADD COLUMN Salary CURRENCY;" dbs.CloseEnd Sub 另外:注意 对于非微软数据库, Microsoft Jet 数据库引擎 不支持ALTER TABLE, 或 数据定义语言 (DDL) 语句的使用。而使用 DAO创建方法。 我的数据库带密码!怎么嵌进程序?如果用DAO怎么解决呢? 有关webbrowser取色对比问题 救急!!为什么只显示公式文本,不显示公式计算的结果 求高手一个问题..希望给个详细的解释(代码)谢谢了阿 如何知道数据集中当前记录的位置? 如何控制软件的限时问题,怎么通过一个简单软件进行延时?与注册表有什么关系吗? 谁有办法在WIN2000的锁定状态下用代码关机? 很菜的问题,但是很急 如何将文本中的已格式化的数据导入到oracle数据库???给高分!!! 菜鸟求救treeview问题 怎么用install shield,怎么将所需的文件都包含在里边? 关于文本框中的右键菜单,在线等待.... 棘手的问题
Dim dbs As Database
' 在您的计算机中修改此行使其正确指到 Northwind 的路径。 Set dbs = OpenDatabase("Northwind.mdb") '添加工资字段至员工表中, '并且设置为 Currency 数据类型。 dbs.Execute "ALTER TABLE Employees " _ & "ADD COLUMN Salary CURRENCY;"
dbs.Close
End Sub
注意 对于非微软数据库, Microsoft Jet 数据库引擎 不支持ALTER TABLE, 或 数据定义语言 (DDL) 语句的使用。而使用 DAO创建方法。