有多个ACCESS文件分别是A1.mdb、A2.mdb、A3.mdb、A4.mdb....,它们里面都有多个相同的表格1、表格2、表格3、...,每个表格里的记录均不一样,现要把这些*.mdb里的同名表合并生成一个新数据库,请问有谁知道该如何在VB中代码实现?【合并的时候需要能选择*.mdb的路径(每次合并一个mdb也可以,合并多个mdb也可以)】

解决方案 »

  1.   

    1 新建一个 Access 库。2 逐个打开原有文件。遍历原文件中的表。如果新库中无此表,则导入;如果相同的表已经存在于新库,则导入记录。
      

  2.   

    谢谢Up
    现在已经做到这个程度了
    Private Sub cmdAddDB_Click()
    pstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\数据库名.mdb;Persist Security Info=False ;Jet OLEDB:Database Password='123456'"
    conn.Open pstr
    Dim sql As String
    sql = "insert into tb1(数据库表) select * from [" & DB1(需要合并的数据库路径) & "].tb1"
    conn.Execute sql
    End Sub但是一执行到conn.Open pstr处,就报错“要求对象”,前面报错“对象打开,不能操作”。请教高手指点一下啊!!!