Views Refresh 메서드 예제(VB)
다음 코드에서는 카탈로그의 Views 컬렉션을 설정하는 방법을 보여 줍니다. 카탈로그의 View 개체에 액세스하려면 이 작업이 필요합니다.
' 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
참고 항목
피드백
https://aka.ms/ContentUserFeedback
출시 예정: 2024년 내내 콘텐츠에 대한 피드백 메커니즘으로 GitHub 문제를 단계적으로 폐지하고 이를 새로운 피드백 시스템으로 바꿀 예정입니다. 자세한 내용은 다음을 참조하세요.다음에 대한 사용자 의견 제출 및 보기