ADO -如何复制表中的记录

Dim sourceConn As New ADODB.Connection
Dim destConn As New ADODB.Connection
Dim sourceRs As New ADODB.Recordset
Dim destRs As New ADODB.Recordset

' 连接到源数据库
sourceConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\path\to\source.mdb"
' 连接到目标数据库
destConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\path\to\destination.mdb"

' 执行查询语句，获取源表中的记录
sourceRs.Open "SELECT * FROM TableName", sourceConn, adOpenStatic, adLockOptimistic

' 将源表中的记录复制到目标表
destRs.Open "SELECT * FROM TableName", destConn, adOpenDynamic, adLockOptimistic
destRs.AddNew
For Each field In sourceRs.Fields
    destRs.Fields(field.Name).Value = sourceRs.Fields(field.Name).Value
Next
destRs.Update

' 清理资源
sourceRs.Close
destRs.Close
sourceConn.Close
destConn.Close