将一个记录集复制到另一个记录集

Question

由于我收到了如此好的和快速的解决方案来解决我的问题，我将再次尝试从您那里获得一些帮助：

我打开了两个记录集。

 Set cmd1.ActiveConnection = cn1
 cmd1.CommandText = "SELECT * FROM mov Where [Date] >= #" & DateA & "#;"
 Set RSold = cmd1.Execute

 Set cmd2.ActiveConnection = cn2
 cmd2.CommandText = "SELECT * FROM mov"
 Set RSnew = cmd2.Execute

（我只想保存文件的选定记录。）

我知道如何逐条记录复制，但是有没有“捷径”可以更快地完成？

谢谢

Answer 1

尝试这个：

Dim i As Long
Do While Not RSold.EOF
    ' You can place if condition here
    RSNew.AddNew
    For i = 0 To RSold.Fields.Count - 1
        RSNew.Fields(RSold.Fields(i).Name) = RSold.Fields(i).Value
    Next i
    RSNew.Update
    RSold.MoveNext
Loop

这会将记录从 RSold 复制到 RSnew 记录集