跨数据库复制表

Question

一个数据库a.mdb,密码a,其中有一个表tbla一个数据库b.mdb,密码bvb中如何复制tbla到b.mdb

Answer 1

建立两个连接分别连接a.mdb与b.mdb
从a中读出数据到数据集中，再把数据集中的记录导入b中
与操作一个表的写法一样

Answer 2

可以先把有数据的库生成一个sql脚本（只要数据库结构确定，它就不用改变），拷贝数据前现执行该sql脚本文件，就可以保证两个库的结构完全一致，然后再用
dim conn....
dim conn1...
dim rs
conn...=""
conn.open
rs.open "",conn,1,1
while not rs.bof and not rs.eof
conn1.excute ("insert into b ..............")
rs.movenext
wend
就可以啦！

Answer 3

A：如果你要用程序来处理的话，步骤如下
1：检测数据库B中是否有TABL表，如果没有就建表，CREATE TABLE 
2：在表存在的情况下，2个ADO连接，从A中查处理记录集，逐条写入到B中B：如果不用代码来处理，可以用ACCESS的数据导入导出向导来操作

Answer 4

试试：
Dim cn As ADODB.ConnectionSet cn = New ADODB.Connectioncn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/b.mdb;Jet OLEDB:Database Password=b"
cn.Execute "Select * Into tbla From [Jet OLEDB:Database Password=a;Database=a.mdb].tbla"

Answer 5

试了一下，显示“找不到可安装的ISAM”
这样修改测试通过了Private Sub Command1_Click()
    Dim cn As ADODB.Connection
    
    Set cn = New ADODB.Connection
    
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\b.mdb;Jet OLEDB:Database Password=b"
    cn.Execute "Select * Into [tbla] From [;database=" & App.Path & "\a.mdb;pwd=a].tbla"    cn.Close
    Set cn = NothingEnd Sub

Answer 6

用ADO连接a.mdb,执行如下SQL:
select * into [c:\b.mdb;pwd=b].tb from tbla

Answer 7

如果用ADO连接b.mdb,就执行如下SQL: 
select * into tb from [c:\a.mdb;pwd=a].tbla

Answer 8

感谢，正是这句：
cn.Execute "Select * Into [tbla] From [;database=" & App.Path & "\a.mdb;pwd=a].tbla"
加分，结贴