如何通过VB6给已经存在的Access数据库创建一个新表具体问题:
我用Adodc控件和DataGrid控件连接Access2003
数据库已经存在(newdata.mdb),我想向数据库中添加一个新的表,还有就是表的名字,表的字段什么的怎么定义?如果不行的话,那如何复制一个已经存在的表,即把newdata.mdb中的table1复制一份,命名为table2,哪位大哥知道的,给小弟讲讲,最好给个实例,谢谢!!

解决方案 »

  1.   

    复制相同的表结构 access里边可以这样写 sql
    sql="select * into table2 from table1"
    然后执行sql就可以
      

  2.   

    '工程/引用/Microsoft ADO Ext. 2.8 for DDL and Security
    '如下代码演示如何创建新表
        
    Sub CreateTable()
        '定义之前要引用,上面第一行
        Dim tbl As New Table
        Dim cat As New ADOX.Catalog
        '如果出错转到flag
        On Error GoTo flag
    '打开目录,注意Data和Source之间只能有一个空格,否则会出错,系统提示如下信息:
    '实时错误 '-2147467259 (80004005)':
    '找不到可安装的 ISAM
        cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path & "\newdata.mdb;"
        tbl.Name = "MyTable2"
        tbl.Columns.Append "Column1", adInteger
        tbl.Columns.Append "Column2", adInteger
        tbl.Columns.Append "Column3", adVarWChar, 50
        cat.Tables.Append tbl
        MsgBox "MyTable成功创建"
        Exit Sub
    flag:
        MsgBox "该表已经存在"
    End Sub
      
    '调用
    Private Sub Command1_Click()
        Call CreateTable
    End Sub