نسرین2000
دوشنبه 01 اردیبهشت 1393, 13:21 عصر
سلام
خیلی خسته شدم از این ارور ، هر کاری می کنم برطرف نمیشه
یه دستور آپدیت خیلی ساده نوشتم ولی مشکل کار اینجاست که اگر تاریخ ورود را که توسط کامپوننت Hm_Farsi_Calander ثبت میشه رو تغییر ندم ارور می گیرد یعنی حتما باید یک بار تاریخ ورود را پاک کنم و دوباره با تقویم تاریخ ورود رو ثبت کنم و بعد دکمه ویرایش را بزنم در حالی که گاهی اوقات من اطلاعات دیگری را می خوام ویرایش کنم و اصلا کاری با تاریخ ورود ندارم .
چی کار کنم ؟
Dim objsuite As New SqlCommand
objsuite.Connection = objconnection
objsuite.CommandText = " update suite set no_suite=@no_suite, date_vorood=@date_vorood , date_vorood1=@date_vorood1, date_khorooj=@date_khorooj ,modat_eghamat=@modat_eghamat, moaref=@moaref , pishpardakht=@pishpardakht , pay_night=@pay_night, takhfif=@takhfif ,darcad_takhfif=@darcad_takhfif, pardakht=@pardakht,nahve_pardakht=@nahve_pardakht where guest_id=@guest_id"
objsuite.Parameters.AddWithValue("@guest_id", txtguest_id.Text)
objsuite.Parameters.AddWithValue("@no_suite", DispSuit(lst))
objsuite.Parameters.AddWithValue("@date_vorood", HM_fcdate_v.Text)
objsuite.Parameters.AddWithValue("@date_vorood1", ShamsiToMiladi(CType(HM_fcdate_v.Text, String)))
objsuite.Parameters.AddWithValue("@date_khorooj", HM_fcdate_kh.Text)
objsuite.Parameters.AddWithValue("@modat_eghamat", txtmodat_eghamat.Text)
objsuite.Parameters.AddWithValue("@moaref", txtmoaref.Text)
objsuite.Parameters.AddWithValue("@pishpardakht", txtpishpardakht.Text)
objsuite.Parameters.AddWithValue("@pay_night", txtpay_night.Text)
objsuite.Parameters.AddWithValue("@takhfif", txttakhfif.Text)
objsuite.Parameters.AddWithValue("@darcad_takhfif", txtdarcad.Text)
objsuite.Parameters.AddWithValue("@pardakht", txtpishpardakht.Text)
objsuite.Parameters.AddWithValue("@nahve_pardakht", cbonahve_pardakht.Text)
objconnection.Open()
objsuite.ExecuteNonQuery()
objconnection.Close()
خطا هم اینه : Conversion failed when converting date and/or time from character string
خیلی خسته شدم از این ارور ، هر کاری می کنم برطرف نمیشه
یه دستور آپدیت خیلی ساده نوشتم ولی مشکل کار اینجاست که اگر تاریخ ورود را که توسط کامپوننت Hm_Farsi_Calander ثبت میشه رو تغییر ندم ارور می گیرد یعنی حتما باید یک بار تاریخ ورود را پاک کنم و دوباره با تقویم تاریخ ورود رو ثبت کنم و بعد دکمه ویرایش را بزنم در حالی که گاهی اوقات من اطلاعات دیگری را می خوام ویرایش کنم و اصلا کاری با تاریخ ورود ندارم .
چی کار کنم ؟
Dim objsuite As New SqlCommand
objsuite.Connection = objconnection
objsuite.CommandText = " update suite set no_suite=@no_suite, date_vorood=@date_vorood , date_vorood1=@date_vorood1, date_khorooj=@date_khorooj ,modat_eghamat=@modat_eghamat, moaref=@moaref , pishpardakht=@pishpardakht , pay_night=@pay_night, takhfif=@takhfif ,darcad_takhfif=@darcad_takhfif, pardakht=@pardakht,nahve_pardakht=@nahve_pardakht where guest_id=@guest_id"
objsuite.Parameters.AddWithValue("@guest_id", txtguest_id.Text)
objsuite.Parameters.AddWithValue("@no_suite", DispSuit(lst))
objsuite.Parameters.AddWithValue("@date_vorood", HM_fcdate_v.Text)
objsuite.Parameters.AddWithValue("@date_vorood1", ShamsiToMiladi(CType(HM_fcdate_v.Text, String)))
objsuite.Parameters.AddWithValue("@date_khorooj", HM_fcdate_kh.Text)
objsuite.Parameters.AddWithValue("@modat_eghamat", txtmodat_eghamat.Text)
objsuite.Parameters.AddWithValue("@moaref", txtmoaref.Text)
objsuite.Parameters.AddWithValue("@pishpardakht", txtpishpardakht.Text)
objsuite.Parameters.AddWithValue("@pay_night", txtpay_night.Text)
objsuite.Parameters.AddWithValue("@takhfif", txttakhfif.Text)
objsuite.Parameters.AddWithValue("@darcad_takhfif", txtdarcad.Text)
objsuite.Parameters.AddWithValue("@pardakht", txtpishpardakht.Text)
objsuite.Parameters.AddWithValue("@nahve_pardakht", cbonahve_pardakht.Text)
objconnection.Open()
objsuite.ExecuteNonQuery()
objconnection.Close()
خطا هم اینه : Conversion failed when converting date and/or time from character string