The following code demonstrates how to delete a procedure using the Procedures collection Delete method.
' BeginDeleteProcedureVB
Sub DeleteProcedure()
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 Procedure.
cat.Procedures.Delete "CustomerById"
End Sub
' EndDeleteProcedureVB
ActiveConnection Property | Catalog Object | Delete Method (Collections) | Procedure Object | Procedures Collection
© 1998-2001 Microsoft Corporation. All rights reserved.