データベース（MDBファイル）関連：レコード数を取得する

VB2008でAccessのMDBファイルのレコード数を取得する実行例サンプルです。

データセット（DataSetクラス）を使用し、テーブルのレコード数を取得します。

DataSetクラスは、データのメモリ内キャッシュを表します。
ADO.NETアーキテクチャの主要コンポーネントになります。

■ 実行画面
　レコード数を取得しメッセージボックスで表示しています。
レコード数取得フォーム

■ 実行コード

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim CnString As String
Dim UserID As String = "Admin"
Dim Password As String = ""
Dim SQL As String
Dim sfina As String = "C:\sample1.mdb"
Dim DaAdap As OleDb.OleDbDataAdapter
Dim Tbl As New DataTable()
Dim Bds As New BindingSource

CnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sfina & ";"
CnString = CnString & "User ID=" & UserID & ";"
CnString = CnString & "Jet OLEDB:Database Password=" & Password

'全フィールドの表示
SQL = "SELECT * FROM table1"

'データアダプターの作成
DaAdap = New System.Data.OleDb.OleDbDataAdapter(SQL, CnString)

'データを読む
DaAdap.Fill(Tbl)

'データグリッドに表示
Bds.DataSource = Tbl
DataGridView1.DataSource = Bds

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim cn As OleDb.OleDbConnection = New OleDb.OleDbConnection
Dim DaAdap As OleDb.OleDbDataAdapter
Dim DaSet As DataSet = New DataSet("table1")
Dim Tbl As DataTable
Dim sfina As String = "C:\sample1.mdb"
Dim coun As Long

cn.ConnectionString = "Provider=""Microsoft.Jet.OLEDB.4.0"";" & _
"Data Source=""" & sfina & """;"

DaAdap = New OleDb.OleDbDataAdapter("SELECT * FROM table1", cn)
DaAdap.Fill(DaSet, "table1")
Tbl = DaSet.Tables("table1")

'レコード数を取得する
coun = Tbl.Rows.Count
MessageBox.Show(coun & " レコードです。")

End Sub
End Class

Visual Basic 2008 Express Edition実践入門