Opening recordset based on stored procedure

misterqj · March 17th, 2005, 07:38 AM

I have a query in my Access project called qryFName that I want to use as the source for a recordset. It is a very simple query right now, because I wanted to make sure this would work. When I run this code, I get an empty recordset back. I appreciate any insights into what is happening.

Here is the code I am using:

Code:

Dim rs As New ADODB.Recordset
Dim cnn As New ADODB.Connection
Dim rsCom As New ADODB.Command

cnn = CurrentProject.Connection
cnn.Open

rsCom.CommandText = "qryFName"
rsCom.CommandType = adCmdStoredProc
rsCom.ActiveConnection = cnn
Set rs = rsCom.Execute
If rs.EOF And rs.BOF Then
    MsgBox ("No Records Dude")
End If
rs.close
cnn.Close
Set rsCom = Nothing

ru1 · March 17th, 2005, 05:07 PM

Try this one out and see if it helps:

Dim db As Database
Dim rec As Recordset
Dim stDocName As String

Set db = CurrentDb()

Set rec = db.OpenRecordset("qryFName", dbOpenDynaset)
If Not rec.EOF Then
msgbox("Records Dude")
Else
msgbox("No Records Dude")
End If

misterqj · March 17th, 2005, 10:09 PM

DAO handles this no problem, but I am trying to do all of my new projects in ADO. Is this a weakness in ADO, or am I missing something in my understanding?

Thanks for the idea.

misterqj