AbsolutePosition 和 CursorLocation 屬性范例

AbsolutePosition 和 CursorLocation 屬性范例

該范例說明 AbsolutePosition 屬性如何對枚舉所有 Recordset 記錄的循環(huán)進(jìn)程進(jìn)行跟蹤。它通過將游標(biāo)設(shè)置為客戶端游標(biāo)，使用 CursorLocation 屬性激活 AbsolutePosition 屬性。

Public Sub AbsolutePositionX()

   Dim rstEmployees As ADODB.Recordset

   Dim strCnn As String

   Dim strMessage As String

   ' 使用客戶端游標(biāo)為雇員表打開一個(gè)記錄集。

   strCnn = "Provider=sqloledb;" & _

      "Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "

   Set rstEmployees = New ADODB.Recordset

   ' 使用客戶端游標(biāo)激活 AbsolutePosition 屬性。

   rstEmployees.CursorLocation = adUseClient

   rstEmployees.Open "employee", strCnn, , , adCmdTable

   ' 枚舉記錄集。

   Do While Not rstEmployees.EOF

      ' 顯示當(dāng)前記錄信息。

      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