Accessでレコードを追加するSQL文を実行する方法

Accessでデータベースを構築した後、VBAで処理を効率よくレコードを追加するためにSQL文を活用することができます。

SQL文とは、1970年代にIBMが開発したリレーショナルデータベース向けの操作用言語です。

SQL文の言語については以下の書籍を参考にしていただければと思いますが、今回はINSERT文を用いた処理の例を見ていきましょう。

https://amzn.to/3EXJqbP

INSERT文について
サンプルテーブルの作成・INSERT文の例
VBAによるSQL文の実装
VBAの実行
まとめ

INSERT文について

INSERT文は、指定したテーブルにデータを登録するために用います。具体的には次のような記載をします。

INSERT INTO テーブル名 (フィールド名1, フィールド名2, …) VALUES (値1, 値2, …);

あるいは、フィールド名の記載を省略して次のように記載することもできます。

INSERT INTO テーブル名 VALUES (値1, 値2, …);

INSERT文でデータを登録する際には、対象フィールドのデータ型が一致するようにVALUES内を記載する必要があることに注意してください。

以上を踏まえて、サンプルテーブルにINSERT文を用いてデータを登録する方法を見ていきましょう。

サンプルテーブルの作成・INSERT文の例

サンプルテーブルとして「T_sample」テーブルを用意します。続いて、「氏名」と「生年月日」フィールドを追加し、それぞれのデータ型は「短いテキスト」と「日付/時刻型」とします。

さて、これでデータを入れるためのテーブルを作成できましたので、ここにINSERT文を用いてデータを登録していきます。

まず、今回の例では「2000年4月1日生まれの山田一郎」さんを「T_sample」テーブルに登録することとすると、この場合にINSERT文は次のように記載します。

INSERT INTO T_sample (氏名, 生年月日) VALUES (‘山田一郎’, #2000/4/1#);

これで、INSERT文を用いたデータのSQL文が出来上がりました。次からは、作成したSQL文をどのようにVBAで動かすかを見ていきましょう。

VBAによるSQL文の実装

VBAには「DoCmd」オブジェクトが用意されており、これを用いることで簡単にINSERT文の処理ができます。

具体的に次のコードを標準モジュールに実装してください。

Private Sub InsertSQL()

'変数宣言
Dim mySQL As String

'変数に実行するSQL文を格納する。
mySQL = "INSERT INTO T_sample (氏名, 生年月日) VALUES ('山田 一郎', #2000/4/1#);"

'DoCmd.RunSQLメソッドを用いてSQL文を実行する。
DoCmd.RunSQL mySQL


End Sub

ご覧のとおり、いたってシンプルなコードでINSERT文を用いた処理の実装ができます。

DoCmdオブジェクトでINSERT文を実行するためには、RunSQLメソッドを使用します。RunSQLメソッドでは実行するSQL文を引数に指定します。そのため、「mySQL」変数にSQL文をテキスト形式で格納し、これをRunSQLメソッドの引数とします。

「mySQL」変数には、先に紹介したINSERT文の記載方法に則った内容を格納しています。

これで、一通りの処理に対する実装ができましたので、VBAを実行して処理結果を確認しましょう。