データベース（MDBファイル）関連：DataGridViewのレコードセレクタの表示／非表示

VB2008でMDBファイルを表示させた表形式フォームのレコードセレクタを操作する実行例サンプルです。

レコードセレクタとは、DataGridViewの左端の右向き三角が表示されている部分です。
レコードセレクタをクリックすると、1レコード（1行）選択できます。

データを表示するだけなら、レコードセレクタは必要ない場合があります。
そこで、消す方法を掲載します。

標準のレコードセレクタを表示している画面
データベースデータを表示しているフォーム

レコードセレクタを非表示にしている画面
表示を消したフォーム

■ 実行コード

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 CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

If Me.CheckBox1.Checked Then
'表示
Me.DataGridView1.RowHeadersVisible = True
Else
'非表示
Me.DataGridView1.RowHeadersVisible = False
End If
End Sub

End Class

Visual Basic 2008 Express Edition実践入門