データベース（MDBファイル）関連：MDBファイルを開き読む

VB2008でAccessのMDBファイルを読み取る実行例サンプルです。

MDBファイルとはマイクロソフトのデータファイルの形式で、通常、Microsoft Accessで使用されています。

■Access2002で開いたテーブル画面
テーブルのオープン

■実行画面
「MDBを開く」ボタンを開くと、ｓａｍｐｌｅ１.mdbを開き、フィールド1とフィールド2の内容を読み、テキストボックスに表示します。
MDBファイル読込みフォーム

■実行コード

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'データソースへの開いた接続
Dim cn As New System.Data.OleDb.OleDbConnection
'データソースに対して実行する SQLステートメントまたはストアドプロシージャ
Dim SQL As System.Data.OleDb.OleDbCommand
'データソースからデータ行の前方向ストリームを読み取る方法
Dim dr As System.Data.OleDb.OleDbDataReader
'データベースファイル名
Dim sfina As String = "C:\sample1.mdb"
Dim s As String

s = "Provider=""Microsoft.Jet.OLEDB.4.0"";"
s &= "Data Source=""" & sfina & """;"
'データベースを開くために使用する文字列
cn.ConnectionString = s

SQL = Cn.CreateCommand
'データソースで実行する SQLステートメントまたはストアドプロシージャ
SQL.CommandText = "SELECT * FROM table1"

Cn.Open()

dr = SQL.ExecuteReader()
'リストボックスのクリア
ListBox1.Items.Clear()

While (dr.Read())
'リストボックスに追加
ListBox1.Items.Add(dr("field1") & " " & dr("field2"))
End While

cn.Close()
SQL.Dispose()
cn.Dispose()
End Sub
End Class

Visual Basic 2008 Express Edition実践入門