01.Dim sqldel As String = ""
02.Dim cmdremove As SqlCommand = New SqlCommand
03.Dim qclick As String = ""
04.Dim nameclick As String = ""
05.Dim dateclick As Date
06. sqldel = "DELETE FROM tb_datasurveyor "
07. sqldel &= "WHERE ds_queue ='" & qclick & "' AND ds_date = '" & dateclick & "'"
08.
09. With cmdremove
10. .CommandType = CommandType.Text
11. .CommandText = sqldel
12. .Connection = con
13. .ExecuteNonQuery()
14. End With
15. MessageBox.Show("ลบข้อมูลเรียบร้อย", "ข้อความจากระบบ", MessageBoxButtons.OK, MessageBoxIcon.Information)
16.
17.Private Sub dgvshow_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvshow.CellClick
18. qclick = dgvshow.CurrentRow.Cells(1).Value.ToString
19. nameclick = dgvshow.CurrentRow.Cells(2).Value.ToString
20. dateclick = CDate(dgvshow.CurrentRow.Cells(0).Value)
21.
22. End Sub
