●概要●
構文 expression.EOF 取得のみ
設定項目 内容
expression Recordsetオブジェクトを指定［省略不可］
カレントレコードの位置がRecordsetオブジェクトの最後のレコードの後の場合、EOFプロパティはTrueを返します。次のコードは、「商品tbl」テーブルの「商品コード」フィールドと「商品名」フィールドの値を、最後のレコードまで順に［イミディエイト］ウィンドウに表示しています。
このサンプルを実行する場合は、フォルダ名やデータベース名をお使いの環境に合わせてください。
●サンプル●
Sub EOFSample()
Dim myCN As New ADODB.Connection
Dim myRS As New ADODB.Recordset
myCN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=D:\AccessVBA\Sample1.mdb"
myCN.Open
'レコードセットを開く
myRS.Open "商品tbl", myCN
'見出しを表示
Debug.Print "***開始***"
'終端まで繰り返す
Do Until myRS.EOF
Debug.Print myRS!商品コード & ":" & myRS!商品名
'次のレコードを参照
myRS.MoveNext
Loop
'レコードセットを閉じる
myRS.Close
myCN.Close
End Sub
