從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記錄集上。