آپدیت نشدن دیتابیس (مشکل عجیب)

[ha88an 203]

سلام دوستان

من توی برنامم از دیتابیس استفاده میکنم راحت از دستورات select استفاده میکنم ومقدار رکورد هارو بهم نشون میده

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

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

sql1.ExecNonQuery("UPDATE tb3 SET b='szzzz' where a='a'")

گفتم هر وقت فیلد a برابر مقدار a بود بیا مقدار b همون رو بذار szzzz

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

دیتابیس آنلاین یاد دارم آفلاین چرا این بازی ها رو درمیاره :|

 

اینم از کد های activity_create

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("main")
File.Copy(File.DirAssets,"db3.db",File.DirInternal,"db3.db") 'دستور کپی کردن دیتابیس
	sql1.Initialize(File.DirInternal,"db3.db",False)
	cursor1 = sql1.ExecQuery("SELECT * FROM tb3")

[مجید آرتا 5,874]

سلام

طبیعیه که این مشکل بوجود بیاد.چون شما توی رویداد Create  با هر دفعه اجرای برنامه دارید میایید فایل دیتابیس موجود در پوشه Files  رو کپی می کنید

یعنی این کد :

File.Copy(File.DirAssets,"db3.db",File.DirInternal,"db3.db")

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

کدتون رو به این شکل بنویسید :

if File.Exist(File.DirInternal,"db3.db") = False Then
File.Copy(File.DirAssets,"db3.db",File.DirInternal,"db3.db") 
End If

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

موفق باشید.