Как пройтись по записям через Property get/let/set - VB
Формулировка задачи:
Привет всем!
как пройтись по записям через Property get/let/set? вот такой код в dll-ке:
Public rec As ADODB.Recordset
Public Property Get WP() As Variant
WP = rec![w]
End Property
Public Property Let WP(ByVal vNewValue As Variant)
WP = vNewValue
End Property
где w - столбец в таблице и там много записей
вышеуказанный код возвращает только 1-ю запись в столбце w , а мне нужны все записи в столбце.
вызывается эта процедура в ехе-шнике:
Public r as class1
dim s as string
s = r.w
а как вытащить все записи?
как пройтись по записям через Property get/let/set? вот такой код в dll-ке:
Public rec As ADODB.Recordset
Public Property Get WP() As Variant
WP = rec![w]
End Property
Public Property Let WP(ByVal vNewValue As Variant)
WP = vNewValue
End Property
где w - столбец в таблице и там много записей
вышеуказанный код возвращает только 1-ю запись в столбце w , а мне нужны все записи в столбце.
вызывается эта процедура в ехе-шнике:
Public r as class1
dim s as string
s = r.w
а как вытащить все записи?
Решение задачи: «Как пройтись по записям через Property get/let/set»
textual
Листинг программы
<font color="blue">Public</font> <font color="blue">Sub</font> MyMoveNext() rec.MoveNext <font color="blue">End</font> <font color="blue">Sub</font> <font color="blue">Public</font> <font color="blue">Property</font> <font color="blue">Get</font> MyEOF () <font color="blue">As</font> Boolean MyEOF = rec.EOF <font color="blue">End</font> <font color="blue">Property</font>