لیست علاقه مندی ها

[reza644 435]

سلام

 

من میخوام وقتی رو یه آیتم long click کنم به لیست علاقه مندی ها بره

 

الان من وقتی رو گزینه مربوط long click میکنم فقط یه گزینه رو نشون میده

 

من میخوام همه آیتم هایی روکه fave اونا بیشتر از 0 هست رو نشون بده

Sub ListView1_ItemLongCliCk (Position As Int, Value As Object)
	    Dim cursor1 As Cursor
	    cursor1 = Main.sql1.ExecQuery("SELECT * FROM smatn")
		cursor1.Position = Value - 1
		Dim fave As Int = cursor1.GetInt("fave")
		Dim num As Int = cursor1.GetInt("id")
		If fave = 0 Then		
			Main.sql1.ExecNonQuery("UPDATE smatn SET fave = 1 WHERE id=" & num)
			ToastMessageShow("به علاقه مندی ها اضافه شد!!!",False)
		Else
			Main.sql1.ExecNonQuery("UPDATE smatn SET fave = 0 WHERE id=" & num)
			ToastMessageShow("از علاقه مندی ها حذف شد!", False)
		End If

Sub Activity_Create(FirstTime As Boolean)
	 Activity.LoadLayout("fave")
	 ListView1.AddSingleLine2(Main.Cur.GetString("titr"),Main.cur.GetInt("fave"))
	 ListView1.SingleLineLayout.Label.Gravity=Gravity.CENTER
	 ListView1.SingleLineLayout.Label.TextColor=Colors.White
	 ListView1.SingleLineLayout.Label.TextSize = 28 
	 
End Sub

[amirsafari 116]

Sub ListView1_ItemLongCliCk (Position As Int, Value As Object)
	    Dim cursor1 As Cursor
	    cursor1 = sql1.ExecQuery("SELECT * FROM smatn")
		cursor1.Position = position
		Dim fave As Int = cursor1.GetInt("fave")
		Dim num As Int = cursor1.GetInt("id")
		If fave = 0 Then		
			Main.sql1.ExecNonQuery("UPDATE smatn SET fave ='"& 1 &"' WHERE id=" & num)
			ToastMessageShow("به علاقه مندی ها اضافه شد!!!",False)
		Else
			Main.sql1.ExecNonQuery("UPDATE smatn SET fave ='"& 0 &"' WHERE id='"& num)
			ToastMessageShow("از علاقه مندی ها حذف شد!", False)
		End If

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

[محمد رشوند 1,208]

 

سلام

 

من میخوام وقتی رو یه آیتم long click کنم به لیست علاقه مندی ها بره

 

الان من وقتی رو گزینه مربوط long click میکنم فقط یه گزینه رو نشون میده

 

من میخوام همه آیتم هایی روکه fave اونا بیشتر از 0 هست رو نشون بده

Sub ListView1_ItemLongCliCk (Position As Int, Value As Object)
	    Dim cursor1 As Cursor
	    cursor1 = Main.sql1.ExecQuery("SELECT * FROM smatn")
		cursor1.Position = Value - 1
		Dim fave As Int = cursor1.GetInt("fave")
		Dim num As Int = cursor1.GetInt("id")
		If fave = 0 Then		
			Main.sql1.ExecNonQuery("UPDATE smatn SET fave = 1 WHERE id=" & num)
			ToastMessageShow("به علاقه مندی ها اضافه شد!!!",False)
		Else
			Main.sql1.ExecNonQuery("UPDATE smatn SET fave = 0 WHERE id=" & num)
			ToastMessageShow("از علاقه مندی ها حذف شد!", False)
		End If

Sub Activity_Create(FirstTime As Boolean)
	 Activity.LoadLayout("fave")
	 ListView1.AddSingleLine2(Main.Cur.GetString("titr"),Main.cur.GetInt("fave"))
	 ListView1.SingleLineLayout.Label.Gravity=Gravity.CENTER
	 ListView1.SingleLineLayout.Label.TextColor=Colors.White
	 ListView1.SingleLineLayout.Label.TextSize = 28 
	 
End Sub

خب شما کوئری گرفتین برای اینکه نمایش بده به این صورت

	Dim cur As Cursor
	cur=s.ExecQuery("SELECT * FROM smatn WHERE fav=1")

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

[reza644 435]

 نشد

[parham01 82]

سلام دوست عزیز از کد زیر استفاده کنید

fara.SingleLineTitr("esme data base.db",sql2,cur,"SELECT * FROM tbl Where fave= 1",LV,"name","ID")

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

این کد از کتابخانه فراخوانی استفاده میکنه

میاد گزینه هایی که fave= 1 رو تو لیست ویویی به اسم LV نشون میده

[reza644 435]

نتونستنم

 

روش های زیادی امتحان کردم

 

اگه یکی کد های کاملشو بده ممنون میشم

[amirsafari 116]

در ضمن دستور آپدیت برای دیتا بیس باید دقت کنی که وقتی میخوای با مقدار کار کنی به صورت زیر باشه

("UPDATE DATA SET ;"& VALUE &"' WHERE X='"& VALUE2 &"'")Main.sql1.ExecNonQuery