The following code shows how to use the Delete method to delete a view from the catalog.
' BeginDeleteViewVB 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 ' EndDeleteViewVB
Delete Method (Collections) | Views Collection
© 1998-2001 Microsoft Corporation. All rights reserved.