ACCESS2000/リンク先DBのテーブル削除

質問

こんにちは。
いつも助けていただきありがとうございます。
質問なんですが、ＧＵＩ用のmdbとテーブル用のmdbがあって必要なテーブル
を処理にあわせてリンクさせてます。
それで不必要なテーブルをＧＵＩ側のmdbから削除(オブジェクトの削除）
したいのですが、その方法を教えてください。
よろしくお願いします。

回答No.1

maruru01 · ベストアンサー

こんにちは。maruru01です。

別のAccessファイルのテーブルを削除するということですね。
ADOXを使用します。
まず、VBE画面のメニュー[ツール]→[参照設定]で、
「Microsoft ADO Ext. X.X for DLL and Security」（X.Xはバージョン）
をチェックします。

Accessファイル名（フルパス）をDatabaseName、その中のテーブル名をtableNameとすると、以下のコードで出来ます。

Dim cat As ADOX.Catalog 'Catalogオブジェクト
Dim tbl As ADOX.Table 'Tableオブジェクト

On Error GoTo Err_End

Set cat = New ADOX.Catalog
cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & DatabaseName

cat.Tables.Delete tableName

Set cat = Nothing

ちなみに、GUI側でリンクしている場合はそのテーブルも削除すべきかも知れません。
ファイル内のテーブルの削除は、上記で、

cat.ActiveConnection = CurrentProject.Connection

に変更すれば出来ます。

お礼

maruru01さん、こんにちは。
ご丁寧にどうもありがとうございました。
さっそく使わせていただきました。もちろんＯＫでした。
助かりました！！！