ارجو المساعده عند عمل store procedure فى sqlsever 2000 ثم تم الربط بينها وبين الفيجوال بسك دوت نت ثم عمل command وعمل execute nonquery ظهرت رسالة object must implement iconvertible
ده كود فى الفيجوال بسك ارجو المساعدة
Dim comad As New SqlCommand
comad.CommandText = "dbo.[insert_emp]"
comad.CommandType = System.Data.CommandType.StoredProcedure
comad.Connection = classado.con
comad.Parameters.Add(New SqlParameter("@RETURN_VALUE", SqlDbType.Int, 4, ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
comad.Parameters.Add(New SqlParameter("@empcode", SqlDbType.NVarChar, 20))
comad.Parameters.Add(New SqlParameter("@firstname", SqlDbType.NVarChar, 50))
comad.Parameters.Add(New SqlParameter("@lastname", SqlDbType.NVarChar, 50))
comad.Parameters.Add(New System.Data.SqlClient.SqlParameter("@salid", System.Data.SqlDbType.SmallInt, 2))
comad.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hiredate", System.Data.SqlDbType.DateTime, 8))
comad.Parameters.Add(New System.Data.SqlClient.SqlParameter("@monthdays", System.Data.SqlDbType.SmallInt, 2))
comad.Parameters.Add(New System.Data.SqlClient.SqlParameter("@empbirh", System.Data.SqlDbType.DateTime, 8))
comad.Parameters.Add(New System.Data.SqlClient.SqlParameter("@maritalstatus_id", System.Data.SqlDbType.SmallInt, 2))
comad.Parameters.Add(New System.Data.SqlClient.SqlParameter("@milstatus", System.Data.SqlDbType.NVarChar, 20))
comad.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Education", System.Data.SqlDbType.NVarChar, 50))
comad.Parameters.Add(New System.Data.SqlClient.SqlParameter("@date_graducation", System.Data.SqlDbType.DateTime, 8))
comad.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ins_emp", System.Data.SqlDbType.Money, 8))
comad.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ins_com", System.Data.SqlDbType.Money, 8))
comad.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ins_id", System.Data.SqlDbType.VarChar, 20))
comad.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ins_amount", System.Data.SqlDbType.Money, 8))
comad.Parameters.Add(New System.Data.SqlClient.SqlParameter("@emp_id", System.Data.SqlDbType.VarChar, 20))
comad.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ins_fixed", System.Data.SqlDbType.Money, 8))
comad.Parameters.Add(New System.Data.SqlClient.SqlParameter("@passid", System.Data.SqlDbType.VarChar, 20))
comad.Parameters.Add(New System.Data.SqlClient.SqlParameter("@issued_pass", System.Data.SqlDbType.NVarChar, 50))
comad.Parameters.Add(New System.Data.SqlClient.SqlParameter("@issued_id", System.Data.SqlDbType.NVarChar, 50))
comad.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ended_pass", System.Data.SqlDbType.DateTime, 8))
comad.Parameters.Add(New System.Data.SqlClient.SqlParameter("@gender", System.Data.SqlDbType.NVarChar, 50))
comad.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ddress1", System.Data.SqlDbType.NVarChar, 50))
comad.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ddress2", System.Data.SqlDbType.NVarChar, 50))
comad.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ddress3", System.Data.SqlDbType.NVarChar, 50))
comad.Parameters.Add(New System.Data.SqlClient.SqlParameter("@tel1", System.Data.SqlDbType.VarChar, 20))
comad.Parameters.Add(New System.Data.SqlClient.SqlParameter("@tel2", System.Data.SqlDbType.VarChar, 20))
comad.Parameters.Add(New System.Data.SqlClient.SqlParameter("@tel3", System.Data.SqlDbType.VarChar, 20))
comad.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mobile", System.Data.SqlDbType.VarChar, 20))
comad.Parameters.Add(New System.Data.SqlClient.SqlParameter("@email", System.Data.SqlDbType.NVarChar, 50))
comad.Parameters.Add(New System.Data.SqlClient.SqlParameter("@contactperson", System.Data.SqlDbType.NVarChar, 50))
comad.Parameters.Add(New System.Data.SqlClient.SqlParameter("@contact_tel", System.Data.SqlDbType.VarChar, 20))
comad.Parameters.Add(New System.Data.SqlClient.SqlParameter("@relation", System.Data.SqlDbType.NVarChar, 50))
''value
comad.Parameters("@empcode").Value = TextBox1.Text
comad.Parameters("@firstname").Value = TextBox7.Text
comad.Parameters("@lastname").Value = TextBox34.Text
comad.Parameters("@salid").Value = Me.sal_txt
comad.Parameters("@hiredate").Value = Me.hire_date.Value.Year
comad.Parameters("@empbirh").Value = Me.date_birth.Value.DayOfYear
comad.Parameters("@maritalstatus_id").Value = Me.mat_sts_cmb.Text
comad.Parameters("@milstatus").Value = Me.mail_txt.Text
comad.Parameters("@Education").Value = Me.ed_txt.Text
comad.Parameters("@date_graducation").Value = Me.date_grd_picker.Value.Year
comad.Parameters("@ins_emp").Value = Me.ins_emp_txt.Text
comad.Parameters("@ins_com").Value = Me.cmp_txt.Text
comad.Parameters("@ins_id").Value = Me.ins_id.Text
comad.Parameters("@ins_amount").Value = Me.ins_amount_txt.Text
comad.Parameters("@emp_id").Value = Me.emp_id_txt.Text
comad.Parameters("@ins_fixed").Value = Me.fixed_ins_txt.Text
comad.Parameters("@passid").Value = Me.pass_id_txt.Text
comad.Parameters("@issued_pass").Value = Me.issued_pass_txt.Text
comad.Parameters("@issued_id").Value = Me.issued_id_txt.Text
comad.Parameters("@ended_pass").Value = Me.Date_ended_pass.Text
comad.Parameters("@gender").Value = Me.Gndr_cmb.Text
comad.Parameters("@ddress1").Value = Me.add1_txt.Text
comad.Parameters("@ddress2").Value = Me.add2_txt.Text
comad.Parameters("@ddress3").Value = Me.add3_txt.Text
comad.Parameters("@tel1").Value = Me.tel1_txt.Text
comad.Parameters("@tel2").Value = Me.tel2_txt.Text
comad.Parameters("@tel3").Value = Me.tel3_txt.Text
comad.Parameters("@mobile").Value = Me.mob_txt.Text
comad.Parameters("@email").Value = Me.mail_txt.Text
comad.Parameters("@contactperson").Value = Me.con_name_txt.Text
comad.Parameters("@contact_tel").Value = Me.con_tel_txt.Text
comad.Parameters("@relation").Value = Me.relation_txt.Text
Try
Dim effected As Integer = comad.ExecuteNonQuery
MessageBox.Show(effected)
Catch ex As Exception
MessageBox.Show(Err.Source)
End Try