مشکلی که داریم این است که علاقه مندی رو درست کردم ولی مثلاً وقتی مطلب جدید رو به عنوان علاقه مندی قرار میدهم مطلب قبلی خود به خود از علاقه مندی حذف میشود
sub Button1_Click
cursor1 = menu.sql1.ExecQuery("SELECT * FROM tbl WHERE id = "&menu.megdar)
cursor1.Position = 0
Dim isFave As Int = cursor1.GetInt("fav")
If isFave = 1 Then
menu.sql1.ExecNonQuery("UPDATE tbl SET fav = '0' WHERE id = "&menu.megdar)
ToastMessageShow("خروج از علاقه مندی",False)
else If isFave = 0 Then
menu.sql1.ExecNonQuery("UPDATE tbl SET fav = '1' WHERE id = "&menu.megdar)
ToastMessageShow("ورود به علاقه مندی",False)
End If
End Sub
سوال
majid22012 2
سلام خدمت دوستان و استادید گرامی
مشکلی که داریم این است که علاقه مندی رو درست کردم ولی مثلاً وقتی مطلب جدید رو به عنوان علاقه مندی قرار میدهم مطلب قبلی خود به خود از علاقه مندی حذف میشود
sub Button1_Click cursor1 = menu.sql1.ExecQuery("SELECT * FROM tbl WHERE id = "&menu.megdar) cursor1.Position = 0 Dim isFave As Int = cursor1.GetInt("fav") If isFave = 1 Then menu.sql1.ExecNonQuery("UPDATE tbl SET fav = '0' WHERE id = "&menu.megdar) ToastMessageShow("خروج از علاقه مندی",False) else If isFave = 0 Then menu.sql1.ExecNonQuery("UPDATE tbl SET fav = '1' WHERE id = "&menu.megdar) ToastMessageShow("ورود به علاقه مندی",False) End If End Subبا تشکر
لینک ارسال
به اشتراک گذاری در سایت های دیگر
6 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.