掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
mdb テーブルが一括削除できない (ID:102749)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんばんわ mdb内の特定文字を含むテーブルを削除したいと思っております。 コードは、 Dim objCat, objTable Set objCat = CreateObject("ADOX.Catalog") objCat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\AAA.mdb" _ & ";" & "Jet OLEDB:Engine;" For Each objTable In objCat.Tables If objTable.Type = "TABLE" Then If (objTable.Name Like "*インポート エラー*") Then Debug.Print objTable.Name & "削除" objCat.Tables.Delete objTable.Name End If End If Next としたのですが Debug.print のみですと全テーブル名取得できますが 削除を実行すると一部のテーブルしか削除できません。 Doeventを入れてみたのですが同様でした。 どのようにしたら宜しいでしょうか？ ご教授の程宜しくお願い致します。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.