آپدیت دیتابیس آفلاین

[smart 43]

سلام دوستان

ببخشید مشکل این کد چیه ؟

Main.SQL1.ExecNonQuery("UPDATE mosh SET bed ="& q2 &"WHERE id=" & i)

[smart 43]

	Dim q,q2,i As Int
	i=Value
	Main.cur.Position=Value-1
	q=Main.cur.GetInt("qey")
	q2=q+l.gheymat
	Main.SQL1.ExecNonQuery("UPDATE mosh SET bed ="& q2 &"WHERE id=" & i)
	ToastMessageShow("به بدهکاری اضافه شد",False)
	ToastMessageShow(q2,False)
	pp.Visible=False
	lv.Visible=False

داخل b4a اروری نمیده

ولی داخل برنامه تا آیتم انتخاب میشه برنامه بسته میشه

[مهدی ایزدی 9,203]

اینجوری کار کنید ببینید مشکل حل میشه ؟

  Main.cur1.Position=0
  Main.sql1.ExecNonQuery("UPDATE mosh SET bed = '"& q2 &"' where id ='" & i & "'")

اگر حل نشد کدتون رو توی try catch بزارید و ببینید دقیقا چه خطایی میده ؟