INFO: Limiting Number of Rows Returned in Resultset with RDO

MORE INFORMATION

1. Start a new project in Visual Basic 4.0 (32-bit version). Form1 is created by default. Add a command button and a list control. Accept the default names for all.
2. Create a prepared statement on your server machine with this text:

      CREATE PROCEDURE GetRows AS
      select * from authors
   
   						

3. Add the following code to the Command1_Click event. Be sure to change the parameters in the OpenConnection method to match your database.

      Private Sub Command1_Click()
          Dim x As Integer
          Dim ps As rdoPreparedStatement
          Dim conn As rdoConnection
          Dim rs As rdoResultset
   
          With rdoEnvironments(0)
              .CursorDriver = rdUseOdbc
              Set conn = .OpenConnection("", rdDriverNoPrompt, False, _
              "driver={SQL Server};
              server=Myserver;uid=MyUID;pwd=Mypwd;database=pubs")
          End With
          Set ps = conn.CreatePreparedStatement("", "{call getRows}")
          ps.MaxRows = 10
          Set rs = ps.OpenResultset(rdOpenKeyset)
          'Set rs = ps.OpenResultset(rdOpenKeyset)
          While Not rs.EOF
              List1.AddItem CStr(x) & "  " & rs(1)
              rs.MoveNext
              x = x + 1
          Wend
          rs.Close
          ps.Close
          conn.Close
   
      End Sub
   
   						

4. Press F5 to run the program and click on the command button. The list box will be filled with only 10 rows because the result set has been limited to 10 rows by the ps.MaxRows = 10 line of code.