今回はパラメータクエリの実行方法についてご紹介します。パラメータクエリ は選択クエリに属しますので、RunSQLオブジェクトで実行することはできません。よって、DAOのOpenRecordsetsメソッドやADOのCreateParameterメソッドでSQLのパラメータクエリを実行します。但し、ADOを用いてパラメータクエリを実行する場合は、PARAMETERS宣言は不要ですからここではDAOを利用します。

Parametersコレクションにパラメータを追加する

宣言したパラメータは、QueryDefオブジェクトにあるParametersコレクションに追加されます。大別すると、以下の流れになります。

1. SQLステートメントを用いてQueryDefオブジェクトを作成します。
2. パラメータを設定します。
3. OpenRecordsetsメソッドでSQLを実行します。

留意事項

• SQLで作成したパラメータクエリは入力を促すダイアログボックスが表示されませんので、InputBox関数を用います。この点が、Accessのクエリと大きく異なる点です。

サンプルテーブル

サンプルテーブル（社員管理）を下記のように作成します。

SubプロシージャParaSQLの作成

SubプロシージャParaSQLを作成します。このプロシージャを実行すると、性別の入力を求めるInputBoxダイアログボックスが開きます。性別を入力すると、抽出されたレコードがメッセージボックスに表示されます。

Public Sub ParaSQL()

    Dim db As DAO.Database
    Dim qdef As DAO.QueryDef
    Dim rs As DAO.Recordset
    Dim mySQL As String
    Dim strmsg As String
    Dim strpara As String
    Dim strback As String
    
    strpara = "抽出する性別を入力します" '--- A
    mySQL = "PARAMETERS " & strpara & _
            " TEXT; SELECT * FROM 社員管理 WHERE 性別 = " & strpara ' --- B

    strback = InputBox(strpara) ' --- C
    Set db = CurrentDb
    Set qdef = db.CreateQueryDef("", mySQL) ' --- D
    qdef.Parameters(strpara) = strback ' --- E
    Set rs = qdef.OpenRecordset
    
    Do Until rs.EOF ' --- F
        strmsg = strmsg & vbNewLine & rs!ID & " ： " & _
                                      rs!社員名 & " ： " & rs!性別
        rs.MoveNext
    Loop

    MsgBox strmsg ' --- G

End Sub

解説

1. パラメータ名を変数strparaに代入します。
2. パラメータを宣言しSQLステートメントを記述します。
   留意点として、パラメータ宣言の最後にはセミコロン（;）を必ず記述します。
3. 性別の入力を求めるInputBoxダイアログボックスを立ち上げます。
4. CreateQueryDefの引数に長さ0の文字列（""）を記述すると、一時的なQueryDefオブジェクトを作成します。このオブジェクトはプロシージャの終了と共に破棄されます。
5. QueryDefオブジェクトのParametersコレクションにInputBox関数の値を代入します。
   パラメータは以下のように記述します。
   qdef.Parameters(strpara)　または　qdef.Parameters!strpara
   今回は変数にパラメータ名を格納しているので、前者の方法を採用しました。
6. Do Until〜Loopを用いて、先頭のレコードから最後のレコードまでパラメータの条件値でレコードを抽出します。

動作確認

1. SubプロシージャParaSQLをイミディエイトウィンドウで実行します。
2. InputBoxダイアログボックスが表示されます。
3. 女性を入力します。

4. 以下のメッセージボックスが表示されます。

2005/07/25