01.Private Sub BtnEditCus_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnEditCus.Click
02. Dim Query As String
03. con.Open()
04.
05. Query = "UPDATE Customer SET CustomerName ='" + txtNameCus.Text + "'"
06. Query = Query + "Sex = " + txtSexCus.Text
07. Query = Query + "Address = " + txtAddressCus.Text
08. Query = Query + "Telephone = " + txtTelCus.Text
09. Query = Query + " WHERE CustomerID = " + txtIdCus.Text
10. Dim cmd As MySqlCommand = New MySqlCommand(Query, con)
11. MsgBox(Query)
12. Dim i As Integer = cmd.ExecuteNonQuery()
13.
14.
15.
16.
17. con.Close()
18. End Sub
