过程刷新范例

如下代码演示如何刷新 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