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

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

No.1 ベストアンサー 回答者： maruru01 回答日時： 2002/11/22 12:00

こんにちは。

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

お礼日時：2002/11/22 14:25