Exemplo do método Delete de exibições (VB)
O código a seguir mostra como usar o método Delete para excluir uma exibição do catálogo.
' 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
Consulte Também
Comentários
https://aka.ms/ContentUserFeedback.
Em breve: Ao longo de 2024, eliminaremos os problemas do GitHub como o mecanismo de comentários para conteúdo e o substituiremos por um novo sistema de comentários. Para obter mais informações, consulteEnviar e exibir comentários de