过程刷新范例

目录

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