HOME > 即効テクニック > AccessVBA > クエリ・SQL > 既存のクエリのSQLステートメントを取得する

即効テクニック

クエリ・SQL

既存のクエリのSQLステートメントを取得する

(Access 2000/2002)
QueryDefオブジェクトのSQLプロパティを使って、データベースに作成されているクエリのSQLステートメントを取得することができます。
サンプルプロシージャでは、クエリ「クエリ1」のSQLステートメントをメッセージボックスに表示しています。
Sub Sample()

    Dim db    As Database
    Dim qdef  As QueryDef
    Dim MySql As String

    Set db = CurrentDb()

    Set qdef = db.QueryDefs("クエリ1")

    MySql = qdef.SQL

    MsgBox MySql
    
End Sub
DAOを使用するには、[ツール(T)]メニューの[参照設定(R)]をクリックすると表示される[参照設定]ダイアログボックスで、「Microsoft DAO 3.6Object Library」をチェックします。