我的一个程序要升级,数据库中有一个表要加一个字段。我想做一个升级程序运行以后就把要添加的字段添加到对应的表中!请问怎么实现?给段代码!谢谢一定给分!

解决方案 »

  1.   

    cnn.execute "ALTER TABLE doc_exa ADD column_b VARCHAR(20) NULL"
      

  2.   

    我说的是将字段添加到ACCESS数据库的表中!
      

  3.   

    此示例在员工表中增加 Money 数据类型的一个工资字段。Sub AlterTableX1()
        Dim dbs As Database
        ' 在您的计算机中修改此行使其正确指到 Northwind 的路径。    Set dbs = OpenDatabase("Northwind.mdb")    '添加工资字段至员工表中,    '并且设置为 Currency 数据类型。    dbs.Execute "ALTER TABLE Employees " _        & "ADD COLUMN Salary CURRENCY;"
        dbs.Close
    End Sub
      

  4.   

    另外:
    注意 对于非微软数据库, Microsoft Jet 数据库引擎 不支持ALTER TABLE, 或 数据定义语言 (DDL) 语句的使用。而使用 DAO创建方法。
      

  5.   

    我的数据库带密码!怎么嵌进程序?如果用DAO怎么解决呢?