علاقه مندی

[love 15]

سلام ببخشید باز یه سوال دیگه

من چند تا جدول داشتم که یکیشون کردم حالا میخوام علاقه مندی درست کنم واسشون ارور نداره ولی وقتی که بار اول میرم تو اکتیویتی های بخش های مختلف برنامم و علاقه مندی شون میکنم برای بار اول میاد تو صفحه علاقه مندی ولی وقتی صفحه رو میبندم و میرم دوباره یکی دیگه رو علاقه مندی کنم وقتی برمیگردم خالیه هیچی نیست نمیدونم مشکلش چیه

listview1.Initialize("ListView1") 
  Activity.AddView(listview1,0,0,100%x,100%y)
   Activity.SetBackgroundImage(LoadBitmap(File.DirAssets,"a.jpg"))
   listview1.SingleLineLayout.Label.Gravity = Gravity.CENTER
   listview1.SingleLineLayout.Label.TextColor = Colors.Black
   If File.Exists(File.DirInternal,"database2.db") = False Then
       File.Copy(File.DirAssets,"database2.db",File.DirInternal,"database2.db")
   End If


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

Dim cur As Cursor
   cur=sql1.ExecQuery("SELECT * FROM asli WHERE fav = 1")
For i=0 To cur.RowCount-1
cur.Position=i
listview1.AddSingleLine2(cur.GetString("list"),cur.GetInt("id"))
Next

[dostmobile 329]

خوبه حداقل اینارو بلدی

منکه هنو دارم پایگاه داده رو کار میکنم

الان بکس انجمن میان و جواب میدن

[Farzad Musavi 576]

سلام ببخشید باز یه سوال دیگه

من چند تا جدول داشتم که یکیشون کردم حالا میخوام علاقه مندی درست کنم واسشون ارور نداره ولی وقتی که بار اول میرم تو اکتیویتی های بخش های مختلف برنامم و علاقه مندی شون میکنم برای بار اول میاد تو صفحه علاقه مندی ولی وقتی صفحه رو میبندم و میرم دوباره یکی دیگه رو علاقه مندی کنم وقتی برمیگردم خالیه هیچی نیست نمیدونم مشکلش چیه

listview1.Initialize("ListView1") 
  Activity.AddView(listview1,0,0,100%x,100%y)
   Activity.SetBackgroundImage(LoadBitmap(File.DirAssets,"a.jpg"))
   listview1.SingleLineLayout.Label.Gravity = Gravity.CENTER
   listview1.SingleLineLayout.Label.TextColor = Colors.Black
   If File.Exists(File.DirInternal,"database2.db") = False Then
       File.Copy(File.DirAssets,"database2.db",File.DirInternal,"database2.db")
   End If


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

Dim cur As Cursor
   cur=sql1.ExecQuery("SELECT * FROM asli WHERE fav = 1")
For i=0 To cur.RowCount-1
cur.Position=i
listview1.AddSingleLine2(cur.GetString("list"),cur.GetInt("id"))
Next

سلام اونجایی که فایل دیتا بیس رو از پوشه فایل کپی میکنی به اینترنال کدش رو بزار احتمال زیاد مشکل داره و با هر بار اجرا کپی میشه و دیتا بیس جدیدت پاک میشه

خوبه حداقل اینارو بلدی

منکه هنو دارم پایگاه داده رو کار میکنم

الان بکس انجمن میان و جواب میدن

*خنده* بجا اسپم کتابو کامل کن*خنده*

[love 15]

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

این شکل کد جدید که زدم ولی باز کار نکرد

If sql1.IsInitialized = False Then		sql1.Initialize(File.DirInternal,"database2.db",True)
End If
If sql1.IsInitialized = False Then
	sql1.Initialize(File.DirInternal,"database2.db",True)
End If

cur=sql1.ExecQuery("SELECT * FROM asli WHERE fav = 1")
For i=0 To cur.RowCount-1
cur.Position=i
listview1.AddSingleLine2(cur.GetString("list"),cur.GetInt("id"))
Next

[Farzad Musavi 576]

