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

[majid08 266]

سلام

من یه دیتابیس دارم یه ستون دار بنام 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

[shahab.es 5,429]

سلام

dim adad as int






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

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

[مجید آرتا 5,874]

سلام

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

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

MyBank.ExecNonQuery("UPDATE tbl1 SET star ='1' WHERE id="&=i+1)

[majid08 266]

سلام

dim adad as int






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

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

سلام درسته

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

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

[مجید آرتا 5,874]

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

[majid08 266]

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

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

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

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

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