Crew .NET |
|
Je haalt je gegevens op uit de DB om die in de DataGrid te stoppen. Zorg dat je ook een kolom voorziet voor het ID uit je tabel. Als je dan van rij verwisselt kan je dit bijvoorbeeld opvangen met het event CellClick. In dit event haal je dan de CurrentRow op. Nu kan je alle waardes van die rij ophalen inclusief dat ID. Alle waardes komen in een TextBox en het ID komt dan in een Label (niet wijzigbaar). Als je dan op de Button klikt wordt er een update-statement uitgevoerd met het ID in de WHERE zodat de juiste rij ge-update wordt.
Private Sub gridCellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick
'Je hebt blijkbaar het ID al in de Grid
'Stop het in een Label zodat het niet wijzigbaar is!
lblid.Text = "" & DataGridView1.CurrentRow.Cells(0).Value
txtbedrijf.Text = "" & DataGridView1.CurrentRow.Cells(1).Value
txtmerk.Text = "" & DataGridView1.CurrentRow.Cells(2).Value
txttype.Text = "" & DataGridView1.CurrentRow.Cells(3).Value
txtserienummer.Text = "" & DataGridView1.CurrentRow.Cells(4).Value
End Sub
Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click
Dim sqlString As String = "UPDATE uwTable SET bedrijf = '" & txtbedrijf.Text & "' ... WHERE id = " & CInt(lblid.Text)
'Verder uitvoeren
End Sub
Private Sub gridCellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick 'Je hebt blijkbaar het ID al in de Grid 'Stop het in een Label zodat het niet wijzigbaar is! lblid.Text = "" & DataGridView1.CurrentRow.Cells(0).Value txtbedrijf.Text = "" & DataGridView1.CurrentRow.Cells(1).Value txtmerk.Text = "" & DataGridView1.CurrentRow.Cells(2).Value txttype.Text = "" & DataGridView1.CurrentRow.Cells(3).Value txtserienummer.Text = "" & DataGridView1.CurrentRow.Cells(4).Value End Sub Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click Dim sqlString As String = "UPDATE uwTable SET bedrijf = '" & txtbedrijf.Text & "' ... WHERE id = " & CInt(lblid.Text) 'Verder uitvoeren End Sub
|