Error

alhamdolilla solved

u know how

my code was like this

cmd.Parameters("@analysis_vc").Value = Me.TextBox3

it should look like this

cmd.Parameters("@analysis_vc").Value = Me.TextBox3.Text

:rolleyes:

anyways a new error msg appeard!

anyone knows it???

Input string was not in a correct format.

:blink:

اقتباس

Input string was not in a correct format.

أعتقد يقصد هذا السطر:

cmd.Parameters("@analysis_vc").Value = Me.TextBox3.Text

حيث ان "@analysis_vc" يوجد بها خطأ في هيئتها أو في صياغتها...

أو حتى الخطأ في الـ TextBox3.Text حيث الـ Text الموجود به لا تتناسب صيغته مع "@analysis_vc"

السلام عليكم

Input string was not in a correct format.

هذه الرسالة تقول أنك تريد أن تسند قيمة غير مطابقة مثلاً String من الخانة النصية

الى حقل رقمي في قاعدة البيانات أو العكس أو غير ذلك

بإنك ترسل parameter يحمل قيمة غير متوقعه بالنسبة للعامود الذي تود منه جلب أو اسناد قيمة ما

الأخ محمد عبد العليم ...

ماذا تعني بخطأ في هيئتها أو صياغتها ؟؟!

الأخ الغملاسي ...

شكرا ... سأتأكد من مطابقة القيم ...

أختكم :)

القيم متطابقة !!!

this is my code :(

Dim con As New SqlConnection(strconnection)

Dim cmd As New SqlCommand

Dim par1 As New SqlParameter

cmd = New SqlCommand("IT_up_parm_ins", con)

cmd.CommandType = CommandType.StoredProcedure

cmd.Parameters.Add("@HSR_dt", DbType.Date)

cmd.Parameters("@HSR_dt").Value = Format(Me.Calendar1.SelectedDate, "MM/dd/yyyy")

cmd.Parameters.Add("@delivery_dt", DbType.Date)

cmd.Parameters("@delivery_dt").Value = Format(Me.Calendar2.SelectedDate, "MM/dd/yyyy")

cmd.Parameters.Add("@new_system_id", SqlDbType.Int)

cmd.Parameters("@new_system_id").Value = Me.TextBox1.Text

cmd.Parameters.Add("@support_type_vc", SqlDbType.VarChar)

cmd.Parameters("@support_type_vc").Value = Me.CheckBoxList1.SelectedValue

cmd.Parameters.Add("@case_type_vc", SqlDbType.VarChar)

cmd.Parameters("@case_type_vc").Value = Me.RadioButtonList1.SelectedValue

cmd.Parameters.Add("@requester_name_vc", SqlDbType.VarChar)

cmd.Parameters("@requester_name_vc").Value = Me.DropDownList1.SelectedValue

cmd.Parameters.Add("@department_vc", SqlDbType.VarChar)

cmd.Parameters("@department_vc").Value = Me.DropDownList2.SelectedValue

cmd.Parameters.Add("@case_description_vc", SqlDbType.VarChar)

cmd.Parameters("@case_description_vc").Value = Me.TextBox2.Text

cmd.Parameters.Add("@superior_approval_vc", SqlDbType.VarChar)

cmd.Parameters("@superior_approval_vc").Value = Me.DropDownList3.SelectedValue

cmd.Parameters.Add("@analysis_vc", SqlDbType.VarChar)

cmd.Parameters("@analysis_vc").Value = Me.TextBox3.Text

cmd.Parameters.Add("@type_vc", SqlDbType.VarChar)

cmd.Parameters("@type_vc").Value = Me.CheckBoxList2.SelectedValue

cmd.Parameters.Add("@subtype_vc", SqlDbType.VarChar)

cmd.Parameters("@subtype_vc").Value = Me.CheckBoxList3.SelectedValue

cmd.Parameters.Add("@subtype_vc", SqlDbType.VarChar)

cmd.Parameters("@subtype_vc").Value = Me.CheckBoxList4.SelectedValue

cmd.Parameters.Add("@subtype_vc", SqlDbType.VarChar)

cmd.Parameters("@subtype_vc").Value = Me.CheckBoxList5.SelectedValue

cmd.Parameters.Add("@IT_name_vc", SqlDbType.VarChar)

cmd.Parameters("@IT_name_vc").Value = Me.DropDownList4.SelectedValue

con.Open()

cmd.ExecuteNonQuery()

con.Close()

TextBox1.Text = Nothing

TextBox2.Text = Nothing

TextBox3.Text = Nothing

Calendar1.SelectedDate = Nothing

Calendar2.SelectedDate = Nothing

CheckBoxList1.SelectedValue = Nothing

CheckBoxList2.SelectedValue = Nothing

CheckBoxList3.SelectedValue = Nothing

CheckBoxList4.SelectedValue = Nothing

CheckBoxList5.SelectedValue = Nothing

RadioButtonList1.SelectedValue = Nothing

DropDownList1.SelectedValue = Nothing

DropDownList2.SelectedValue = Nothing

DropDownList3.SelectedValue = Nothing

DropDownList4.SelectedValue = Nothing

End Sub