vb6 - 从 RecordSet (VB6) 中仅复制 1 行

Question

我在 VB6 中有一个包含多行的 RecordSet。我必须将当前（循环）行，并且只有这一行，复制到另一个 RecordSet（它将只包含该行）。

从 SQL 查询中检索源 RecordSet。目的地，只是一个供本地使用的容器。

我怎么能那样做？

Answer 1

几个有用的功能：

Public Function FilterRecordset(rsSrc As Recordset, sFilter As String) As Recordset
    Dim rsClone As Recordset

    Set rsClone = rsSrc.Clone
    rsClone.Filter = sFilter
    Set FilterRecordset = New Recordset
    Set FilterRecordset.DataSource = rsClone
End Function

Public Function CloneRecordset(rsSrc As Recordset) As Recordset
    With New PropertyBag
        .WriteProperty "rs", rsSrc, Nothing
        Set CloneRecordset = .ReadProperty("rs", Nothing)
    End With
End Function

这些在客户端 ADO 记录集上效果最好。