Question

如何用VB同时打开两个SQL数据库

我想用VB把数据库的数据移出到另一个数据库
求助，谢谢GGJJ

Answer 1

给个范例你：
dim conn
dim rs1
dim rs2

set conn = new adodb.connection
conn.open "连接字符串"

set rs1 = conn.execute("select * from 表1")
set rs2 = conn.execute("select * from 表2")

while not rs1.eof
rs2.AddNew
rs2(1).value = rs1(1).value
rs2(2).value = rs1(2).value
.
.
.
rs2.Update
rs1.MoveNext
wend

rs1.Close
rs2.Close
conn.Close

set rs1 = nothing
set rs2 = nothing
set conn = nothing

Answer 2

:其实，直接用数据库用导出操作即可。用VB可先打开两个数据库，准备好目的存数据的表后，再打开数据源的表通过一个结果集，将表传到目的表中。