If MessageBox.Show("ต้องการแก้ไขข้อมูล", "แจ้ง", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then Dim up As String = "update register" up &= " set id_shop ='" & TextBox2.Text & "'," up &= " code_label ='" & ComboBox1.Text & "'," up &= " wide ='" & TextBox3.Text & "'," up &= " lengthy ='" & TextBox4.Text & "'," up &= " unit ='" & TextBox5.Text & "'," up &= " relate ='" & Label11.Text & "'" up &= " where id_la ='" & TextBox1.Text & " " comm.CommandText = up comm.CommandType = CommandType.Text comm.Connection = con comm.ExecuteNonQuery() End If MessageBox.Show("แก้ไขข้อมูลเรียบร้อยแล้ว", "แจ้ง") Call showdata()
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง