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

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


MoniSoft

سوال

سلام من واسه هر مطلب یه دکمه علاقه مندی ها گذاشتم و کدش رو به صورت زیر نوشتم ولی وقتی کلیک میکنم از برنامه خارج میشه لطفا راهنماییم کنین :

Sub btnfav_Click
	Dim cursor3 As Cursor
    cursor3 = SQL1.ExecQuery("SELECT * FROM smstbl")
    Dim btn2 As Button
    btn2=Sender
	cursor3.Position = btn2.Tag
	Dim fav As Int = cursor3.GetInt("fav")
	If fav = 0 Then
	    SQL1.ExecNonQuery("UPDATE smstbl SET fav = 1 WHERE id = "&cursor3.GetInt("id"))
		ToastMessageShow("به علاقه مندی ها اضافه شد",False)
	Else
	    SQL1.ExecNonQuery("UPDATE smstbl SET fav = 0 WHERE id = "&cursor3.GetInt("id"))
		ToastMessageShow("از علاقه مندی ها حذف شد",False)
	End If
End Sub

تو اکتیویتی کریت هم btnfav.tag = i را نوشتم.

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

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

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

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

توی کد اصلیت

bntfav.tag = cur.getint("id")

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

Sub btnfav_Click
	Dim cursor3 As Cursor
   Dim btn2 As Button
    btn2=Sender

    cursor3 = SQL1.ExecQuery("SELECT * FROM smstbl WHERE id = " & btn2.tag)
 	cursor3.Position = 0
dim id as int = cursor3.getint("id")
	Dim fav As Int = cursor3.GetInt("fav")
	If fav = 0 Then
	    SQL1.ExecNonQuery("UPDATE smstbl SET fav = 1 WHERE id = "&id)
		ToastMessageShow("به علاقه مندی ها اضافه شد",False)
	Else
	    SQL1.ExecNonQuery("UPDATE smstbl SET fav = 0 WHERE id = "&id)
		ToastMessageShow("از علاقه مندی ها حذف شد",False)
	End If
End Sub

مشکلی نباید پیش بیاد

کدات مورد خاصی نداره

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

چرا کسی راهنمایی نمیکنه :|

اگه بلد بودم سوال نمیکردم.

سلام

چه اروری میده و خارج میشه؟

یه دیباگ بگیرید ببینید به چه خطی گیر میده

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

سلام

چه اروری میده و خارج میشه؟

یه دیباگ بگیرید ببینید به چه خطی گیر میده

به این خط گیر میده :

cursor3.Position = btn2.Tag
لینک ارسال
به اشتراک گذاری در سایت های دیگر

درود

شما یک قسمت اومدید گفتید :

cursor3.Position = btn2.Tag

بعدش اومدید گفتید :

SQL1.ExecNonQuery("UPDATE smstbl SET fav = 1 WHERE id = "&cursor3.GetInt("id"))

خب این where id = folan یعنی اینکه باید position = 0 باشه

مشکل از همین قسمت هستش احتمالا

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

درود

شما یک قسمت اومدید گفتید :

cursor3.Position = btn2.Tag

بعدش اومدید گفتید :

SQL1.ExecNonQuery("UPDATE smstbl SET fav = 1 WHERE id = "&cursor3.GetInt("id"))

خب این where id = folan یعنی اینکه باید position = 0 باشه

مشکل از همین قسمت هستش احتمالا

میشه بیشتر توضیح بدید باید چیکار کنم؟

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

بایگانی شده

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

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

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