こんにちは。私もVB2005でのアクセスmdbの読込みには関心持っていました。
しかし、確かに色々読んでも分かり難いと思いました。それに以前から、DAOやADOあるいはADODCなど、変遷が激しく、つきあっていられないという気分から、DataBaseに関しては避けていました。しかしこの際、色々参考させて頂き、ReTryしてみました。
もう解決された様でもありますが、当方もどうにか一つのやり方が分かりましたので、一つの例として挙げさせてもらいます。
Imports System.Data.OleDb
Dim conn As New System.Data.OleDb.OleDbConnection()
conn.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;Data source=.\abcd.mdb"
conn.Open()
'- テーブル名を取得 -
Dim myTable As DataTable
myTable = conn.GetOleDbSchemaTable _
(System.Data.OleDb.OleDbSchemaGuid.Tables, _
New Object() {Nothing, Nothing, Nothing, "TABLE"})
Dim moj As String = ""
Dim myRow As DataRow
For Each myRow In myTable.Rows
moj &= " " & myRow(2)
Next
Label1.Text &= vbCrLf & moj
moj = ""
'- 方針変え、SQLコマンド利用か？ -
Dim cmd As New OleDb.OleDbCommand()
Dim rs As OleDb.OleDbDataReader
cmd = conn.CreateCommand()
cmd.CommandText = "select * from テーブル名" ' * 全フィールド
rs = cmd.ExecuteReader()
'- フィールド名を取得 -
Dim ii As Integer
For ii = 0 To rs.FieldCount - 1
moj &= rs.GetName(ii) & " "
Next
moj &= vbCrlf
'- フィールドデータを取得 -
Do While rs.Read()
For ii = 0 To rs.FieldCount - 1
moj &= rs.Item(ii) & " "
Next
moj &= vbCrLf
Loop
Label1.Text = moj
conn.Close()
DataBaseでは、テーブル名やフィールド名は利用者が把握していて当然、という考え方があるのかもしれません。それで、テーブル名の取得など解説されたページが容易に見つかりません。しかし、従来からのAccess利用者としては、ソフト機能としてテーブル名はガイドしてもらいたい所です。
上記サンプルのうち、テーブル名取得部分のみネット上から参考にした記述で、ステートメントの意味はあまり分かっていません。しかし、その他については、全部VB2005Helpで見つけたもので、ほぼ理解できています。
上記例では、データ量が少ないと仮定して、全データを取得してLabel1.Textに表示しています。ご参考までに、どうぞ。内容的に既に書かれた書き込みと重複した部分もありますが、通しで書かないと分かり難いと考えたからです。他意はありません。
