Views Delete メソッドの例 (VB)

次のコードでは、カタログからビューを削除するための Delete メソッドの使用方法を示します。

Sub DeleteView()

    Dim cat As New ADOX.Catalog

    ' Open the catalog
    cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=c:\Program Files\Microsoft Office\" & _
        "Office\Samples\Northwind.mdb;"

    'Delete the View
    cat.Views.Delete "AllCustomers"

End Sub