رفتن به مطلب

بایگانی شده

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

  • 0
qasem

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

سوال

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

Unt1itled.png

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


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

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

پست های پیشنهاد شده

mohammad3250    199

 شما میتونی تگ رو برابر با 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

 

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
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

 



ارور میده

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
qasem    249
در 3 ساعت قبل، mohammad3250 گفته است :

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

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

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


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

×
×
  • جدید...