Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=SQLOLEDB;Data Source=" & server & _
";Initial Catalog=" & dataName & _
";User Id=" & user & _
";Password=" & pwd & ";"

conn.Open

'数据库打开成功

Set cmd = New ADODB.Command
cmd.ActiveConnection = coon
cmd.CommandType = adCmdText
cmd.CommandText = "select fempid,fintime,finname,fouttime,foutname,fmanual from colliertrack_inout"

Set cmd.ActiveConnection = conn
Set rst = cmd.Execute

'查询完成


'打开另一个数据库

Set connh = New ADODB.Connection
connh.ConnectionString = "Provider=SQLOLEDB;Data Source=" & serverh & _
";Initial Catalog=" & dataNameh & _
";User Id=" & userh & _
";Password=" & pwdh & ";"
connh.Open

求助,将select的数据插入到第二个数据库的代码 该怎么编写啊 ,,谢谢了

在执行过程中会提示 对象名 '#person_swap_info' 无效．　　问题能是出在哪了呢？？？