Views Delete 메서드 예제(VB)
다음 코드에서는 Delete 메서드를 사용하여 카탈로그에서 보기를 삭제하는 방법을 보여 줍니다.
' BeginDeleteViewVB
Sub Main()
On Error GoTo DeleteViewError
Dim cat As New ADOX.Catalog
' Open the catalog
cat.ActiveConnection = "Provider='Microsoft.Jet.OLEDB.4.0';" & _
"Data Source='Northwind.mdb';"
'Delete the View
cat.Views.Delete "AllCustomers"
'Clean up
Set cat.ActiveConnection = Nothing
Set cat = Nothing
Exit Sub
DeleteViewError:
Set cat = Nothing
If Err <> 0 Then
MsgBox Err.Source & "-->" & Err.Description, , "Error"
End If
End Sub
' EndDeleteViewVB
참고 항목
피드백
https://aka.ms/ContentUserFeedback
출시 예정: 2024년 내내 콘텐츠에 대한 피드백 메커니즘으로 GitHub 문제를 단계적으로 폐지하고 이를 새로운 피드백 시스템으로 바꿀 예정입니다. 자세한 내용은 다음을 참조하세요.다음에 대한 사용자 의견 제출 및 보기