Скопировать только 1 строку из RecordSet (VB6) - PullRequest
Новая
       20

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

0 голосов
/ 15 июля 2009

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

Исходный RecordSet извлекается из запроса SQL. Пункт назначения - это только контейнер для локального использования.

Как я мог это сделать?

Спасибо, ребята

PS: я абсолютно ничего не знаю о VB6, я уверен, что это очень простой вопрос ...

1 Ответ

1 голос
/ 15 июля 2009

Пара полезных функций: 

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.

...