指定したテーブルの定義情報を取得 (ID:87365)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 > Dim rec As New ADODB.Recordset あれ? 何故ここで、New が使われているのでしょうか? > For i = 0 To rec.fields.count -1 その前に、EOFの確認をしないと。 > Set rec = con.OpenSchema(adSchemaColumns, Array(Empty, Empty, "Aテーブル", "TABLE")) > 指定（Aテーブル）はあるのですが、取得ができていません。 [Aテーブル]に、[TABLE]という列が無いのでは? とりあえず、条件指定は後にして、全件取得から始めてみては如何でしょう。 デバッグ段階では、DataGridに表示させると簡単に確認できますよ。 Set con = New ADODB.Connection con.Provider = "Microsoft.Jet.OLEDB.4.0" con.CursorLocation = adUseClient con.Open "BIBLIO.MDB" 'VB添付のmdbファイル Set Me.DataGrid1.DataSource = con.OpenSchema(adSchemaColumns)