تست کن ببین دیتا بیست تغییر میکنه ولی تو لیست نمیاد یا کلا دیتابیس تغییر نمیکنه؟

یه نکته هم برا برنامه های بعدیت یادت باشه برا برنامه ای مث برنامه ی تو فوقش 3 یا 4 تا اکتیویتی بیشتر لازم نیس وقتی برنامه شلوغ شه خطاهاشم زیاد میشه

[love 15]

نگاه کردم دیتابیسم تغییر نکرده اصلا شاید به خاطر همینه نشون نمیده این کد اپدیتم هست

Dim cur As Cursor    cur = lak.sql1.ExecQuery("SELECT * FROM asli WHERE daste='lak'")
cur.Position=lak.m 
 Dim f As Int =cur.GetInt("fav")
   If f = 1 Then


   lak.sql1.ExecNonQuery("UPDATE asli SET fav = 0 WHERE id = "&cur.GetInt("id"))




   ToastMessageShow("از لیست علاقه مندی ها حذف شد",False)
   s.Initialize(LoadBitmap(File.DirAssets,"zx.png"))
button3.Background=s


   Else If f = 0 Then
  lak.sql1.ExecNonQuery("UPDATE asli SET fav = 1 WHERE id = "&cur.GetInt("id"))


   ToastMessageShow("به لیست علاقه مندی ها اضافه شد",False)
a.Initialize(LoadBitmap(File.DirAssets,"y.png"))
button3.Background=a
   End If
   cur.Close

[Farzad Musavi 576]

چطور نگاه کردی فایلی که تو پوشه فایل هست رو نباید نگا کنیا

مثلا به جای عنوان فیلد علاقه مندی رو تو لیستت بیار ببین عدداش جوری که خواستی تغییر کردن یا نه

[love 15]

تغییر میکنه ولی اگه مثلا

[color=#333333][i]cur=esmeactivati.sql1.ExecQuery("SELECT * FROM asli WHERE fav = 1")[/i][/color]For i=0 To cur.RowCount-1
cur.Position=i
listview1.AddSingleLine2(cur.GetString("list"),cur.GetInt("id")) [color=#333333][i]Next[/i][/color]

بغل اسکیوال اسم اکتیویتی که میخوام علاقه مندی بشه رو میزارم مرتب همه رو میاره پاکم نمیشه اینجور میشه ولی باید واسه 12 تا اکتیویتی هام 12 تا علاقه مندی بسازم نمیدونم چکار کنم یعنی چرا اینجوریه اخه میره اولین اکتیویتی که علاقه مندی کردم همشو میاره بعد دیگه از او تابعیت میکنه هر اکتیویتی که علاقه مندی میکنم نشون نمیده اخه دلیلش چیه *گریه*

[Farzad Musavi 576]

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

[love 15]

نمی دونم فقط اکتیویتی که اول علاقه مندی شده رو قبول میکنه بقیه رو نشون نمیده

If File.Exists(File.DirInternal,"database2.db") = False Then		File.Copy(File.DirAssets,"database2.db",File.DirInternal,"database2.db")
End If
If sql1.IsInitialized = False Then
	sql1.Initialize(File.DirInternal,"database2.db",True)
End If
If sql1.IsInitialized = False Then
	sql1.Initialize(File.DirInternal,"database2.db",True)
End If
cur=sql1.ExecQuery("SELECT * FROM asli WHERE fav = 1")
For i=0 To cur.RowCount-1
cur.Position=i
listview1.AddSingleLine2(cur.GetString("list"),cur.GetInt("id"))
Next

[Farzad Musavi 576]

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

[love 15]

نمیدونم چطور میتونم بفرستم چون روی تنظیمات اضافی میزنم هیچ گزینه ندارم واسه attach کردن فایل اصلا تو اضافه کردن عکس هم که میزنم سربرگ کامپیوتر هیچی نیست که بتونم انتخاب کنم

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

[Farzad Musavi 576]

میتونی تو یه جا آپلود کنی بزاری

در هر صورت

[email protected]

[love 15]

سورس برنامم رو به ایمیلتون ارسال کردم لطفا نگاه کنید خیلی خیلی ممنون