Views Refresh Method Example (VB)
The following code shows how to refresh the Views collection of a Catalog. This is required before View objects from the Catalog can be accessed.
' 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
See Also
Feedback
https://aka.ms/ContentUserFeedback.
Coming soon: Throughout 2024 we will be phasing out GitHub Issues as the feedback mechanism for content and replacing it with a new feedback system. For more information see:Submit and view feedback for