رفتن به مطلب
  • 0

مشکل در UPDATE دیتابیس


majid08

سوال

سلام

من یه عدد دارم که مرتب عوض میشه

میخام عدد که عوض میشه تو دیتابیس اپدیت شه و عوض شه

یه کد نوشتم ولی هر وقت عوش میشه دیتابیس رو تغییر میده به 1

 میخام اون کد adad رو بزارم جای اون عدد که نوشتم 1  که ارور میده

Dim cur As Cursor
cur = Main.MyBank.ExecQuery("SELECT * FROM tbl1  " )
cur.Position = Main.fasl1 - 1
				
adad = cur.getint("star")
adad = adad + 1
		
Main.MyBank.ExecNonQuery("UPDATE tbl1 SET star=1 WHERE id=" & Main.Fasl1)
		
لینک ارسال
به اشتراک گذاری در سایت های دیگر

1 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده


Dim cur As Cursor

cur = Main.MyBank.ExecQuery("SELECT * FROM tbl1 " )

cur.Position = Main.fasl1 - 1

adad = cur.getint("star")

adad = adad + 1

Main.MyBank.ExecNonQuery("UPDATE tbl1 SET star='"&adad&"' WHERE id=" & Main.Fasl1)

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...