21-09-20, 04:08 PM
(آخر تعديل لهذه المشاركة : 21-09-20, 08:57 PM {2} بواسطة Amir_Alzubidy.)
السلام عليكم ورحمة الله و بركاته
عندى مشكبة فى الكود التالي
بيظهر رساله خطا Data type mismatch in criteria expression.
مع العلم ان كود insert صحيح لنفس الجدول و مستخدم نفس البراميترات
عندى مشكبة فى الكود التالي
كود :
Dim id_emp As String
id_emp = txt_id.Text
Dim str_edit As String
str_edit = "update TBL_EMP set name_emp=@name_emp, id_expire_emp=@id_expire_emp, id_copy_emp=@id_copy_emp, lisans_emp=@lisans_emp," & vbCrLf &
"lisans_expire_emp=@lisans_expire_emp, passport_id_emp=@passport_id_emp, passport_expire_emp=@passport_expire_emp," & vbCrLf &
"birth_emp=@birth_emp, national_emp=@national_emp, job_emp=@job_emp, state_emp=@state_emp, state_date_emp=@state_date_emp," & vbCrLf &
"id_co=@id_co, name_co=@name_co, start_work_emp=@start_work_emp, passport_num_emp=@passport_num_emp, file_num_emp=@file_num_emp," & vbCrLf &
"dorg_num_emp=@dorg_num_emp, active_emp=@active_emp where id_emp = " & id_emp
cmd = New OleDbCommand(str_edit, con)
cmd.Parameters.Add(New OleDbParameter("@name_emp", OleDbType.VarChar)).Value = txt_name.Text
cmd.Parameters.Add(New OleDbParameter("@id_expire_emp", OleDbType.Date)).Value = dtp_id_expire.Value.ToString("yyyy/MM/dd")
cmd.Parameters.Add(New OleDbParameter("@id_copy_emp", OleDbType.VarChar)).Value = txt_id_copy.Text
cmd.Parameters.Add(New OleDbParameter("@lisans_emp", OleDbType.Boolean)).Value = chb_lisans.Checked
cmd.Parameters.Add(New OleDbParameter("@lisans_expire_emp", OleDbType.Date)).Value = dtp_lisans_expire.Value.ToString("yyyy/MM/dd")
cmd.Parameters.Add(New OleDbParameter("@passport_id_emp", OleDbType.VarChar)).Value = txt_passport_id.Text
cmd.Parameters.Add(New OleDbParameter("@passport_expire_emp", OleDbType.Date)).Value = dtp_passport_expire.Value.ToString("yyyy/MM/dd")
cmd.Parameters.Add(New OleDbParameter("@birth_emp", OleDbType.Date)).Value = dtp_birth.Value.ToString("yyyy/MM/dd")
cmd.Parameters.Add(New OleDbParameter("@national_emp", OleDbType.VarChar)).Value = cob_national.Text
cmd.Parameters.Add(New OleDbParameter("@job_emp", OleDbType.VarChar)).Value = cob_job.Text
cmd.Parameters.Add(New OleDbParameter("@state_emp", OleDbType.VarChar)).Value = state_emp
cmd.Parameters.Add(New OleDbParameter("@state_date_emp", OleDbType.Date)).Value = dtp_state.Value.ToString("yyyy/MM/dd")
cmd.Parameters.Add(New OleDbParameter("@id_co", OleDbType.Integer)).Value = txt_id_co.Text
cmd.Parameters.Add(New OleDbParameter("@name_co", OleDbType.VarChar)).Value = cob_name_co.Text
cmd.Parameters.Add(New OleDbParameter("@start_work_emp", OleDbType.Date)).Value = dtp_start_work.Value.ToString("yyyy/MM/dd")
cmd.Parameters.Add(New OleDbParameter("@passport_num_emp", OleDbType.VarChar)).Value = txt_passport_num.Text
cmd.Parameters.Add(New OleDbParameter("@file_num_emp", OleDbType.VarChar)).Value = txt_file_num.Text
cmd.Parameters.Add(New OleDbParameter("@dorg_num_emp", OleDbType.VarChar)).Value = txt_dorg_num.Text
cmd.Parameters.Add(New OleDbParameter("@active_emp", OleDbType.Boolean)).Value = chb_active.Checked
con.Open()
cmd.ExecuteNonQuery()
con.Close()
بيظهر رساله خطا Data type mismatch in criteria expression.
مع العلم ان كود insert صحيح لنفس الجدول و مستخدم نفس البراميترات