01.Public Class frmMember
02. Dim Conn As SqlConnection
03. Dim Cmd As SqlCommand
04. Dim ds As New DataSet
05. Dim ad As New SqlDataAdapter
06.
07. Private Sub btnDel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDel.Click
08. If DataGridView1.SelectedRows.Count = 0 Then
09. MessageBox.Show("ท่านยังไม่ได้เลือกแถวที่ต้องการลบ")
10. Exit Sub
11.
12. End If
13.
14. Dim msgResult As DialogResult = MessageBox.Show("ท่านต้องการลบข้อมูลแถวที่เลือกจริงหรือไม่", "ยืนยันการลบ", MessageBoxButtons.OKCancel)
15. If msgResult = Windows.Forms.DialogResult.Cancel Then
16. Exit Sub
17. End If
18. Conn.Open()
19. Dim Key As String = DataGridView1.SelectedRows.Item(0).Cells(0).Value
20. Dim sql As String = " DELETE FORM TblMember WHERE MemberID = " & Key
21. Dim cmd As New SqlCommand(sql, Conn)
22. Cmd.CommandText = sql
23. cmd.ExecuteNonQuery()
24.
25.
26.
27.
28.
29.
30.
31. End Sub
32.
33.End Class
Quote:
