ADO＿データを取得する
次はテーブル「T_名簿」に含まれている氏名の全データを取得します。レコードセットの最初から最後までの登録データを取得します。
コード
Public Sub ADOTest()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Set cn = CurrentProject.Connection
rs.Open "T_名簿", cn ‘T_名簿のレコードセットを開く
Do Until rs.EOF ‘レコードセットが最終レコードに到達している場合は、値がTrueになります。
Debug.Print rs!氏名,rs!番号 ‘氏名と番号フィールドを取り出す
rs.MoveNext
Loop ’Falseの場合はループします
rs.Close: Set rs = Nothing
cn.Close: Set cn = Nothing
End Sub
実行結果
全レコードの名前と番号フィールドが取り出されました。
（この項終わり）