◆概要
　この資料は、Microsoft Accessで、ADOXを利用してテーブルを削除する方法について記載しています。


Deleteメソッド

テーブルを削除するには、CatalogオブジェクトのTableコレクションのtableオブジェクトをDeleteメソッドを使用して削除します。

　「Tables.Delete テーブル名」と記述します。

Function DeleteTable()
    Dim cl As New ADOX.Catalog
    Dim t_name As String
    
    On Error GoTo Err_Handler
    
    ' Catalogオブジェクト変数「cl」にカレントプロジェクトを代入する
    cl.ActiveConnection = CurrentProject.Connection
    ' 変数「t_name」に「新しいテーブル」を代入する
    t_name = "新しいテーブル"
    If MsgBox(t_name & "を削除してよろしいですか?", vbYesNo) = vbYes Then
        ' 「新しいテーブル」を削除する
        cl.Tables.Delete t_name
    End If
    Exit Function

Err_Handler:
    MsgBox (Error)
    
End Function

　参照　ADOXを使用するには、AODXタイプライブラリへの参照を確立する必要があります。Microsoft ADO Ext.2.8 for DDL and Security に参照設定をしてください。