在vb中用代碼應該很簡單的呀,你沒試過? dim cnnsql as new adodb.connection dim cnnacc as new adodb.connection dim rstsql as new aoddb.recordset dim rstacc as new adodb.recordset cnnsql.open "...." cnnacc.open "...." rstsql.open "....",cnnsql,adopenforwardonly rstacc.open "....",cnnacc,adopendymentic,adlockoptimistic do while not rstsql.eof rstacc(0)=rstsql(0) ..... rstsql.movenext loop rstacc.update adaffectall rstacc.close rstsql.close cnnsql.close cnnacc.close
dim cnnsql as new adodb.connection
dim cnnacc as new adodb.connection
dim rstsql as new aoddb.recordset
dim rstacc as new adodb.recordset cnnsql.open "...."
cnnacc.open "...."
rstsql.open "....",cnnsql,adopenforwardonly
rstacc.open "....",cnnacc,adopendymentic,adlockoptimistic
do while not rstsql.eof
rstacc(0)=rstsql(0)
.....
rstsql.movenext
loop
rstacc.update adaffectall
rstacc.close
rstsql.close
cnnsql.close
cnnacc.close