クエリを作成する

パラメータクエリを作成する

Sub クエリ作成2()
'パラメータクエリを作成する
Dim myCat As New ADOX.Catalog, myCmd As New ADODB.Command
Dim conStr As String, DBName As String

'接続するデータベースと接続文字列
DBName = ThisWorkbook.Path & "\mdb\newDB.mdb"
conStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBName

'操作対象となるmdbファイルを指定
myCat.ActiveConnection = conStr

'クエリのSQL文を指定
myCmd.CommandText = "PARAMETERS [価格] INTEGER;SELECT * FROM 商品マスタ WHERE 単価 <= [価格];"
'パラメータを要求するクエリはProceduresコレクションに追加する
myCat.Procedures.Append "PQ_サンプルクエリ", myCmd

Set myCmd = Nothing
Set myCat = Nothing

End Sub

パラメータクエリやアクションクエリを作成する
Catalogオブジェクト.Procedures.Append 新規クエリ名, Commandオブジェクト

パラメータクエリや、アクションクエリを追加する際には、Catalogオブジェクト内のProceduresコレクションに対してAppendメソッドを実行して追加する。

実行結果

同名クエリを作成しようとした時のエラーメッセージ