刪除過程范例

刪除過程范例

如下代碼演示如何使用 Procedures 集合 Delete 方法刪除過程。

Sub DeleteProcedure()

Dim cat As New ADOX.Catalog

   ' 打開目錄

   cat.ActiveConnection = _

      "Provider=Microsoft.Jet.OLEDB.4.0;" & _

      "Data Source=c:\Program Files\Microsoft Office\" & _

      "Office\Samples\Northwind.mdb;"

   ' 刪除過程。

   cat.Procedures.Delete "CustomerById"

End Sub