用ado连接access，如何将一个access文件的表全部复制到另一个access文件中？

Question

用ado连接access，如何将第一个access文件的库表（包括数据）复制到第二个access文件中，第二个access文件原有的数据要保留（同名的表则覆盖）。怎么做比较快？

Answer 1

'参考：
'下面的代码是把C:\test.mdb里table1的数据导出到C:\test1.mdb的table1去
'引用Microsoft ActiveX Data Objects 2.X Library
Private Sub Form_Load()
    Dim cn As New ADODB.Connection
    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\test.mdb;Persist Security Info=False"
    cn.CursorLocation = adUseClient
    cn.Open     
    cn.Execute("INSERT INTO [C:\test1.mdb].table1 SELECT * From table1 ") '在原有的表里插入数据
    'cn.Execute ("SELECT * INTO [C:\test1.mdb].tabl  From table1 ") '创建新表并插入数据
    cn.Close
    Set cn = Nothing
End Sub