[Access-VBA] DAO でSQLを発行し結果を取得する（DAO.Database）

Tweet

Pocket

ここでは、DAOを使用してMS-AccessにSQLクエリを発行し、結果を取得するVBAのサンプルスクリプトを掲載しています。

MS-Access へ DAO 接続するサンプル

Access へ DAO 接続し、その結果を取得するサンプルスクリプトです。詳細はサンプル内のコメントを参照ください。

    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim sql As String
    Dim count As Long
    
    ' 実行するSQLを設定する
    sql = "select count(*) as 件数 from test_table;"
  
    Set db = CurrentDb              ' データベース（DAO）
    Set rs = db.OpenRecordset(sql)  ' クエリ発行

    count = rs!件数  ' カラム名を指定して値（レコード数）を取得
    
    ' レコードセットをクローズする
    rs.Close
    Set rs = Nothing
    Set db = Nothing

最近、「頭が痛い！」「腹が痛い！」といって毎週、遅刻したりや休みをとるが、なぜか早退だけはしない人間に呆れ気味です。

Tweet

Pocket