ADOによりSQL文を実行して目的のレコードを取得するにはOpenメソッドを使用する際にSQL文を指定します。
Dim レコードセット変数 As New ADODB.Recordset
レコードセット変数.Open SQL文, CurrentProject.Connection
以下の例では名簿テーブルよりOpenメソッドによりSQL文を実行し、テーブルの全てのレコードを全て表示し、Closeメソッドで閉じています。
Sub Sample()
Dim strSQL As String
strSQL = "SELECT * FROM 名簿"
Dim rs As New ADODB.Recordset
rs.Open strSQL, CurrentProject.Connection
Do Until rs.EOF
Debug.Print rs!姓 rs!名
rs.MoveNext
Loop
rs.Close
End Sub
ADOとは | レコードセットの作成(Open) | レコードセットの読み取り(Move) | レコードの検索(Find) | レコードの更新(Update) | レコードの追加(AddNew) | レコードの削除(Delete) | レコードの抽出(Filter) | レコードの並び替え(Sort) | SQL文の実行