スキルアップ・問題解決なら、モーグにおまかせ！

●概要●
構文  expression.Delete Item

設定項目        内容
expression      Tablesオブジェクトを指定［省略不可］
Item		削除するテーブルの名前を指定［省略不可］

TablesコレクションのDeleteメソッドは、指定したテーブルを削除します。
次のコードは、D:\Accessフォルダの「Test.mdb」データベースの「売上tbl」テーブルを削除しています。このサンプルを実行する場合は、ドライブ名やフォルダ名をお使いの環境に合わせてください。

●補足●
ADOXの参照設定を行ってください。［ツール］メニューから［参照設定］コマンドを選択して、［参照設定］ダイアログボックスを表示します。ダイアログボックスが表示されたら、一覧から「Microsoft ADO Ext. 2.7 for DDL and Security」をチェックして［OK］ボタンをクリックします。

●サンプル●
Sub DeleteTableSample()
    Dim myCN  As New ADODB.Connection
    Dim myCat As New ADOX.Catalog
    myCN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                "Data Source=C:\Access\Test.mdb"
    myCN.Open
    'Connectionオブジェクトを指定
    myCat.ActiveConnection = myCN
    'テーブルを削除
    myCat.Tables.Delete "売上tbl"
    myCN.Close
End Sub

●注意●
指定した名前のテーブルが見つからない場合は、実行時エラー（adErrItemNotFound）が発生します。