Views Delete Method Example (VB)
The following code shows how to use the Delete method to delete a view from the catalog.
' BeginDeleteViewVB
Sub Main()
On Error GoTo DeleteViewError
Dim cat As New ADOX.Catalog
' Open the catalog
cat.ActiveConnection = "Provider='Microsoft.Jet.OLEDB.4.0';" & _
"Data Source='Northwind.mdb';"
'Delete the View
cat.Views.Delete "AllCustomers"
'Clean up
Set cat.ActiveConnection = Nothing
Set cat = Nothing
Exit Sub
DeleteViewError:
Set cat = Nothing
If Err <> 0 Then
MsgBox Err.Source & "-->" & Err.Description, , "Error"
End If
End Sub
' EndDeleteViewVB
See Also
Feedback
https://aka.ms/ContentUserFeedback.
Kommer snart: Under hela 2024 kommer vi att fasa ut GitHub-problem som feedbackmekanism för innehåll och ersätta det med ett nytt feedbacksystem. Mer information finns i:Skicka och visa feedback för