クエリーを作成、削除する（DAO)
Option Explicit
' 参照設定： Microsoft DAO 3.6 Object Library
Private Sub cmdCreateQuery_Click()
' 新規クエリーを作成する
Dim strSQL As String
Dim db As DAO.Database
Dim qd As DAO.QueryDef
' データベースへの接続
Set db = DBEngine.OpenDatabase("C:\Program Files\DevStudio\VB\Biblio.mdb")
' クエリー文字列の指定
strSQL = "SELECT * FROM Titles WHERE [Year Published]=1980"
' 名前を付けてクエリーを保存する
Set qd = db.CreateQueryDef("1980年出版物", strSQL)
End Sub
Private Sub cmdDeleteQuery_Click()
' 既存のクエリーを削除する
Dim db As DAO.Database
' データベースへの接続
Set db = DBEngine.OpenDatabase("C:\Program Files\DevStudio\VB\Biblio.mdb")
' 名前を指定してクエリーを削除する
db.QueryDefs.Delete "1980年出版物"
'削除すべきクエリーがないときのエラー番号 3265
End Sub