刪除視圖范例

如下代碼說明如何使用 Delete 方法從目錄中刪除視圖。

Sub DeleteView()

   Dim cat As New ADOX.Catalog

   ' 打開目錄

   cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _

      "Data Source=c:\Program Files\Microsoft Office\" & _

      "Office\Samples\Northwind.mdb;"

   '刪除視圖

   cat.Views.Delete "AllCustomers"

End Sub