PRB: RDO Rowcount Returns Zero For Large SQL Server Recordsets (283845)

MORE INFORMATION

Steps to Reproduce Behavior

1. Start a new Standard EXE project in Visual Basic.
2. On the Project menu, click References, and then select the Microsoft Remote Data Object 2.0 checkbox.
3. Add a command button to the default form, Form1.
4. Copy and paste the following code into the command button's Click event handler:

     Dim cn As rdoConnection
     Dim rs As rdoResultset
     
     Set cn = New rdoConnection
     
     With cn
       .CursorDriver = rdUseServer
       .Connect = "SERVER=myserver;UID=userid;PWD=password;" & _
                  "DRIVER={SQL Server};DATABASE=Northwind;"
       .EstablishConnection
     End With
     
     SQL = "SELECT * FROM ORDERS"
     
     Set rs = cn.OpenResultset(SQL, rdOpenKeyset, rdConcurReadOnly, rdExecDirect)
   
     MsgBox rs.RowCount
   
     rs.Close
   
     cn.Close
     
     Set rs = Nothing
     Set cn = Nothing
   					

5. Modify the SERVER, UID, and PWD parameters in the Connect method call as appropriate to connect to your SQL Server server.
6. Run the project, and then click the command button. You should see a message box display that contains the accurate rowcount for the Orders table (over 800 rows on SQL Server 7.0).
7. On the SQL Server server, modify the cursor threshold configuration setting by executing the following statement in the SQL Server Query Analyzer:
   
   

   sp_configure 'cursor threshold', 0
   						

   
   Next, execute the following statement to reconfigure the server:

   Reconfigure
   						

   NOTE: The cursor threshold option is an advanced option. If you are using the sp_configure system stored procedure to change the setting, you can change the cursor threshold option only when Show Advanced Options is set to 1.
8. Rerun the project, and then click the command button again. This time, the rowcount returned in the message box should be "0".