Access VBA：ADOXでデータベースファイルからテーブルを削除
■ 実行Access画面
「ADOXでデータベースからテーブルを削除 」ボタンで削除を開始します。削除しますと、「データベースからテーブルを削除しました。」とメッセージが表示されます。
■ 削除前のデータベースウィンドウ
■ 削除後のデータベースウィンドウ
商品マスターがなくなっています。
■ Access VBA 実行コード例
Option Compare Database
Option Explicit
Private Sub コマンド0_Click()
Dim cat As New ADOX.Catalog
Dim tbl As New ADOX.Table
Dim s1 As String
Dim sfina As String
'ファイル名
sfina = "c:\adoxtest.mdb"
'JET4.0
s1 = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & sfina & "; Jet OLEDB:Engine Type= 5"
'データベースに接続
cat.ActiveConnection = s1
'テーブル削除
cat.Tables.Delete "商品マスター"
Set cat = Nothing
MsgBox "データベースからテーブルを削除しました。"
End Sub
Option Explicit
Private Sub コマンド0_Click()
Dim cat As New ADOX.Catalog
Dim tbl As New ADOX.Table
Dim s1 As String
Dim sfina As String
'ファイル名
sfina = "c:\adoxtest.mdb"
'JET4.0
s1 = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & sfina & "; Jet OLEDB:Engine Type= 5"
'データベースに接続
cat.ActiveConnection = s1
'テーブル削除
cat.Tables.Delete "商品マスター"
Set cat = Nothing
MsgBox "データベースからテーブルを削除しました。"
End Sub
Home 
Tips メニューCopyright(C) FeedSoft