Microsoft KB Archive/142834

= INFO: Limiting Number of Rows Returned in Resultset with RDO =

Article ID: 142834

Article Last Modified on 10/29/2003

-

APPLIES TO


 * Microsoft Visual Basic 5.0 Enterprise Edition
 * Microsoft Visual Basic 4.0 32-Bit Enterprise Edition

-



This article was previously published under Q142834



SUMMARY
RDO provides a means to limit the number of rows returned by a query. The following code calls a stored procedure that returns a resultset but limits the resultset to 10 rows. This example retrieves the 10 rows and fills a list box with the resultset. Keep in mind that RDO is 32-bit only.



MORE INFORMATION
 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.  Create a prepared statement on your server machine with this text: CREATE PROCEDURE GetRows AS  select * from authors

  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

 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.

Additional query words: kbVBp500 kbVBp400

Keywords: kbinfo KB142834

-

[mailto:TECHNET@MICROSOFT.COM Send feedback to Microsoft]

© Microsoft Corporation. All rights reserved.