vb6 - 将一个 Recordset 复制到另一个

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 记录集