ａｄｏのループについて カレントレコードについて

質問

ａｄｏのFor i = 1 To rs.RecordCountについて質問があります。

Sub test()
Dim i As Long
Dim MyFileName As String
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

MyFileName = CurrentProject.FullName

cn.Open "Provider = Microsoft.ACE.OLEDB.12.0;" & "Data Source= " & MyFileName
rs.Open "Tテーブル", cn, adOpenKeyset, adLockOptimistic

For i = 1 To rs.RecordCount
Debug.Print rs.Fields(0).Value
rs.MoveNext
Next

rs.Close: Set rs = Nothing
cn.Close: Set cn = Nothing
End Sub

これを実行した時に、テーブルには、1,2,3・・・という値が入っていて、
イミディエイドウインドウにも1,2,3・・・と順番に取得されるのですが、
For i = 1 To rs.RecordCountを実行した時は、強制的にrs.MoveFirstされるのでしょうか？

For i = 1 To rs.RecordCount
rs.MoveFirst
Debug.Print rs.Fields(0).Value
rs.MoveNext
Next

これと同じ意味なのでしょうか？

RecordCount プロパティ (ADO) のヘルプを見ましたが、この件に関する記述は探せませんでした。
ご回答よろしくお願いします。

回答No.1

seastar3 · ベストアンサー

難しく考えずに、最初にTテーブルを開いた段階だから、一番先頭のレコードが取り扱えると言うことです。
ご提案のコードは、繰り返す度に最初のレコードに戻ってしまいますから、レコード件数だけ最初のレコードの最初のフィールドが表示されます。しかも、無駄に次のレコードに進みます。
したがって、.MoveFirst メソッドをFor ループの前で指定し、

rs.MoveFirst
For i = 1 To rs.RecordCount
Debug.Print rs.Fields(0).Value
rs.MoveNext
Next

とすれば、お考えの通りの動作になります。

ちなみに最初に扱いたいレコード番号を指定する場合は、.Move メソッドを用いて、
rs.MoveFirst
rs.Move 9
と書けばカレントレコードが10番目のレコードに切り替わり、このレコードを取り扱える状態になります。

お礼

ご回答ありがとうございます。