Lire en anglais

Partager via


Procedures, exemple de méthode Refresh (VB)

Le code suivant montre comment actualiser la collection Procedures d’un catalogue. Cela est nécessaire avant que les objets Procedure soient accessibles à parti du catalogue.

' BeginProceduresRefreshVB  
Sub Main()  
    On Error GoTo ProcedureRefreshError  
  
    Dim cat As New ADOX.Catalog  
  
    ' Open the Catalog  
    cat.ActiveConnection = _  
        "Provider='Microsoft.Jet.OLEDB.4.0';" & _  
        "Data Source='Northwind.mdb';"  
  
    ' Refresh the Procedures collection  
    cat.Procedures.Refresh  
  
    'Clean up  
    Set cat.ActiveConnection = Nothing  
    Set cat = Nothing  
    Exit Sub  
  
ProcedureRefreshError:  
    Set cat = Nothing  
  
    If Err <> 0 Then  
        MsgBox Err.Source & "-->" & Err.Description, , "Error"  
    End If  
End Sub  
' EndProceduresRefreshVB  

Voir aussi

Catalog, objet (ADOX)
Procedures, collection (ADOX)
Refresh, méthode (ADO)