Dim sql As New StringBuilder() sql.Append("Update Drug Set ") sql.Append("DrugName = @name, CatetoryID = @catID, ") sql.Append("SupplierID = @supID, UnitPrice = @UnitPrice, ") '... '... '... AddParameters(sql.ToString())
Try Command.ExecuteNonQuery() UpdateBinding() MsgBox("บันทึกเรียบร้อยแล้ว...") Catch ex As Exception MsgBox(ex.Message) 'ผมมั่นใจว่าคำสั่ง Sql Query ไม่ถูกต้อง End Try
.... .... .... .... , DrugPhone = @phone, " & _ <<<<< ตรงนี้ , เกินมาครับ เอาออกแล้ว ใส่ space 1 ทีแทน "where .... "
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง
