掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
MDBのデータディクショナリみたいな情報を取得するには (ID：75228)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
これでできます。 Sub List_TablesInCatalog() Dim conObj As New ADODB.Connection Dim catObj As New ADOX.Catalog Dim tblObj As New ADOX.Table '---対象のMDBへ接続なのだ。（ここではサンプルMDBです。） conObj.Open "Provider=Microsoft.Jet.OLEDB.4.0;" &_ "Data Source=C:\Program Files\Microsoft Office\" &_ "Office\Sample\Northwind.mdb;" Set catObj.ActiveConnection=conObj '---テーブル名とテーブルタイプを全て列挙 For Each tblObj In catObj.Tables Debug.Print "Name=";tblObj.Name;" Type=";tblObj.Type Next Set catObj=Nothing conObj.Close End Sub CatalogオブジェクトですがDAOでは対応していませんのでご注意を
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.