〔VB〕如何从两个库中拷贝表？

来源：百度知道 编辑：UC知道 时间：2024/05/16 18:44:41
〔VB〕如何从两个库中拷贝表？
两个库：db1.mdb (有表：Table1)
db2.mdb (有表：Table2)
将Table1表导到db2.mdb中去！
love_u365s 的方法我较为喜欢，不过似乎下面的这句是不是要改一下？？
Private Sub Command1_Click()
cn.Execute ("insert into table1 (select * from " & db1路径 \ db1.mdb & ".Table1)")
End Sub
改为：
Private Sub Command1_Click()
cn.Execute ("insert into " & db2路径 \ db2.mdb & ".table2 (select * from " & db1路径 \ db1.mdb & ".Table1)")
End Sub

======================================================
我试过了，好像不行啊？？你有程序吗？给我发一份好吗？？
my E-mail:xuming_gnimux@sina.com
======================================================
db1路径,我换为我的路径，或是改为app.path,都不行啊？
大家快来帮忙看看！！！

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

最后自己解决了，想知道的朋友回个帖！！！
但是还是希望会的同志，给出你的解决方案！！感谢！！

哦,我写反了
没注意看题目

Dim cn As New Connection

Private Sub Command1_Click()

cn.Execute ("insert into table1 (select * from " & db1路径 \ db1.mdb & ".Table1)")
End Sub

Private Sub Form_Load()
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db1路径 & "\db1.mdb" & ";Persist Security Info=False"
cn.Open
End Sub

Private Sub Form_Unload(Cancel As Integer)
cn.Close
End Sub

如果是ACCESS的话.
那就用两个CONNECTION.

先取出第一个表中的数据.

再循环写入第二个表中.问题便解决了.

用两个 ado控件分别与两个数据库绑定.在另一个数据库中建一个与第一个数据库相同类型的表table3
ado1绑定第一个数据库,记录源table1
ado2绑定第二个数据库,记录源table3
'复制过程
ado1.refresh
on error resume next
ado1.recordset.movefirst
while not ado1.recordset.eof
' 添加纪录
ado2.recordset.addnew
'对应字段进行复制
ado2.recordset.fields(0)=ado1.recordset.fiels(0)
ado2