General information
Category:
Database DAO/RDO/ODBC/ADO
Title:
Return ADO Recordset from Function
I have a funcion in class module that returns an ADODB.Recordset. I understand the theory behind this. My problem is that I do not know how to return the recordset to the calling sub. Here is the inf:
Public Function GetRS(SQL As String) As ADODB.Recordset
'SET THE CONNECTION STRING PROPERTY TO A VALID CONNECTION STRING
'PASS AN SQL STATEMENT TO THIS FUNCTION
'THE RETURN VALUE WILL BE AN ADODB RECORDSET
Dim rs As New ADODB.Recordset
On Error GoTo LocalError
With rs
.ActiveConnection = ConnectionString
.CursorLocation = adUseClient
.LockType = adLockOptimistic
.CursorType = adOpenKeyset
.Source = SQL
.Open
Set .ActiveConnection = Nothing
End With
Set GetRS = rs
Set rs = Nothing
Exit Function
LocalError:
m_sLastError = Err.Number & " - " & Err.Description
Set rs = Nothing
End Function
What do I need to do in the calling function to return the recordset? I tried to declare a recordset and do something like:
rst = GetRS(strSQL)
This is not work. Said invalid use of property or something.
Anyone have some help?
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only