mohsen_zelzela00
دوشنبه 14 مرداد 1387, 14:09 عصر
با سلام خدمت دوستان عزیز
من در حال نوشتن یک نرم افزار برای یه اداره ای هستم ولی وقتی در قسمت insert کد زیر رو مینویسم
' Try
Dim cn As New connection
Dim str As String
str = "insert into information_ras values(@t1,@t2,@t3,@t4,@t5,@t6,@t7,@t8,@t9,@t10,@t 11,@t12,@t13,@t14,@t15,@t16,@t17,@t18,@t19,@t20,@t 21,@t22,@t23,@t24,@t25,@t26,@t27,@t28,@t29,@t30,@t 31,@t32,@t33,@t34,@t35,@t36,@t37)"
str1 = Me.ComboBox1.SelectedItem
str2 = Me.ComboBox2.SelectedItem
Dim cmd As New SqlCommand(str)
cmd.Connection = cn.cn
cmd.Parameters.AddWithValue("@t1", TextBox1.Text)
cmd.Parameters.AddWithValue("@t2", TextBox2.Text)
cmd.Parameters.AddWithValue("@t3", TextBox3.Text)
cmd.Parameters.AddWithValue("@t4", Textbox4.Text)
cmd.Parameters.AddWithValue("@t5", TextBox5.Text)
cmd.Parameters.AddWithValue("@t6", TextBox6.Text)
cmd.Parameters.AddWithValue("@t7", Me.MaskedTextBox1.Text)
cmd.Parameters.AddWithValue("@t8", TextBox8.Text)
cmd.Parameters.AddWithValue("@t9", str1)
cmd.Parameters.AddWithValue("@t10", Textbox10.Text)
cmd.Parameters.AddWithValue("@t11", Textbox11.Text)
cmd.Parameters.AddWithValue("@t12", Textbox12.Text)
cmd.Parameters.AddWithValue("@t13", Textbox13.Text)
cmd.Parameters.AddWithValue("@t14", TextBox14.Text)
cmd.Parameters.AddWithValue("@t15", Me.MaskedTextBox2.Text)
cmd.Parameters.AddWithValue("@t16", Textbox16.Text)
cmd.Parameters.AddWithValue("@t17", TextBox17.Text)
cmd.Parameters.AddWithValue("@t18", Me.TextBox20.Text)
cmd.Parameters.AddWithValue("@t19", TextBox19.Text)
cmd.Parameters.AddWithValue("@t20", str2)
cmd.Parameters.AddWithValue("@t21", Textbox21.Text)
cmd.Parameters.AddWithValue("@t22", Textbox22.Text)
cmd.Parameters.AddWithValue("@t23", Textbox23.Text)
cmd.Parameters.AddWithValue("@t24", Textbox24.Text)
cmd.Parameters.AddWithValue("@t25", TextBox25.Text)
cmd.Parameters.AddWithValue("@t26", TextBox26.Text)
cmd.Parameters.AddWithValue("@t27", TextBox27.Text)
cmd.Parameters.AddWithValue("@t28", TextBox28.Text)
cmd.Parameters.AddWithValue("@t29", TextBox29.Text)
cmd.Parameters.AddWithValue("@t30", TextBox30.Text)
cmd.Parameters.AddWithValue("@t31", TextBox31.Text)
cmd.Parameters.AddWithValue("@t32", TextBox32.Text)
cmd.Parameters.AddWithValue("@t33", TextBox33.Text)
cmd.Parameters.AddWithValue("@t34", TextBox34.Text)
cmd.Parameters.AddWithValue("@t35", TextBox35.Text)
cmd.Parameters.AddWithValue("@t36", TextBox36.Text)
cmd.Parameters.AddWithValue("@t37", "ÑÓãی")
cn.open()
cmd.ExecuteNonQuery()
cn.close()
'Catch ex As Exception
' Dim b As Integer
'b = Err.Number
'If b = 5 Then
'fr_err.Label1.Text = "äیä јæÑÏی ÞÈáÇð ËÈÊ ÔÏå ÇÓÊ"
' fr_err.Show()
'Else
' MsgBox("")
' End If
'Eg_err.Label1.Text = Err.Number
'Eg_err.Show()
' End Try
error زیر رو میده
Message="Prepared statement '(@t1 nvarchar(4),@t2 nvarchar(4),@t3 nvarchar(4000),@t4 nvarchar' expects parameter @t9, which was not supplied
جالب اینجاست که نوع فیلدهای جدول من از نوع char است دوستان اگه بتونن من رو راهنمایی کنن خیلی ممنون میشم در ضمن اول که این کد رو نوشتم درست کار میداد ولی دو روزی هست که اشکال میگیره و وقتی این رو دوباره نوشتم دوباره ایراد گرفت
من در حال نوشتن یک نرم افزار برای یه اداره ای هستم ولی وقتی در قسمت insert کد زیر رو مینویسم
' Try
Dim cn As New connection
Dim str As String
str = "insert into information_ras values(@t1,@t2,@t3,@t4,@t5,@t6,@t7,@t8,@t9,@t10,@t 11,@t12,@t13,@t14,@t15,@t16,@t17,@t18,@t19,@t20,@t 21,@t22,@t23,@t24,@t25,@t26,@t27,@t28,@t29,@t30,@t 31,@t32,@t33,@t34,@t35,@t36,@t37)"
str1 = Me.ComboBox1.SelectedItem
str2 = Me.ComboBox2.SelectedItem
Dim cmd As New SqlCommand(str)
cmd.Connection = cn.cn
cmd.Parameters.AddWithValue("@t1", TextBox1.Text)
cmd.Parameters.AddWithValue("@t2", TextBox2.Text)
cmd.Parameters.AddWithValue("@t3", TextBox3.Text)
cmd.Parameters.AddWithValue("@t4", Textbox4.Text)
cmd.Parameters.AddWithValue("@t5", TextBox5.Text)
cmd.Parameters.AddWithValue("@t6", TextBox6.Text)
cmd.Parameters.AddWithValue("@t7", Me.MaskedTextBox1.Text)
cmd.Parameters.AddWithValue("@t8", TextBox8.Text)
cmd.Parameters.AddWithValue("@t9", str1)
cmd.Parameters.AddWithValue("@t10", Textbox10.Text)
cmd.Parameters.AddWithValue("@t11", Textbox11.Text)
cmd.Parameters.AddWithValue("@t12", Textbox12.Text)
cmd.Parameters.AddWithValue("@t13", Textbox13.Text)
cmd.Parameters.AddWithValue("@t14", TextBox14.Text)
cmd.Parameters.AddWithValue("@t15", Me.MaskedTextBox2.Text)
cmd.Parameters.AddWithValue("@t16", Textbox16.Text)
cmd.Parameters.AddWithValue("@t17", TextBox17.Text)
cmd.Parameters.AddWithValue("@t18", Me.TextBox20.Text)
cmd.Parameters.AddWithValue("@t19", TextBox19.Text)
cmd.Parameters.AddWithValue("@t20", str2)
cmd.Parameters.AddWithValue("@t21", Textbox21.Text)
cmd.Parameters.AddWithValue("@t22", Textbox22.Text)
cmd.Parameters.AddWithValue("@t23", Textbox23.Text)
cmd.Parameters.AddWithValue("@t24", Textbox24.Text)
cmd.Parameters.AddWithValue("@t25", TextBox25.Text)
cmd.Parameters.AddWithValue("@t26", TextBox26.Text)
cmd.Parameters.AddWithValue("@t27", TextBox27.Text)
cmd.Parameters.AddWithValue("@t28", TextBox28.Text)
cmd.Parameters.AddWithValue("@t29", TextBox29.Text)
cmd.Parameters.AddWithValue("@t30", TextBox30.Text)
cmd.Parameters.AddWithValue("@t31", TextBox31.Text)
cmd.Parameters.AddWithValue("@t32", TextBox32.Text)
cmd.Parameters.AddWithValue("@t33", TextBox33.Text)
cmd.Parameters.AddWithValue("@t34", TextBox34.Text)
cmd.Parameters.AddWithValue("@t35", TextBox35.Text)
cmd.Parameters.AddWithValue("@t36", TextBox36.Text)
cmd.Parameters.AddWithValue("@t37", "ÑÓãی")
cn.open()
cmd.ExecuteNonQuery()
cn.close()
'Catch ex As Exception
' Dim b As Integer
'b = Err.Number
'If b = 5 Then
'fr_err.Label1.Text = "äیä јæÑÏی ÞÈáÇð ËÈÊ ÔÏå ÇÓÊ"
' fr_err.Show()
'Else
' MsgBox("")
' End If
'Eg_err.Label1.Text = Err.Number
'Eg_err.Show()
' End Try
error زیر رو میده
Message="Prepared statement '(@t1 nvarchar(4),@t2 nvarchar(4),@t3 nvarchar(4000),@t4 nvarchar' expects parameter @t9, which was not supplied
جالب اینجاست که نوع فیلدهای جدول من از نوع char است دوستان اگه بتونن من رو راهنمایی کنن خیلی ممنون میشم در ضمن اول که این کد رو نوشتم درست کار میداد ولی دو روزی هست که اشکال میگیره و وقتی این رو دوباره نوشتم دوباره ایراد گرفت