

No.3ベストアンサー
- 回答日時:
No2です。
カタログのコネクションを間違えました。
申し訳ありません。
cat.ActiveConnection = "Provider=Microsoft.jet.OLEDB.4.0; data source = C:\folder\dbname.mdb"
と置き換えてください。
あとお分かりだとは思いますが、
if tba.type = "TABLE" then
も
if tbl.type・・・・・
としてください。

No.2
- 回答日時:
ADOX でおこなうなら、
Dim cat as ADOX.Catalog
Dim tbl as ADOX.Table
Set cat = NEW ADOX.Catalog
cat.ActiveConnection = CurrentProject.Connection
for each tbl in cat.tables
if tba.type = "TABLE" then
debug.print tbl.name
end if
next tbl
set cat = nothing
のような形でテーブルのリストを出すことができます。
No.1
- 回答日時:
DAOであれば、
DatabaseオブジェクトのTabledefsコレクションを検索して削除できます
ADODBでの場合は失念しましたw
'参照設定で「Microsoft DAO *.* Object Library」が必要です
Private Sub Command1_Click()
Const targetTableName As String = "aaa"
Dim dbs As DAO.Database
Dim tdf As DAO.TableDef
Set dbs = DAO.OpenDatabase("C:\test.mdb")
For Each tdf In dbs.TableDefs
If tdf.Name = targetTableName Then
dbs.TableDefs.Delete targetTableName
Exit For
End If
Next
dbs.Close
Set dbs = Nothing
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
今、見られている記事はコレ!
-
弁護士が解説!あなたの声を行政に届ける「パブリックコメント」制度のすべて
社会に対する意見や不満、疑問。それを発信する場所は、SNSやブログ、そしてニュースサイトのコメント欄など多岐にわたる。教えて!gooでも「ヤフコメ民について」というタイトルのトピックがあり、この投稿の通り、...
-
弁護士が語る「合法と違法を分けるオンラインカジノのシンプルな線引き」
「お金を賭けたら違法です」ーーこう答えたのは富士見坂法律事務所の井上義之弁護士。オンラインカジノが違法となるかどうかの基準は、このように非常にシンプルである。しかし2025年にはいって、違法賭博事件が相次...
-
釣りと密漁の違いは?知らなかったでは済まされない?事前にできることは?
知らなかったでは済まされないのが法律の世界であるが、全てを知ってから何かをするには少々手間がかかるし、最悪始めることすらできずに終わってしまうこともあり得る。教えてgooでも「釣りと密漁の境目はどこです...
-
カスハラとクレームの違いは?カスハラの法的責任は?企業がとるべき対応は?
東京都が、客からの迷惑行為などを称した「カスタマーハラスメント」、いわゆる「カスハラ」の防止を目的とした条例を、全国で初めて成立させた。条例に罰則はなく、2025年4月1日から施行される。 この動きは自治体...
-
なぜ批判コメントをするの?その心理と向き合い方をカウンセラーにきいた!
今や生活に必要不可欠となったインターネット。手軽に情報を得られるだけでなく、ネットを介したコミュニケーションも一般的となった。それと同時に顕在化しているのが、他者に対する辛らつな意見だ。ネットニュース...
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【ExcelVBA】値を変更しながら...
-
複数のExcelファイルをマージす...
-
VBA Application.Matchについて...
-
VBAでCOPYを繰り返すと、処理が...
-
ワードの図形にマクロを登録で...
-
Vba セルの4辺について罫線が有...
-
vbsでのwebフォームへの入力制限?
-
【マクロ】並び替えの範囲が、...
-
エクセルの改行について
-
Vba Array関数について教えてく...
-
【マクロ】シートの変数へ入れ...
-
【マクロ】開いているブックの...
-
エクセルのマクロについて教え...
-
vb.net(vs2022)のtextboxのデザ...
-
【マクロ】売上一覧YYYYMMDDHHS...
-
VBAの「To」という語句について
-
ExcelのVBAコードについて教え...
-
Excelのマクロについて教えてく...
-
エクセルVBAのブックを開く方法...
-
Vba TextBox1.ControlSourceに...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「更新に必要なキー列の情報が...
-
access2000でつまづいてます
-
ACCESSのFindコマンドが遅い
-
access count数を変数に格納
-
ACCESS、EXCELの限界?
-
Accessの更新前処理について。D...
-
Access2000のVBAで上書き更新
-
cobolのカーソルについて
-
Access2003でのテーブルの有無確認
-
[Access]削除時のエラーメッセ...
-
Set rst = db.OpenRecordset("S...
-
Access VBA
-
accessでレコード編集後、自動...
-
ADOでループすると1レコードず...
-
VB6とAccess
-
Access VBAで自動連番を振るには
-
AceessVBA 非同期処理について
-
VBAのデバックをどなたかお手伝...
-
半角スペースの置換でエラーを...
-
なぜrs.Move i ではダメなので...
おすすめ情報