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

[MoniSoft 14]

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

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 را نوشتم.

[shahab.es 5,429]

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

توی کد اصلیت

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

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

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

[MoniSoft 14]

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

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

[shahab.es 5,429]

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

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

سلام

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

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

[MoniSoft 14]

سلام

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

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

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

cursor3.Position = btn2.Tag

[MoniSoft 14]

اقا شهاب واقعا ممنون درست شد 

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

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

درود

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

cursor3.Position = btn2.Tag

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

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

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

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

[MoniSoft 14]

درود

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

cursor3.Position = btn2.Tag

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

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

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

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

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