データベース（MDBファイル）関連：DataGridViewの行数を取得する

VB2008でMDBファイルを表示させた表形式フォームの行数を取得する実行例サンプルです。

DataGridViewの総行数を取得するには、Rows.Count を使用します。

RowsはDataGridViewコントロールの全行を格納しているコレクションを取得します。

Countはコレクション内の行の数を取得します。

■ 実行画面
　DataGridViewの総行数をメッセージボックスで表示しています。
DataGridViewを配置したフォーム

■ 実行コード

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
Dim i As Integer

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

'読み取り専用にしない
DataGridView1.ReadOnly = False
'追加行を消す
DataGridView1.AllowUserToAddRows = False

'最後のフィールドのみ入力可能にする
For i = 0 To DataGridView1.ColumnCount - 2
DataGridView1.Columns(i).ReadOnly = True
Next
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ln1 As Integer

'総行数を取得
ln1 = DataGridView1.Rows.Count

MsgBox("DataGridViewの総行数： " & ln1)
End Sub
End Class

Visual Basic 2008 Express Edition実践入門