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

[majid08 266]

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

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

یه دیتابیس دارم که عکسش رو پیوست کردم میخام اون ستون okey که صفره همش بشه یک ؟؟ میشه انجام داد؟

 

[majid08 266]

درست شد

 

مشکل در این خط بود  

cur=l3.s.ExecQuery("SELECT * FROM Tbl1")

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

cur=s.ExecQuery("SELECT * FROM Tbl1")

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

درود

بله میتونید از کوئری UPDATE استفاده کنید ...

sql1.ExecNonQuery("UPDATE Table_Name SET Field_Name = 'New_Value'")

کافیه توی حلقه قرار بدید ... و Position = i کنید ...

همه رو آپدیت میکنه !

 

در ضمن: عنوان تاپیکتون اصلا مناسب نیست . مشکل در دیتابیس میتونه هر مشکلی رو شامل بشه

شما مشکل توی بروزرسانی یا همون آپدیت دیتابیس دارید . پس لطفا دقت بیشتری رو به عمل بیارید

ویرایش شد ...

[msajad 501]

بله میشه

شما کتابخانه farakhani سرچ کن اموزشش هست

[majid08 266]

درود

بله میتونید از کوئری UPDATE استفاده کنید ...

sql1.ExecNonQuery("UPDATE Table_Name SET Field_Name = 'New_Value'")

کافیه توی حلقه قرار بدید ... و Position = i کنید ...

همه رو آپدیت میکنه !

این کد های منه از کدها پیداست واسه چی میخام

Sub pardakt_PurchaseCompleted (Success As Boolean , product As Purchase)

	If Success = True Then
	Msgbox("با تشکر از خرید شما، همه اموزشها فعال شد","پیام")

 	
Dim cur As Cursor
cur=l3.s.ExecQuery("SELECT * FROM Tbl1")

	
For i = 0 To cur.RowCount-1
cur.Position=i
s.ExecNonQuery("UPDATE Tbl1 SET okey = '1'")
Next
	Else
	Msgbox("شما هیچ خریدی انجام نداده اید","پیام")
	End If

End Sub

[majid08 266]

موقع اجرا رو گوشی این پیام رو میده پیوست کردم

 

[Nemesis 1,846]

دلیل این اخطار مقدار دهی اولیه یا Initialize هست

دیتابیس رو Initialize کردید؟

[majid08 266]

دلیل این اخطار مقدار دهی اولیه یا Initialize هست

دیتابیس رو Initialize کردید؟

بله در اکتیویتی کریت 

	If s.IsInitialized=False Then
	s.Initialize(File.DirInternal,"ketab.db",False)
	End If

[Nemesis 1,846]

مود رو در حال دیباگ قرار بدید ببینید زیر کدوم خط اخطار میده

[majid08 266]

مود رو در حال دیباگ قرار بدید ببینید زیر کدوم خط اخطار میده

به این گیر داده

cur=l3.s.ExecQuery("SELECT * FROM Tbl1")