سلام من میخام برای برنامه یه لیست علاقه مندی درست کنم و یک باتون دارم که با زدن اون دیتابیس رو اپدیت میکنه و یکی ازفیلد ها که اینتگر و عدد درون اون صفر هست رو یک میکنه و بعد در صفحه علاقه مندی اونهایی که 1 هست رو فراخوانی میکنم
اما تو همون قسمت که میخام به علاقه مندی اضافه بشه موقع اجرا ارور میده اینم کد هام:
farakhani1.FarakhaniMatn("clash",SQL1,Cursor1,"SELECT * FROM acount Where id=1",ListViewValue,label2,"matn") farakhani1.FarakhaniImage("clash",SQL1,Cursor1,"SELECT * FROM acount Where id=1",ListViewValue,"aks",bitmap1) ImageView1.Bitmap=bitmap1 label2.Gravity = Gravity.RIGHT label2.TextColor = Colors.LightGray label2.Gravity = Gravity.RIGHT Labelmatn.Typeface=Typeface.LoadFromAssets("BNazanin.ttf") ScrollView1.Panel.AddView(label2,10%x,0%y,80%x,200%y) Dim ts As TextSetting ts.Initialize ts.LongText(label2,label2.Text,25,ScrollView1,2)
Sub btnfavorite_click Dim cur As Cursor cur = SQL1.ExecQuery ("SELECT * FROM acount WHERE id= ") cur.Position=0 If btnfavorite.Visible = False Then
SQL1.ExecNonQuery("UPDATE SET mark=1 WHERE id=") btnfavorite.Visible = True ToastMessageShow("به علاقه مندی ها اضافه شد",False) Else SQL1.ExecNonQuery("UPDATE SET mark=0 WHERE id=") btnfavorite.Visible = False End If
End Sub
اسم دیتابیس هم clash.db و اسم تیبل هم gem و اون فیلد هم که گذاشتم برا اپدیت mark
سوال
mohsen.gh 48
سلام من میخام برای برنامه یه لیست علاقه مندی درست کنم و یک باتون دارم که با زدن اون دیتابیس رو اپدیت میکنه و یکی ازفیلد ها که اینتگر و عدد درون اون صفر هست رو یک میکنه و بعد در صفحه علاقه مندی اونهایی که 1 هست رو فراخوانی میکنم
اما تو همون قسمت که میخام به علاقه مندی اضافه بشه موقع اجرا ارور میده اینم کد هام:
farakhani1.FarakhaniMatn("clash",SQL1,Cursor1,"SELECT * FROM acount Where id=1",ListViewValue,label2,"matn")
farakhani1.FarakhaniImage("clash",SQL1,Cursor1,"SELECT * FROM acount Where id=1",ListViewValue,"aks",bitmap1)
ImageView1.Bitmap=bitmap1
label2.Gravity = Gravity.RIGHT
label2.TextColor = Colors.LightGray
label2.Gravity = Gravity.RIGHT
Labelmatn.Typeface=Typeface.LoadFromAssets("BNazanin.ttf")
ScrollView1.Panel.AddView(label2,10%x,0%y,80%x,200%y)
Dim ts As TextSetting
ts.Initialize
ts.LongText(label2,label2.Text,25,ScrollView1,2)
Sub btnfavorite_click
Dim cur As Cursor
cur = SQL1.ExecQuery ("SELECT * FROM acount WHERE id= ")
cur.Position=0
If btnfavorite.Visible = False Then
SQL1.ExecNonQuery("UPDATE SET mark=1 WHERE id=")
btnfavorite.Visible = True
ToastMessageShow("به علاقه مندی ها اضافه شد",False)
Else
SQL1.ExecNonQuery("UPDATE SET mark=0 WHERE id=")
btnfavorite.Visible = False
End If
End Sub
اسم دیتابیس هم clash.db و اسم تیبل هم gem و اون فیلد هم که گذاشتم برا اپدیت mark
لطفا راهنمایی کنید ممنون
لینک ارسال
به اشتراک گذاری در سایت های دیگر
6 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.