AccessVBA_DAOの利用その5_【Database】【QueryDef】【CreateQueryDef】アクションクエリの実行

DAOでデータベースに接続し、アクションクエリを実行する記述

今回の記述に関する前情報

何を行うか

CreateQueryDefメソッドを使ってQueryDefオブジェクトを作成しアクションクエリを実行する
※クエリ名を指定しない（一時的なクエリとする）

QueryDefオブジェクトを作成しアクションクエリを実行する書式

Dim QDef As DAO.QueryDef
Set QDef = Databaseオブジェクト変数.CreateQueryDef("",SQL)
Qdef.Execute

記述例における利用パーツ

・ステートメント
　　→SQL
・メソッド
　　→CurrentDb / CreateQueryDef / Execute

【実践】クエリを新規作成する記述例

カレントプロジェクトのデータベースに接続する場合の記述

SQLでレコードを追加するアクションクエリを記述し実行
既存テーブル「飲料リスト」のなかに通し番号「AA09」 品目「黒豆茶」のレコードを追加


▼レコード追加対象テーブル▼


▼記述例▼

Sub createquery2()

Dim DAOdb As DAO.Database
Dim QDef As DAO.QueryDef
Dim SQL As String

Set DAOdb = CurrentDb
SQL = "INSERT INTO 飲料リスト VALUES('AA09','黒豆茶');"
Set QDef = DAOdb.CreateQueryDef("", SQL)
QDef.Execute

End Sub

▼実行結果▼