Как из класса вернуть набор записей?

[fedoseev]

К примеру создал я класс, получил значения от формы такие как строка соединения, SQL запрос... сформировал набор записей... а как грамотно передать из класса набор записей?

Пример:
В классе записано:

Public Property Get Test() As Variant
Test = rs
End Property

А в форме вызываю:

Dim objBase As RecordsBase
Set objBase = New RecordsBase

Dim rs2 As Variant
rs2 = objBase.Test

Получаю такую ошибку:
Wrong number of arguments or invalid property assignment 450

Причем тоже самое делаю с текстовой строкой, то все ОК!

[skiperski]

RecordSet это объект, потому присваивать его надо оператором Set.

Код: Выделить всё

Public Property Get Test() As Variant
    Set Test = rs
End Property

...

Set rs2 = objBase.Test

И зачем делать Variant, если тип известен?

[fedoseev]

Спасибо ДРУГ!!! Я все понял...