アクセスＤｂのテーブル名の取得(VB2005)

質問

再度の質問です
アクセスＤＢのテーブル名を取得したのですが、方法をご教示ください。DAOでは　tabledefsでとれたのですが・・
以下のコードで先に進めません。
OpenFileDialog1.Filter = "アクセス ファイル (*.mdb)|*.mdb"
OpenFileDialog1.ShowDialog()
If OpenFileDialog1.FileName <> "" Then
Dim St As String
Dim Cn As New System.Data.OleDb.OleDbConnection
Dim SQL As System.Data.OleDb.OleDbCommand
Dim UserID As String = "Admin"
Dim Password As String = ""
Dim MDBFile As String = OpenFileDialog1.FileName
Dim N As String = Microsoft.VisualBasic.Right(MDBFile, 9)
St = "Provider=""Microsoft.Jet.OLEDB.4.0"";"
St &= "Data Source=""" & MDBFile & """;"
St &= "User ID=" & UserID & ";"
St &= "Jet OLEDB:Database Password=" & Password
Cn.ConnectionString = St
SQL = Cn.CreateCommand
Cn.Open()

Dim tbl As DataTable

tbl = Cn.GetOleDbSchemaTable(OleDb.OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, "TABLE"})
ここでtblを見ると
TABLE_CATALOG _SCHEMA _NAME _TYPE　・・・DATE_MODIFIED などは見えるのですが、これがＤＢ内のテーブル数だけ繰り返されます。
取得したいのは、TABLE_NAME に　ある　例えば　"Pub-ID"に相当する内容なのですが、ＨＥＬＰで探しても、その方法がわかりません、ぜひ教えてください。よろしくお願いいたします。

回答No.2

ape5 · ベストアンサー

先ほどのコードに続いて、
--------------------------------
Dim strData As string
strData = myRows(1).ItemArray(2)
--------------------------------
とすると、strDataにテーブル名が入りますよ。
ItemArrayの3番目にテーブル名が入るようです。

お礼

取得できました。ありがとうございました。先に進めるとことができます。VB5で開発、.NET系に移行せざるを得なくなり、始めましたが、VB5から様変わりで、戸惑うことばかりです。今後ともよろしくお願いいたします。

回答No.1

ape5

根本的な解決策ではないかもしれませんが、上記のプログラムに以下の部分を追加します。
----------------------------
Dim myRows() As DataRow
myRows = tbl.Select()
----------------------------
すると、myRows(i)のItemArrayの中にテーブル名があります。

お礼

ありがとうございました

補足

ありがとうございます。上記コードを追加しましたが、
知識不足で”myRows(i)のItemArrayの中にテーブル名”を取り出すコーディングがわかりません。"System.Object[]"が見えるだけなのですが。ご教示ください。