Procedures, exemple de méthode Delete (VB)
Le code suivant montre comment supprimer une procédure à l’aide de la méthode Delete de la collection Procedures.
' BeginDeleteProcedureVB
Sub Main()
On Error GoTo DeleteProcedureError
Dim cat As New ADOX.Catalog
' Open the catalog.
cat.ActiveConnection = _
"Provider='Microsoft.Jet.OLEDB.4.0';" & _
"Data Source='Northwind.mdb';"
' Delete the procedure.
cat.Procedures.Delete "CustomerById"
'Clean up.
Set cat.ActiveConnection = Nothing
Set cat = Nothing
Exit Sub
DeleteProcedureError:
Set cat = Nothing
If Err <> 0 Then
MsgBox Err.Source & "-->" & Err.Description, , "Error"
End If
End Sub
' EndDeleteProcedureVB
Voir aussi
ActiveConnection, propriété (ADOX)
Catalog, objet (ADOX)
Delete, méthode (collections ADOX)
Procedure, objet (ADOX)
Procedures, collection (ADOX)
Commentaires
https://aka.ms/ContentUserFeedback.
Prochainement : Tout au long de l'année 2024, nous supprimerons progressivement les GitHub Issues en tant que mécanisme de retour d'information pour le contenu et nous les remplacerons par un nouveau système de retour d'information. Pour plus d’informations, voir:Soumettre et afficher des commentaires pour