Dim con As New SqlConnection("Server=localhost;Uid=sa;PASSWORD=123456;database=Earthenware;")
Dim sql As String = ""
sql = "UPDATE Customer SET CusName = '" & TextBox2.Text & "',CusSurname = '" & TextBox3.Text & "',CusAge = '" & TextBox4.Text & "',CusTel = '" & TextBox5.Text & "' WHERE Username= '" & TextBox1.Text & "';"
Dim cmd As New SqlCommand(sql, con)
con.Open()
cmd.ExecuteNonQuery()
con.Close()
MsgBox("แก้ไขข้อมูลเรียบร้อย ", 0, " Complate Update ")
Response.Redirect("Course.aspx")
ลองดีบักที่บรรทัด Dim cmd As New SqlCommand(sql, con)
ดูว่า sql ต่อสตริงได้ยังไงครับ
ที่ไม่อัพเดทสักบรรทัดอาจเป็นเพราะไม่มี Username ที่ตรงกับ TextBox1.Text ก็ได้