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

[majid08 266]

سلام

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

اینم کد ها

Sub Button5_Click
Dim Position As Int
  Dim Cursor1 As Cursor
  Cursor1=l3.s.ExecQuery("SELECT * FROM Tbl1 WHERE Fasl ")
Cursor1.Position = Position 
     
     Dim check As Int
     check = Cursor1.GetString("Neshan")
     
     If check = 1 Then
	 
         l3.s.ExecNonQuery("UPDATE Tbl1 SET Neshan = 0 WHERE Fasl = "&Cursor1.GetInt("Fasl"))
		   l3.s.IsInitialized
	     Cursor1 =l3.s.ExecQuery("SELECT * FROM Tbl1")
         ToastMessageShow("از علاقه مندی ها حذف شد",False)
     
         
     Else 
	 
           l3.s.ExecNonQuery("UPDATE Tbl1 SET Neshan = 1 WHERE Fasl = "&Cursor1.GetInt("Fasl"))
		   l3.s.IsInitialized
	     Cursor1 =l3.s.ExecQuery("SELECT * FROM Tbl1")
         ToastMessageShow("به علاقه مندی ها اضافه شد",False)
     
     End If
End Sub

[majid08 266]

یعنی هیچ کسی بلد نیست جواب بده؟؟

این کد رو هم گذاشتم همش فقط اولی رو انتخاب میکنه

Dim cur As Cursor
		cur = l3.s.ExecQuery("SELECT * FROM Tbl1")
		cur.Position = 0
		Dim fave As Int= cur.GetInt("Neshan")
		Dim num As Int=cur.GetInt("Fasl")
		If fave = 0 Then		
			l3.s.ExecNonQuery("UPDATE Tbl1 SET Neshan=1 WHERE Fasl=" & num)
			ToastMessageShow("به علاقه مندی ها اضافه شد!!!",False)
		Else
			l3.s.ExecNonQuery("UPDATE Tbl1 SET Neshan = 0 WHERE Fasl=" & num)
			ToastMessageShow("از علاقه مندی ها حذف شد!", False)
		End If	
	
	

[sganji 678]

سلام دوست عزیز

شما سورس رو بذار تا دقیقا بررسی کنم

(کد شما چنتا غلط داره ولی خب این رو بدونید که ما علم غیب نداریم بتونیم با یه تیکه کد حدس بزنیم که)

[majid08 266]

سلام دوست عزیز

شما سورس رو بذار تا دقیقا بررسی کنم

(کد شما چنتا غلط داره ولی خب این رو بدونید که ما علم غیب نداریم بتونیم با یه تیکه کد حدس بزنیم که)

ممنونم براتون  پخ کردم

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