クエリを作成する

クエリを作成する

クエリを作成する

Sub クエリ作成()
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 = "SELECT * FROM 商品マスタ;"
'パラメータを要求しない選択クエリはViewsコレクションに追加する
myCat.Views.Append "Q_サンプルクエリ", myCmd

Set myCmd = Nothing
Set myCat = Nothing

End Sub

パラメータを必要としない選択クエリを作成する
Catalogオブジェクト.Views.Append 新規クエリ名, Commandオブジェクト

パラメータを必要としない選択クエリは、Catalogオブジェクト内のViewsコレクションに対してAppendメソッドを実行して追加する。

実行結果

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