DataGridView

多筆紀錄讀取

參考網址：https://www.youtube.com/watch?v=fxjpsWQ4vTA

1.建立一個DataTable

Dim dt As DataTable = New DataTable()

2.布建一個DataGridView1

5.以dt開啟資料表

Dim strSQL = "SELECT * FROM friend Order By ID"

Dim con As OleDb.OleDbConnection = New OleDb.OleDbConnection(AccCon64Str)

Dim adtp As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(strSQL, con)

con.Open()

adtp.Fill(dt)

4.DataTable會自動抓取資料表欄位名稱當第一列欄名。(另外找方法改變)

5.指定dt為DataGridView的DataSource

DataGridView1.DataSource = dt

6.關閉資料表

con.Close()

adtp.Dispose()

7.完成結果

更改欄位名稱顯示：幫欄位取別名

更改字串變數如下：

Dim strSQL = "SELECT ID As 編號, Class As 班級, fName As 姓名, Phone As 電話 FROM friend Order By ID"

紀錄新增、修改、刪除

參考網址：https://www.c-sharpcorner.com/UploadFile/1e050f/insert-update-and-delete-record-in-datagridview-C-Sharp/

點選DataGridView，欄位內容讀到TextBox內，使用的觸發方法是：DataGridView1.CellClick。

DataGridView儲存格(Cell)寫入TextBox：

Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick

Try

If e.RowIndex >= 0 Then

Dim row As DataGridViewRow = Me.DataGridView1.Rows(e.RowIndex)

txt_ID.Text = row.Cells(0).Value.ToString

txt_Class.Text = row.Cells(1).Value

txt_fName.Text = row.Cells(2).Value.ToString

txt_Phone.Text = row.Cells(3).Value.ToString

End If

Catch ex As Exception

lbl_status.ForeColor = Color.Red

lbl_status.Text = "DataTable+DataGridView fialed.:" & ex.Message

End Try

End Sub