Access2003でのテーブルの有無確認

解決済

質問者：C_S_C
質問日時：2007/02/21 16:36
回答数：3件

こんにちは。
VB6.0　Access2003にて開発をしています。

Test.mdbにTableAという名前テーブルが存在していたら
削除を行うという処理をしたいのですが
TableAという名前テーブルが存在しているかどうかを
調べる方法がわかりません。

TableAをオープンさせてエラー番号で判断するやり方
ならわかるのですが、ほかに方法はないのでしょうか？

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (3件)

ベストアンサー優先
最新から表示
回答順に表示

No.3ベストアンサー

回答者： 16August
回答日時：2007/02/21 19:07

No2です。

　
カタログのコネクションを間違えました。　
申し訳ありません。

cat.ActiveConnection = "Provider=Microsoft.jet.OLEDB.4.0; data source = C:\folder\dbname.mdb"
と置き換えてください。
あとお分かりだとは思いますが、
if tba.type = "TABLE" then
も
if tbl.type・・・・・
としてください。

- 0
- 件

通報する

No.2

回答者： 16August
回答日時：2007/02/21 18:34

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

のような形でテーブルのリストを出すことができます。

- 0
- 件

通報する

No.1

回答者： AlexSuns
回答日時：2007/02/21 17:21

DAOであれば、

DatabaseオブジェクトのTabledefsコレクションを検索して削除できます

ADODBでの場合は失念しましたｗ

'参照設定で「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