Скопируйте только 1 строку из RecordSet (VB6)

Question

У меня есть RecordSet в VB6, содержащий несколько строк. Мне нужно скопировать текущую (в цикле) строку и только эту, в другую запись (которая будет содержать только эту строку).

Исходный 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 на стороне клиента.