视图 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 问题”,并将其取代为新的反馈系统。 有关详细信息,请参阅:提交和查看相关反馈