声明部分:dim withevents adoprimaryrs as recordset dim dbt as connection Set dbt = New Connection dbt.CursorLocation = adUseClient dbt.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=数据库地址;" set adoprimaryrs=new recordset adoprimaryrs.open"select * from record",dbt,adOpenStatic, adLockOptimistic 同样可以进行打开另外数据库 然后用SQL语言进行一条条复制添加
不过最好用ADO
不是ADO控件哦
dim dbt as connection
Set dbt = New Connection
dbt.CursorLocation = adUseClient
dbt.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=数据库地址;"
set adoprimaryrs=new recordset
adoprimaryrs.open"select * from record",dbt,adOpenStatic, adLockOptimistic
同样可以进行打开另外数据库
然后用SQL语言进行一条条复制添加