

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を探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
access2000でつまづいてます
-
エクセルVBAで5行目からオート...
-
Excel 2019 のピボットテーブル...
-
「直需」の意味を教えてください
-
Oracle 2つのDate型の値の差を...
-
スティックパリティの役割
-
Accessでテーブル名やクエリ名...
-
Accessでテーブルからテーブル...
-
ACCESSで400以上のフィールドが...
-
Accessでコードを入れると名前...
-
【マクロ】列を折りたたみ非表...
-
Accessレコードの追加や変更が...
-
FROM の中で CASE を使えるでし...
-
Accessフォームにクロス集計ク...
-
DB2でREPLACEによる文字列の置換
-
時間の足し算
-
ACCESS 集計クエリの列見出し名...
-
Accessでvlookupみたいなことは...
-
テーブルの存在チェックについて
-
2つのテーブルを比較して一致し...
マンスリーランキングこのカテゴリの人気マンスリー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 ではダメなので...
おすすめ情報