AbsolutePage、PageCount 和 PageSize 屬性范例

AbsolutePage、PageCount 和 PageSize 屬性范例

該范例使用 AbsolutePage、PageCount 和 PageSize 屬性，以每次五個記錄的方式顯示雇員表中的姓名和受雇日期。

Public Sub AbsolutePageX()

   Dim rstEmployees As ADODB.Recordset

   Dim strCnn As String

   Dim strMessage As String

   Dim intPage As Integer

   Dim intPageCount As Integer

   Dim intRecord As Integer

   ' 使用客戶端游標為雇員表打開一個記錄集。

   strCnn = "Provider=sqloledb;" & _

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

   Set rstEmployees = New ADODB.Recordset

   ' 使用客戶端游標激活 AbsolutePosition 屬性。

   rstEmployees.CursorLocation = adUseClient

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

   ' 顯示姓名和受雇日期，每次五個記錄。

   rstEmployees.PageSize = 5

   intPageCount = rstEmployees.PageCount

   For intPage = 1 To intPageCount

      rstEmployees.AbsolutePage = intPage

      strMessage = ""

      For intRecord = 1 To rstEmployees.PageSize

         strMessage = strMessage & _

            rstEmployees!fname & " " & _

            rstEmployees!lname & " " & _

            rstEmployees!hire_date & vbCr

         rstEmployees.MoveNext

         If rstEmployees.EOF Then Exit For

      Next intRecord

      MsgBox strMessage

   Next intPage

   rstEmployees.Close

End Sub