即効テクニック |
●概要● 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年 商品区分別売上高」が削除されていることを確認してください。 ●補足● ここで挙げたサンプルはクエリを繰り返し実行する場合に利用できます。