RecordSet（VB6）から1行しかコピーしない

Question

複数の行を含むVB6でRecordSetを使用しています。私は現在の（ループ内の）行だけをコピーしなければならず、この行だけを別のRecordSet（その行のみを含む）にコピーする必要があります。

ソースレコードセットは、SQLクエリから取得されます。宛先は、ローカルで使用するためのコンテナです。

どうすればいいですか？

みんなありがとう

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レコードセットで最適です。