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

مشکل در بروز رسانی دیتابیس


majid08

سوال

سلام

من یه دیتابیس دارم یه ستون دار بنام star دیفالتش 0 هست

یه باتن دارم میخام هر وقت رو باتن کلیک شد یکی به این 0 اضافه شد


Dim cur As Cursor
cur=MyBank.ExecQuery("SELECT * FROM tbl1 ")

	
For i = 0 To cur.RowCount-1
cur.Position=i
MyBank.ExecNonQuery("UPDATE tbl1 SET star ='1')



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

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

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

سلام

dim adad as int






adad = cur.getint("star")
adad = adad + 1
mybank.exenonquery("UPDATE tbl SET star = " & adad)

تست کن عزیز ببین کار میکنه یا نه

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

سلام

اگه روش شهاب هم جواب نداد اینکارو انجام بدید

بر فرض اینکه یک فیلد id  دارید که از 1 شروع میشه :

MyBank.ExecNonQuery("UPDATE tbl1 SET star ='1' WHERE id="&=i+1)
لینک ارسال
به اشتراک گذاری در سایت های دیگر

سلام

dim adad as int






adad = cur.getint("star")
adad = adad + 1
mybank.exenonquery("UPDATE tbl SET star = " & adad)

تست کن عزیز ببین کار میکنه یا نه

سلام درسته

ولی من از مولتی پنل استفاده میکنم عدد توی لیبل که از دیتابیس میگیرم مال همش تغییر میکنه

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

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

شما بیا یک دفعه قشنگ توضیح بده دقیقا میخوایید چیکار کنید  :) 

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

شما بیا یک دفعه قشنگ توضیح بده دقیقا میخوایید چیکار کنید  :) 

یه مولتی پنل دارم

یه قسمت توش گذاشتم چتا ستاره هست واسه امتیاز دهی به این فایل که قرار دانلود بشه

میخام هر وقت دانلود بشه 1 عدد به دیتابیس اضافه شه

و تو نرم افزار گفتم که هر وقت دیتابیس یک شد یه ستاره نشون بده اگه از 50 بیشتر شد 5 ستاره  :eynak:

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

بایگانی شده

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

  • کاربران آنلاین در این صفحه   0 کاربر

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