スキルアップ・問題解決なら、モーグにおまかせ！

●概要●
ADOX(ActiveX Data Object eXtentions)のCatalogオブジェクトを使用してデータベース内のビューの名称を取得します。　ビューの削除はCatalogオブジェクトのViewsコレクションのdeleteメソッドを用います。
ここではデータベース「NorthWIND.MDB」内のクエリ「1995年 商品区分別売上高」を存在チェック後に削除させています。

Public Sub Delete_View()
 Dim cn As New ADODB.Connection
 Dim cat As New ADOX.Catalog
 Dim vew As ADOX.View
 Dim DataFlag As Integer
 
 Set cn = New ADODB.Connection
 cn.ConnectionString = _
    "Provider=microsoft.jet.oledb.4.0;" & _
    "Data Source=D:\NorthWIND.MDB"
  cn.Open
 Set cat.ActiveConnection = cn
 'クエリの存在チェック
 For Each vew In cat.Views
  Select Case vew.Name
    Case "1995年 商品区分別売上高"
      DataFlag = 1
   End Select
 Next vew
 'クエリが存在している場合は削除
 If DataFlag = 1 Then
   cat.Views.Delete ("1995年 商品区分別売上高")
 Else
   MsgBox "クエリ「1995年 商品区分別売上高」が存在しません"
   GoTo 終了処理
 End If

終了処理:
 cn.Close
 Set cn = Nothing
 Set cat = Nothing
End Sub

●動作確認●
クエリ「1995年 商品区分別売上高」が削除されていることを確認してください。

●補足●
ここで挙げたサンプルはクエリを繰り返し実行する場合に利用できます。