رفتن به مطلب
برای استفاده از انجمن و عضـویت کلیک کنید.

AnswerCenter

مرکز پاسخگویی به سوالات برنامه نویسی

  • مرجع پاسخگویی
  • تولید آموزش
  • سفارش پروژه

درخواست سفارش پروژه

اطلاعیه

کاربر گرامی

به انجمن برنامه نویسی AnswerCenter.ir خوش آمدید

 برای استفاده از تمامی امکانات سایت لطفا در انجمن عضو شوید


  • 0
qasem

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

سوال

qasem    246

کاربر نیمه فعال

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

 

 

 

 


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 پاسخ به این سوال تا کنون داده شده است

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

  • 0
mohammad3250    182

کاربر رو به رشد

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

 

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0
qasem    246

کاربر نیمه فعال

در 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

 



ارور میده

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0
qasem    246

کاربر نیمه فعال

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

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

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

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


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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

مهمان
پاسخ به این سوال ...

×   شما در حال چسباندن محتوایی با قالب بندی هستید.   حذف قالب بندی

  تنها استفاده از 75 اموجی مجاز می باشد.

×   لینک شما به صورت اتوماتیک جای گذاری شد.   نمایش به عنوان یک لینک به جای

×   محتوای قبلی شما بازگردانی شد.   پاک کردن محتوای ویرایشگر

×   شما مستقیما نمی توانید تصویر خود را قرار دهید. یا آن را اینجا بارگذاری کنید یا از یک URL قرار دهید.


×
×
  • جدید...