从RecordSet中仅复制一行（VB6）

Question

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

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

我怎么能这样做？

谢谢你们

PS：我对VB6一无所知，我确信这是一个非常简单的问题......

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