Access VBA 入門講座

HomeSQL文の実行SQL文の実行

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