Архив форумов ЦИТФорума

[artur]

Kakaja est funkzia v Access 2000 dlja poluchenia nomera tekuschej zapisi?

[Борис]

-

[artur]

A mojno please s primerom...
plz, plz, plz

[Борис]

AbsolutePosition and CursorLocation Properties Example (VB)


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 = "Provider=sqloledb;" & _
        "Data Source=srv;Initial Catalog=Pubs;User Id=sa;Password=; "
    Set rstEmployees = New ADODB.Recordset
    ' Use client cursor to enable AbsolutePosition property.
    rstEmployees.CursorLocati on = adUseClient
    rstEmployees.Open "employee", strCnn, , , adCmdTable
    
   &nbs p;' Enumerate Recordset.
    Do While Not rstEmployees.EOF
         ' Display current record information.
       &nbs p;strMessage = "Employee: " & rstEmployees!lName & vbCr & _
         &nb sp;  "(record " & rstEmployees.AbsolutePosition & _
         &nb sp;  " of " & rstEmployees.RecordCount & ")"
        If MsgBox(strMessage, vbOKCancel) = vbCancel _
         &nb sp;  Then Exit Do
        rstEmplo yees.MoveNext
    Loop

  & nbsp; rstEmployees.Close

End Sub