过程刷新范例

如下代码演示如何刷新 Catalog 的 Procedures 集合。

Sub ProcedureRefresh()

   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;"

   ' 刷新 Procedures 集合

   cat.Procedures.Refresh

End Sub