ＳＱＬ文を出力する事ってできないですか？

質問

AccessVBAでクエリのＳＱＬ文を出力する事ってできないですか？
例えば、
クエリ１があったとして、
そのＳＱＬ文をDebug.Printで書きだしたいのですが
可能でしょうか？

ADOXあたりを使えば可能でしょうか？

ナビゲーションウインドウで右クリックして
デザインビューで開き、ＳＱＬビューを見ればＳＱＬ文が見れますが
たくさんのＳＱＬ文を取得して、
それを条件分岐したいのでVBAで書きだしたいのです。

よろしくお願いします。

回答No.2

DexMachina · ベストアンサー

ADO/ADOXには手を出していないので可能かどうか
わかりませんが(汗)、DAOであれば可能です。

以下、指定したクエリのSQL文をイミディエイトウィンドウに出力する
サンプルになります：

'引数「QueryName」でクエリ名を指定
'SQL文の書き出しが成功したらTrueを、失敗したらFalseを返す
Public Function PrintSQL(QueryName As String) As Boolean
On Error Goto エラー処理

　　'「DAO」への参照設定が必要
　　Dim dbs As DAO.Database, qdf As DAO.QueryDef
　　Dim Rsl As Boolean, sSQL As String

　　Set dbs = CurrentDb
　　Set qdf = dbs.QueryDefs(QueryName)
　　sSQL = qdf.SQL
　　Debug.Print sSQL
　　Rsl = True

終了処理:
　　PrintSQL = Rsl
　　'念のために明示的にメモリを解放
　　Set qdf = Nothing
　　Set dbs = Nothing
　　Exit Function　　

エラー処理:
　　MsgBox　Err.Number & "：" & Err.Description,vbCritical, "PrintSQL"
　　Rsl = False
　　Resume 終了処理

End Function

お礼

ありがとうございます。

回答No.1

m3_maki

Debug.Print CurrentDB.QueryDefs("クエリ１").SQL

とか。

お礼

Debug.Print CurrentDB.QueryDefs("クエリ１").SQL
でできました。
ADOXを使わなくてもaccess（DAO）に
そういうプロパティが用意されていたのですね。
ありがとうございました。