We help IT Professionals succeed at work.
Get Started

recordcount = -1

489 Views
Last Modified: 2012-06-27
Why does my recordcount from my record set return the value -1

I can walk through the records and the fields are populated, but Why can't I get the recordcount ?

Thanks

Dim oConn As ADODB.Connection
    Dim oRec As ADODB.Recordset
    Dim oSqlCmd As ADODB.Command
    Dim sConn As String, sCmd As String
    Dim lType As Long, lAlertCount As Long
    Dim I As Long
    Dim J As Long
 
    Set oConn = New ADODB.Connection
    sConn = "Driver={SQL Server};" & _
           "Server=" & SrvIP & ";" & _
           "Database=MyDB;" & _
           "Uid=ID;" & _
           "Pwd=PW"
 
    oConn.Open (sConn)
    
    Dim oCmd As New ADODB.Command  ' Create a new SqlCommand
    oCmd.ActiveConnection = oConn
    
    oCmd.CommandText = "Select ... From ... Where ..." 
        
    Set oRec = oCmd.Execute
    
Msgbox orec.RecordCount
 
    If Not oRec.EOF And Not oRec.BOF Then
        oRec.MoveFirst
        Do Until oRec.EOF
            I = I + 1
            
	'Walk through the records ...
    
            oRec.MoveNext
        Loop
    End If
 
    oConn.Close
    Set oConn = Nothing
    Set oRec = Nothing

Open in new window

Comment
Watch Question
Commented:
This problem has been solved!
Unlock 1 Answer and 6 Comments.
See Answer
Why Experts Exchange?

Experts Exchange always has the answer, or at the least points me in the correct direction! It is like having another employee that is extremely experienced.

Jim Murphy
Programmer at Smart IT Solutions

When asked, what has been your best career decision?

Deciding to stick with EE.

Mohamed Asif
Technical Department Head

Being involved with EE helped me to grow personally and professionally.

Carl Webster
CTP, Sr Infrastructure Consultant
Ask ANY Question

Connect with Certified Experts to gain insight and support on specific technology challenges including:

  • Troubleshooting
  • Research
  • Professional Opinions
Did You Know?

We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE