求教各位前辈！记录集能否作为类属性？因该怎么做？

Question

  求教各位前辈！记录集能否作为类属性？因该怎么做？
偶在用类生成器的时候发现属性定义类型里没有 
aodob.recordset这种数据类型！

Answer 1

aodob.recordset可以作为参数但是还没有使用它做过属性,
但是我想应该可以!!

Answer 2

...问题是属性定义没有aodob.recordset
这个类型啊

Answer 3

Public Property Get 测试() As ADODB.Recordset
    Dim rs As New ADODB.Recordset
    rs.Open sql, cnns, adOpenForwardOnly, adLockReadOnly
    Set 测试 = rs
    
End PropertyPublic Property Let 测试(ByVal vNewValue As ADODB.Recordset)
    
End Property

Answer 4

ymize(不知所。云) 你也用类生成器？自己写的吗？

Answer 5

可以的类模块
Dim rs As New ADODB.Recordset
Public Property Get MyProperty() As ADODB.Recordset
    MyProperty = rs
End PropertyPublic Property Let MyProperty(ByRef vNewRecordset As ADODB.Recordset)
    Set rs = vNewRecordset
End Property窗体
Private Sub Command1_Click()
    Dim rs As New ADODB.Recordset
    Dim myobj As New Class1
    myobj.MyProperty = rs
End Sub编译通过!
msn:[email protected]

Answer 6

另
hewei2003()兄！
你直接把rs赋给myobj.MyProperty ？
可以不用set吗？

Answer 7

let 不行的给对象付值必须用SetPublic property Set Recordset( oRS as object)

Answer 8

你要使用ADODB这个类，必须要引用它对应的库文件。
在菜单的 工程--》引用，在Micrsoft ActiveX Data Objects 2.0 Labrary前打钩
或是 Micrsoft ActiveX Data Objects 2.1 Labrary、Micrsoft ActiveX Data Objects 2.5 Labrary、Micrsoft ActiveX Data Objects 2.6 Labrary.....
版本越高越好。

Answer 9

给对象付值必须用SetPublic property Set Recordset( oRS as object)

Answer 10

偶当然引用了哦！
偶说的是在类生成器中定义属性的时候
数据类型选择中没有adodb.recordset
这些类型