如何通过类方法返回recordset?

Question

在类中写入
Public Function GetRst() As Recordset
GetRst = DataRst////出错
End Function

Answer 1

来晚了，但可以补充一下，因为Recordset是对象，所以在vb中对于对象的赋值操作需要用set关键字

Answer 2

不行....我在类里写的
Dim DataRst As ADODB.Recordset
Public Function GetRst() As Recordset
GetRst = DataRst////出错
End Function
Private Sub Class_Initialize()
   Set DataRst = New ADODB.Recordset
end sub
Public Function ExecuteQuery(ByVal Query As String) As Boolean
   Set DataRst = SqlCom.Execute ///////////在这里这样写的,应该正常,我通过GetRst函数要返回DataRst
end function
说type mismath错误
end function

Answer 3

改定义试试(既然DataRst是ADODB.recordset,getrst也应该是)
Public Function GetRst() As new ADODB.Recordset
GetRst = DataRst////出错
End Function

Answer 4

public function GetRst() as new ADODB.Recordset 说new语句有错,后改成
as ADODB.Recordset正常可是在调用部分.
Set DataGrid1.DataSource = AstCls.GetRst()//出错,说
Run-tim error '7004'
The rowset is not bookable