Majid842
دوشنبه 18 اردیبهشت 1391, 22:32 عصر
مشکل در Update رکورد در بانک SQL؟؟؟
من درتمام فرم هایم از این روش برای ویرایش اطلاعات استفاده میکنم اما در یکی از فرم هایم زمانی که ویرایش
انجام میشود این خطا را دارم؟؟
86794
این هم کد:
ocm.Connection = ocn
ocm.CommandText = "UPDATE transfer SET motghazi=@motghazi,shahrak=@shahrak,typedoc=@typed oc,melki=@melki,meter=@meter,typemeter=@typemeter, plak=@plak,no_sanad=@no_sanad,no_sabtsanad=@no_sab tsanad,date_sabtsanad=@date_sabtsanad,no_daftarkha ne=@no_daftarkhane,city=@city,asterdad=@asterdad,p arvane=@parvane,c_barname=@c_barname,c_arazi=@c_ar azi,c_sabte=@c_sabte,c_fani=@c_fani,c_mali=@c_mali ,c_jahad=@c_jahad,c_manabe=@c_manabe,c_miras=@c_mi ras,c_other=@c_other where ID_entghali=@ide"
ocm.Parameters.Clear()
With ocm
.Parameters.AddWithValue("@ide", ide)
.Parameters.AddWithValue("@motghazi", cbmotghazi.Text)
.Parameters.AddWithValue("@shahrak", cbshahrak.Text)
.Parameters.AddWithValue("@typedoc", cbtypedoc.Text)
.Parameters.AddWithValue("@melki", cbmelki.Text)
.Parameters.AddWithValue("@meter", txtmeter.Text)
.Parameters.AddWithValue("@typemeter", cbtypemeter.Text)
.Parameters.AddWithValue("@plak", cbplak.Text)
.Parameters.AddWithValue("@no_sanad", txtnodoc.Text)
.Parameters.AddWithValue("@no_sabtsanad", txtsabtsanad.Text)
.Parameters.AddWithValue("@date_sabtsanad", txtdatesand.Text)
.Parameters.AddWithValue("@no_daftarkhane", txtdaftarkhane.Text)
.Parameters.AddWithValue("@city", txtcity.Text)
.Parameters.AddWithValue("@asterdad", cbasterdad.Text)
.Parameters.AddWithValue("@parvane", cbbahrebardare.Text)
.Parameters.AddWithValue("@c_barname", ch(0))
.Parameters.AddWithValue("@c_arazi", ch(1))
.Parameters.AddWithValue("@c_sabte", ch(3))
.Parameters.AddWithValue("@c_fani", ch(5))
.Parameters.AddWithValue("@c_mali", ch(7))
.Parameters.AddWithValue("@c_jahad", ch(2))
.Parameters.AddWithValue("@c_manabe", ch(4))
.Parameters.AddWithValue("@c_miras", ch(6))
.Parameters.AddWithValue("@c_other", ch(8))
End With
ocn.Open()
ocm.ExecuteNonQuery()
ocn.Close()
ocm.Clone()
ocn.Dispose()
ocm.Dispose()
MsgBox("ok")
من درتمام فرم هایم از این روش برای ویرایش اطلاعات استفاده میکنم اما در یکی از فرم هایم زمانی که ویرایش
انجام میشود این خطا را دارم؟؟
86794
این هم کد:
ocm.Connection = ocn
ocm.CommandText = "UPDATE transfer SET motghazi=@motghazi,shahrak=@shahrak,typedoc=@typed oc,melki=@melki,meter=@meter,typemeter=@typemeter, plak=@plak,no_sanad=@no_sanad,no_sabtsanad=@no_sab tsanad,date_sabtsanad=@date_sabtsanad,no_daftarkha ne=@no_daftarkhane,city=@city,asterdad=@asterdad,p arvane=@parvane,c_barname=@c_barname,c_arazi=@c_ar azi,c_sabte=@c_sabte,c_fani=@c_fani,c_mali=@c_mali ,c_jahad=@c_jahad,c_manabe=@c_manabe,c_miras=@c_mi ras,c_other=@c_other where ID_entghali=@ide"
ocm.Parameters.Clear()
With ocm
.Parameters.AddWithValue("@ide", ide)
.Parameters.AddWithValue("@motghazi", cbmotghazi.Text)
.Parameters.AddWithValue("@shahrak", cbshahrak.Text)
.Parameters.AddWithValue("@typedoc", cbtypedoc.Text)
.Parameters.AddWithValue("@melki", cbmelki.Text)
.Parameters.AddWithValue("@meter", txtmeter.Text)
.Parameters.AddWithValue("@typemeter", cbtypemeter.Text)
.Parameters.AddWithValue("@plak", cbplak.Text)
.Parameters.AddWithValue("@no_sanad", txtnodoc.Text)
.Parameters.AddWithValue("@no_sabtsanad", txtsabtsanad.Text)
.Parameters.AddWithValue("@date_sabtsanad", txtdatesand.Text)
.Parameters.AddWithValue("@no_daftarkhane", txtdaftarkhane.Text)
.Parameters.AddWithValue("@city", txtcity.Text)
.Parameters.AddWithValue("@asterdad", cbasterdad.Text)
.Parameters.AddWithValue("@parvane", cbbahrebardare.Text)
.Parameters.AddWithValue("@c_barname", ch(0))
.Parameters.AddWithValue("@c_arazi", ch(1))
.Parameters.AddWithValue("@c_sabte", ch(3))
.Parameters.AddWithValue("@c_fani", ch(5))
.Parameters.AddWithValue("@c_mali", ch(7))
.Parameters.AddWithValue("@c_jahad", ch(2))
.Parameters.AddWithValue("@c_manabe", ch(4))
.Parameters.AddWithValue("@c_miras", ch(6))
.Parameters.AddWithValue("@c_other", ch(8))
End With
ocn.Open()
ocm.ExecuteNonQuery()
ocn.Close()
ocm.Clone()
ocn.Dispose()
ocm.Dispose()
MsgBox("ok")