Views, exemple de méthode Refresh (VB)
Le code suivant montre comment actualiser la collection Views d’un catalogue. Cela est nécessaire avant que les objets View soient accessibles à parti du catalogue.
' BeginViewsRefreshVB
Sub Main()
On Error GoTo ProcedureViewsRefreshError
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.Views.Refresh
'Clean up
Set cat = Nothing
Exit Sub
ProcedureViewsRefreshError:
If Not cat Is Nothing Then
Set cat = Nothing
End If
If Err <> 0 Then
MsgBox Err.Source & "-->" & Err.Description, , "Error"
End If
End Sub
' EndViewsRefreshVB
Voir aussi
Commentaires
https://aka.ms/ContentUserFeedback.
Prochainement : Tout au long de l'année 2024, nous supprimerons progressivement les GitHub Issues en tant que mécanisme de retour d'information pour le contenu et nous les remplacerons par un nouveau système de retour d'information. Pour plus d’informations, voir:Soumettre et afficher des commentaires pour