[khaled Mohammed]

السلام عليكم ورحمة الله و بركاته 
عندى مشكبة فى الكود التالي

كود :

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  صحيح لنفس الجدول و مستخدم نفس البراميترات