データをページ単位で取得(PageSize)

Attribute　VB_Name　=　"Module1"
Option　Compare　Database
Option　Explicit

Public　Sub　adoRstPageNext()
　　　　Dim　cnc　As　New　ADODB.Connection
　　　　Dim　rst　As　New　ADODB.Recordset
　　　　Dim　i　As　Long
　　　　Dim　dspPage　As　Long
　　　　
　　　　'カレントデータベースに接続する(ADO)
　　　　Set　cnc　=　CurrentProject.Connection
　　　　
　　　　'レコードセットを開く
　　　　rst.Open　"月間スケジュール",　cnc,　adOpenKeyset,　adLockOptimistic
　　　　If　rst.EOF　Then
　　　　　　　　MsgBox　"レコードが1件もありません"
　　　　　　　　GoTo　db_Close
　　　　End　If
　　　　
　　　　'1ページ当たりのレコード数を指定する
　　　　rst.PageSize　=　7

       '表示するページ数の入力待ち

　　　　dspPage　=　InputBox$("表示するページ数を入力してください",　"ページ数の指定")

 

       '入力ページ数の先頭レコードに移動

　　　　rst.AbsolutePage　=　Val(StrConv(dspPage,　vbNarrow)) 'valで指定ページ数を数値に変換

　　　　
　　　　If　dspPage　>　rst.PageCount　Then
　　　　　　　　MsgBox　rst.PageCount　&　"ページ以内を指定してください。"
　　　　Else
　　　　　　　　For　i　=　1　To　rst.PageSize
　　　　　　　　　　　　If　rst.EOF　Then
　　　　　　　　　　　　　　　　MsgBox　"レコード終了"
　　　　　　　　　　　　　　　　Exit　For
　　　　　　　　　　　　End　If
　　　　　　　　　　　　Debug.Print　rst!日付,　rst!スケジュール
　　　　　　　　　　　　rst.MoveNext
　　　　　　　　Next　i
　　　　End　If
　　　　
db_Close:
　　　　'レコードセットを閉じる
　　　　rst.Close
　　　　Set　rst　=　Nothing
　　　　'データベースへの接続を閉じる
　　　　cnc.Close
　　　　Set　cnc　=　Nothing
End　Sub