ช่วยบอกที่ครับว่าผิดยังไงต้อง เพื่ม
อันนี้ฐานข้อมูล
โค็ดเพิ่ม ช่วยที่นะครับ
Private Sub btn_save_Click(sender As System.Object, e As System.EventArgs) Handles btn_save.Click
If confirm("คุณต้องการบันทึกข้อมูลหรือไม่ ?") = vbNo Then Return
If checkBlank({txt_email, txt_serial, txt_ชื่อรุ่น, txt_ชื่อลูกค้า, txt_ที่อยู่,
txt_เบอร์โทร, txt_พนักงานที่บันทึก, txt_รหัสซ่อม, txt_รหัสลูกค้า,
txt_อาการเสีย, date_ปัจจุบัน, cmb_การดำเนินงานล่าสุด, cmb_ประเภท}) = "ว่าง" Then
show_error("คุณต้องกรอกข้อมูลให้ครบทุกช่อง")
Return
End If
sql = String.Format("insert into repair(customer_id, repair_date, repair_type, repair_serial, repair_brand, repair_damage, repair_comment, repair_working, users_name) " & _
"values('{0}','{1}','{2}','{3}','{4}','{5}','{6}','{7}','{8}')",
txt_รหัสลูกค้า.Text, Convert.ToDateTime(date_ปัจจุบัน.Value), cmb_ประเภท.SelectedItem,
txt_serial.Text, txt_ชื่อรุ่น.Text, txt_อาการเสีย.Text, txt_หมายเหตุ.Text,
cmb_การดำเนินงานล่าสุด.Text, txt_พนักงานที่บันทึก.Text)
If AddRecord(sql) = True Then
show_ok("เพิ่มข้อมูลการแจ้งซ่อมสำเร็จ")
Else
show_error("เพิ่มข้อมูลไม่สำเร็จ")
End If
Additional information: Conversion failed when converting date and/or time from character string.
อันนี้ฐานข้อมูล
โค็ดเพิ่ม ช่วยที่นะครับ
Private Sub btn_save_Click(sender As System.Object, e As System.EventArgs) Handles btn_save.Click
If confirm("คุณต้องการบันทึกข้อมูลหรือไม่ ?") = vbNo Then Return
If checkBlank({txt_email, txt_serial, txt_ชื่อรุ่น, txt_ชื่อลูกค้า, txt_ที่อยู่,
txt_เบอร์โทร, txt_พนักงานที่บันทึก, txt_รหัสซ่อม, txt_รหัสลูกค้า,
txt_อาการเสีย, date_ปัจจุบัน, cmb_การดำเนินงานล่าสุด, cmb_ประเภท}) = "ว่าง" Then
show_error("คุณต้องกรอกข้อมูลให้ครบทุกช่อง")
Return
End If
sql = String.Format("insert into repair(customer_id, repair_date, repair_type, repair_serial, repair_brand, repair_damage, repair_comment, repair_working, users_name) " & _
"values('{0}','{1}','{2}','{3}','{4}','{5}','{6}','{7}','{8}')",
txt_รหัสลูกค้า.Text, Convert.ToDateTime(date_ปัจจุบัน.Value), cmb_ประเภท.SelectedItem,
txt_serial.Text, txt_ชื่อรุ่น.Text, txt_อาการเสีย.Text, txt_หมายเหตุ.Text,
cmb_การดำเนินงานล่าสุด.Text, txt_พนักงานที่บันทึก.Text)
If AddRecord(sql) = True Then
show_ok("เพิ่มข้อมูลการแจ้งซ่อมสำเร็จ")
Else
show_error("เพิ่มข้อมูลไม่สำเร็จ")
End If