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

[alii 61]

سلام

چجوری با یک کلیک مطلب رو به لیست علاقه مندیها اضافه کنم؟؟ ؟مثلا با کلیک برروی ستاره مطلب به لیست علاقه مندیها اضافه بشه ؟؟؟ ;)

[مهدی ایزدی 9,203]

درود

میتونید به این صورت عمل کنید:

توی Activity Create هم :

Favv=cur1.GetString("Fav")

Dim id As Int
id=cur1.GetString("id")
 If Favv=0 Then
 cur1.Position=0
 sql1.ExecNonQuery("UPDATE book SET Fav = 1 where id ='" & id & "'")
 ToastMessageShow("مطلب مورد نظر با موفقیت به لیست علاقه مندی ها اضافه شد",False)

Fav اسم فیلدی هست که به صورت پیش فرض مقدارش 0 هست

ما میاییم از طریق کوئری UPDATE مقدارش رو به 1 تغییر میدیم.

خیلی ساده هست ...

 

البته کد بالا برای موقعی هست که علاقه مندی داخل خود اون متن هست ...

اگه علاقه مندی توی متن نباشه و توی خود لیست باشه باید برای گرفتن id از روش های دیگه ای مثل Tag و Sender استفاده کنید

[alii 61]

درود

میتونید به این صورت عمل کنید:

توی Activity Create هم :

Favv=cur1.GetString("Fav")

Dim id As Int
id=cur1.GetString("id")
 If Favv=0 Then
 cur1.Position=0
 sql1.ExecNonQuery("UPDATE book SET Fav = 1 where id ='" & id & "'")
 ToastMessageShow("مطلب مورد نظر با موفقیت به لیست علاقه مندی ها اضافه شد",False)

Fav اسم فیلدی هست که به صورت پیش فرض مقدارش 0 هست

ما میاییم از طریق کوئری UPDATE مقدارش رو به 1 تغییر میدیم.

خیلی ساده هست ...

 

البته کد بالا برای موقعی هست که علاقه مندی داخل خود اون متن هست ...

اگه علاقه مندی توی متن نباشه و توی خود لیست باشه باید برای گرفتن id از روش های دیگه ای مثل Tag و Sender استفاده کنید

Sub ImageView2_Click

Dim cur As Cursor

    cur = SQL1.ExecQuery("SELECT * FROM mytable")

    cur.Position = 0

    Dim fav As Int = cur.GetInt("fav")

    If fav = 0 Then

        SQL1.ExecNonQuery("UPDATE mytable SET fav = 1 WHERE id =  "&cur.GetInt("id"))

        ToastMessageShow("به علاقه مندی اضافه شد",False)

    Else

        SQL1.ExecNonQuery("UPDATE mytable SET fav = 0 WHERE id =  "&cur.GetInt("id"))

        ToastMessageShow("حذف شد",False)

    End If

    

End Sub

 

من از این کد استفاده میکنم اما میگه باید object should first initialized

[مهمان]

Sub ImageView2_Click

Dim cur As Cursor

cur = SQL1.ExecQuery("SELECT * FROM mytable")

cur.Position = 0

Dim fav As Int = cur.GetInt("fav")

If fav = 0 Then

SQL1.ExecNonQuery("UPDATE mytable SET fav = 1 WHERE id = "&cur.GetInt("id"))

ToastMessageShow("به علاقه مندی اضافه شد",False)

Else

SQL1.ExecNonQuery("UPDATE mytable SET fav = 0 WHERE id = "&cur.GetInt("id"))

ToastMessageShow("حذف شد",False)

End If

End Sub

من از این کد استفاده میکنم اما میگه باید object should first initialized

این اررو را برای کدوم Object میده ؟ شایان ذکر است که اگر ابجکتی را از طریق کو تعریف میکنید باید اول تابع Initialize را فرابخوانید

[مهدی ایزدی 9,203]

شما مگه cur و SQL1 رو یک بار توی Sub Globals تعریف نکردید؟؟؟

پس دیگه چرا توی رویداد کلیک دارید تعریف میکنید دوباره؟

[alii 61]

شما مگه cur و SQL1 رو یک بار توی Sub Globals تعریف نکردید؟؟؟

پس دیگه چرا توی رویداد کلیک دارید تعریف میکنید دوباره؟

cur و SQL1 تعریف کردم ولی باز فایده نداره

این کد با Ilistview1_ItemLongClick

                                                      جواب میده ولی روی ImageView2_Click ارور میده

[مهدی ایزدی 9,203]

کد سورس کد همون صفحه رو قرار بدید لطفا

مثل من توی تگ کد قرار بدید که راحت تر قابل خوندن باشه ...

[alii 61]

Sub Globals

Private ScrollView1 As ScrollView

Dim matn As Label

Dim ts As TextSetting

Dim SQL1 As SQL

Dim cur As Cursor

Private ImageView2 As ImageView

End Su

Sub Activity_Create(FirstTime As Boolean)

Activity.LoadLayout("scrollview")

Dim cur As Cursor

cur = sandvich.SQL1.ExecQuery("SELECT * FROM mytable WHERE id ="&sandvich.meghdar)

matn.Initialize("")

matn.Gravity = Gravity.RIGHT

matn.TextColor=Colors.Black

matn.Textsize=25

ScrollView1.Panel.AddView(matn,0,2%y,95%x,80%y)

ts.Initialize

For i = 0 To cur.RowCount-1

cur.Position = i

matn.Text = cur.GetString("matn")

Dim img As ImageView

img.Initialize("img")

img.Bitmap=LoadBitmap(File.DirAssets,"food_66.jpg")

Activity.AddView(img,0,15%y,100%x,20%y)

Next

' matn.Typeface = Typeface.LoadFromAssets(File.ReadString(File.DirInternal,"FontType.txt")&".ttf")

ts.LongText(matn,matn.Text,22,ScrollView1,2)

'

End Sub

Sub ImageView2_Click

cur = SQL1.ExecQuery("SELECT * FROM mytable")

cur.Position =0

Dim fav As Int = cur.GetInt("fav")

If fav = 0 Then

SQL1.ExecNonQuery("UPDATE mytable SET fav = 1 WHERE id = "&cur.GetInt("id"))

ToastMessageShow("به علاقه مندی اضافه شد",False)

Else

SQL1.ExecNonQuery("UPDATE mytable SET fav = 0 WHERE id = "&cur.GetInt("id"))

ToastMessageShow("حذف شد",False)

End If

End Sub

[مهمان]

دوست عزیز مشکل اینجاست که شما باید تابع Sql1.Initialize را فرا بخوانید و ادرس دیتابیس را بهش بدید

[alii 61]

دوست عزیز مشکل اینجاست که شما باید تابع Sql1.Initialize را فرا بخوانید و ادرس دیتابیس را بهش بدید

اگه میشه کد بالا رو برام اصلاحش کن !ممنون

[sganji 678]

اگه میشه کد بالا رو برام اصلاحش کن !ممنون

 

لازم به اصلاح نیست شما بعد از لود کردن لایوت بنویس:

sql1.Initialize(File.DirInternal,"name.db",True)

بجای اون name.db هم اسم دیتابیست رو بنویس(البته قبلش باید تو Internal کپی کرده باشی)

[alii 61]

 

لازم به اصلاح نیست شما بعد از لود کردن لایوت بنویس:

sql1.Initialize(File.DirInternal,"name.db",True)

بجای اون name.db هم اسم دیتابیست رو بنویس(البته قبلش باید تو Internal کپی کرده باشی)

 

دستت درد نکنه حل شد

از دوستان هم تشکر