PB我没用过,在VB里用ADO实现的思路是这样: 1、建立两个数据库连接con1,con2,分别连到两个不同的数据库; dim con1 as new adodb.connection dim con2 as new adodb.connection con1.open "oracle连接字符串" con2.open "dbf连接字符串"2、用con1打开Oracle的记录集,循环向下移动记录,每移到一条用con2执行插入操作。 rs.open "select * from oracletable" ,con1 while not rs.eof with con2 .BeginTrans .Execute "insert into dbftable values(" & rs(0) & ","& rs(1) &...& ")" .CommitTrans end with rs.movenext wend rs.close con1.close con2.close
听起来很不错,但我就是不知道在什么地方执行insert呀。
1、建立两个数据库连接con1,con2,分别连到两个不同的数据库;
dim con1 as new adodb.connection
dim con2 as new adodb.connection
con1.open "oracle连接字符串"
con2.open "dbf连接字符串"2、用con1打开Oracle的记录集,循环向下移动记录,每移到一条用con2执行插入操作。
rs.open "select * from oracletable" ,con1
while not rs.eof
with con2
.BeginTrans
.Execute "insert into dbftable values(" & rs(0) & ","& rs(1) &...& ")"
.CommitTrans
end with
rs.movenext
wend
rs.close
con1.close
con2.close