RecordSet (VB6)에서 한 행만 복사하십시오.

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 레코드 집합에서 최상