ここでは、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
最近、「頭が痛い!」「腹が痛い!」といって毎週、遅刻したりや休みをとるが、なぜか早退だけはしない人間に呆れ気味です。