Contents Index Topic Contents |
AbsolutePosition and CursorLocation Properties Example
This example demonstrates how the AbsolutePosition property can track the progress of a loop that enumerates all the records of a Recordset. It uses the CursorLocation property to enable the AbsolutePosition property by setting the cursor to a client cursor.
Public Sub AbsolutePositionX() Dim rstEmployees As ADODB.Recordset Dim strCnn As String Dim strMessage As String ' Open a recordset for the Employee table ' using a client cursor. strCnn = "driver={SQL Server};server=srv;" & _ "uid=sa;pwd=;database=pubs" Set rstEmployees = New ADODB.Recordset ' Use client cursor to enable AbsolutePosition property. rstEmployees.CursorLocation = adUseClient rstEmployees.Open "employee", strCnn, , , adCmdTable ' Enumerate Recordset. Do While Not rstEmployees.EOF ' Display current record information. strMessage = "Employee: " & rstEmployees!lName & vbCr & _ "(record " & rstEmployees.AbsolutePosition & _ " of " & rstEmployees.RecordCount & ")" If MsgBox(strMessage, vbOKCancel) = vbCancel _ Then Exit Do rstEmployees.MoveNext Loop rstEmployees.Close End Sub
Top of Page
© 1997 Microsoft Corporation. All rights reserved. Terms of Use.