データベース(MDBファイル)関連:DataGridViewを編集不可にする

VB2008でMDBファイルを表示させた表形式フォームを編集不可にする実行例サンプルです。

データベース(MDBファイル)関連へ



DataGridView を読み取り専用にするには、ReadOnly を True にします。
これだけですと、入力は出来ないようになりますが、最下行の新規追加行(*マークの行)は消えません。
消すには、AllowUserToAddRows = False とします。

編集可能なDataGridView
DataGridViewを設置したフォーム

編集不可にしたDataGridView
ReadOnlyの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

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

'全フィールドの表示
SQL = "SELECT Field1 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
'読み取り専用にする
DataGridView1.ReadOnly = True
'追加行を消す
DataGridView1.AllowUserToAddRows = False
End Sub
End Class


Visual Basic 2008 Express Edition実践入門