Chapter5-4
| レコード移動のメソッド |
|---|
レコードセットには、複数のレコード/フィールドのデータが格納されていますが、開いた直後は１レコード目だけが見られる状態にあります（注）。フォームでいうなら"単票形式"であり、他のレコードを見るにはレコード移動を行なわなければなりません。 それらの命令は、次表のような、Recordsetオブジェクトのメソッドとして用意されています。 なお、これらのメソッドはレコードのポインタを移動させるもので、レコード移動後もその１レコード分だけしか見ることができません。  |
■任意のレコードへ移動してデータを出力する例
Dim dbs As Database
Dim rst As Recordset
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("tbl書籍情報")
With rst
.MoveLast
Debug.Print !ISBN, !タイトル, !著者, !発行日, !価格
.MovePrevious
Debug.Print !ISBN, !タイトル, !著者, !発行日, !価格
.MovePrevious
Debug.Print !ISBN, !タイトル, !著者, !発行日, !価格
.MoveFirst
Debug.Print !ISBN, !タイトル, !著者, !発行日, !価格
.MoveNext
Debug.Print !ISBN, !タイトル, !著者, !発行日, !価格
.MovePrevious
Debug.Print !ISBN, !タイトル, !著者, !発行日, !価格
.Close
End With
Dim rst As Recordset
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("tbl書籍情報")
With rst
.MoveLast
Debug.Print !ISBN, !タイトル, !著者, !発行日, !価格
.MovePrevious
Debug.Print !ISBN, !タイトル, !著者, !発行日, !価格
.MovePrevious
Debug.Print !ISBN, !タイトル, !著者, !発行日, !価格
.MoveFirst
Debug.Print !ISBN, !タイトル, !著者, !発行日, !価格
.MoveNext
Debug.Print !ISBN, !タイトル, !著者, !発行日, !価格
.MovePrevious
Debug.Print !ISBN, !タイトル, !著者, !発行日, !価格
.Close
End With
■すべてのレコードをトレースする例
Dim dbs As Database
Dim rst As Recordset
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("tbl書籍情報")
With rst
Do Until .EOF
.MoveNext
Loop
.Close
End With
Dim rst As Recordset
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("tbl書籍情報")
With rst
Do Until .EOF
.MoveNext
Loop
.Close
End With
 EOFプロパティとBOFプロパティ |
 |
■レコード数を調べてすべてのレコードをトレースする例
Dim dbs As Database
Dim rst As Recordset
Dim lngRecMax As Long
Dim ilngLoop As Long
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("tbl書籍情報")
With rst
lngRecMax = .RecordCount
For ilngLoop = 1 To lngRecMax
Debug.Print !ISBN, !タイトル, !著者, !発行日, !価格
.MoveNext
Next ilngLoop
.Close
End With
Dim rst As Recordset
Dim lngRecMax As Long
Dim ilngLoop As Long
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("tbl書籍情報")
With rst
lngRecMax = .RecordCount
For ilngLoop = 1 To lngRecMax
Debug.Print !ISBN, !タイトル, !著者, !発行日, !価格
.MoveNext
Next ilngLoop
.Close
End With
| RecordCountプロパティ |
|
