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

[qasem 249]

سلام دوستان یه برنامه پیامکی دارم، میخوام وقتی روی دکمه علاقه مندی ها میزنم فقط همون پیامک اضافه بشه به لیست علاقه مندی ها نه کل پیامک های یک فصل! لطفا راهنمایی کنید؟
میدونم باید از تگ استفاده کنم اما نمیدونم چجوری؟

 

 

 

 

Sub favorit_Click
	
'	Dim b As Button = Sender
	
	cur = ketab.db.ExecQuery("SELECT * FROM tbl WHERE fasl = '" & fasl.meghdar3 & "'")
	cur.Position =0
	
	
	If cur.GetInt("favorite") = 0 Then
		ketab.db.ExecNonQuery("UPDATE tbl SET favorite = 1 WHERE fasl = '" & fasl.meghdar3 & "'")
		
		favorit.Text=Chr(0xF004)
		ToastMessageShow("به لیست برگزیده ها اضافه شد!",False)	
	Else
		ketab.db.ExecNonQuery("UPDATE tbl SET favorite = 0 WHERE fasl = '" & fasl.meghdar3 & "'")
		favorit.Text=Chr(0xF08A)
		ToastMessageShow("از لیست برگزیده ها حذف شد!",False)

	End If
End Sub

[mohammad3250 206]

 شما میتونی تگ رو برابر با id اون اس ام اس قرار بدی و بعدش علاقه مندی اونو به مثلا به عدد 1 تغییر بدی

Sub favorit_Click
	
'	Dim b As Button = Sender
	
	cur = ketab.db.ExecQuery("SELECT * FROM tbl WHERE id = '" & b & "'")
	cur.Position =0
	
	
	If cur.GetInt("favorite") = 0 Then
		ketab.db.ExecNonQuery("UPDATE tbl SET favorite = 1 WHERE id = '" & b & "'")
		
		favorit.Text=Chr(0xF004)
		ToastMessageShow("به لیست برگزیده ها اضافه شد!",False)	
	Else
		ketab.db.ExecNonQuery("UPDATE tbl SET favorite = 0 WHERE id = '" & b & "'")
		favorit.Text=Chr(0xF08A)
		ToastMessageShow("از لیست برگزیده ها حذف شد!",False)

	End If
End Sub

 

[A3175 0]

آموزش زبان برنامه نویسی جاوا صفر تا صد رایگان رایگان اینجا ببنید

[qasem 249]

در 5 ساعت قبل، mohammad3250 گفته است :

 شما میتونی تگ رو برابر با id اون اس ام اس قرار بدی و بعدش علاقه مندی اونو به مثلا به عدد 1 تغییر بدی

Sub favorit_Click
	
'	Dim b As Button = Sender
	
	cur = ketab.db.ExecQuery("SELECT * FROM tbl WHERE id = '" & b & "'")
	cur.Position =0
	
	
	If cur.GetInt("favorite") = 0 Then
		ketab.db.ExecNonQuery("UPDATE tbl SET favorite = 1 WHERE id = '" & b & "'")
		
		favorit.Text=Chr(0xF004)
		ToastMessageShow("به لیست برگزیده ها اضافه شد!",False)	
	Else
		ketab.db.ExecNonQuery("UPDATE tbl SET favorite = 0 WHERE id = '" & b & "'")
		favorit.Text=Chr(0xF08A)
		ToastMessageShow("از لیست برگزیده ها حذف شد!",False)

	End If
End Sub

 

ارور میده

[mohammad3250 206]

عزیز کد مربوط به تگ بزار و کتیشن خط اولم بردار

[qasem 249]

در 3 ساعت قبل، mohammad3250 گفته است :

عزیز کد مربوط به تگ بزار و کتیشن خط اولم بردار

متوجه نشدم دقیق تر بیان کنید یا کد را اصلاح کنید ممنون