给你个思路,
--------------------------------------------------------------单笔插入,
1)打开两个数据库连接gcndata,conn分别连接到两个不同的数据库
2)用记录集rs.Open sql,gcndata,adOpenKeyset ,adLockReadOnly
取出数据,其中sql是你的查询语句
3)然后用另外一个记录集hzrs打开另外一个库
hzrs.Open sql,conn,adOpenKeyset ,adLockReadOnly
这里sql中体现的是你要操作的表
4)执行如下语句
While Not rs.EOF
HzRs.AddNew
HzRs!feild1 = rs!feild1
......
HzRs!feildn = rs!feildn
HzRs.Update
HzRs.MoveNext
Wend
----------------------------------------------------------------批量操作
1)建立一个临时表,先把A库中提取出来的数据批量插入临时表
2)把临时表的数据批量插入B库
3)清空临时表并删除