مشکل کار با پایگاه داده

[مسعود دلفان آذری 52]

سلام دوستان عزیز؛

خواهش میکنم اگه چیزی میدونین، راهنماییم کنین.

من یک پایگاه داده دارم و اونو به برنامه متصل کردم. توو یک اکتیویتی مشخص، با یک فرمان، یک عدد وارد پایگاه داده می کنم (عدد توو لیست ویو نمایش داده میشه)، ولی اگه به یک اکتیویتی دیگه برم و بر گردم، عدد وارد شده پاک میشه. من از این کد استفاده کردم:

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

SQL1.Initialize(File.DirInternal,"sqldata.db",True)

اومدم به یه طریق دیگه کد رو نوشتم:

If File.Exists(File.DirInternal,"sqldata.db")=False Then

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

End If

If sql1.IsInitialized=False Then

sql1.Initialize(File.DirInternal,"sqldata.db",False)  

End If

الان مشکل اینجاست که وقتی از برنامه خارج میشم و دوباره برنامه رو اجرا میکنم، بازم اطلاعات توو جدول هست. من میخوام از برنامه خارج شدم، اطلاعاتی که وارد کردم، پاک شه ولی وقتی بین اکتیویتی ها جابجا میشم، اطلاعات باقی بمونه. تو رو خدا کمکم کنین.

یه سوال دیگه هم دارم:

توو وارد کردن اطلاعات به پایگاه داده یک عدد رو اینجوری وارد میکنن؟

SQL1.ExecNonQuery("UPDATE tbl SET Cover = '4' WHERE ID=1")

عدد 4 باید بین دو تا کوتیشن ('4') باشه؟ یا دو تا گیومه ("4")؟ من بعضی جاها دیدم هم کوتیشن داره هم گیومه (' "4' ")، بعضی جاها هم دیدم فقط کوتیشن داره. فرق اینا چیه؟ لطفا برام توضیح بدین.

با تشکر دوستان.

[Mehdi.s 173]

سلام

شما بجای این چند خط کدتون

در ۱ ساعت قبل، lvlasoud گفته است :

If File.Exists(File.DirInternal,"sqldata.db")=False Then

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

End If

 

این کد رو اضافه کنید

If File.Exists(File.DirInternal,"sqldata.db")=True Then
    File.Delete(File.DirInternal,"sqldata.db")
End If

If File.Exists(File.DirInternal,"sqldata.db")=False Then
    File.Copy(File.DirAssets,"sqldata.db",File.DirInternal,"sqldata.db")  
End If

 

[مسعود دلفان آذری 52]

آقا مهدی ایول عزیزم درست بود.

شمارتو برام بفرست تقدیمتون کنم.

یه دنیا تشکر

[مسعود دلفان آذری 52]

راستی دوستان هر کی پاسخ داد و درست بود، یه کارت شارژ طلبش!! مرد و مردونه!!

[softir 459]

در هم اکنون، مهدی صیدی عشقی گفته است :

سلام

شما بجای این چند خط کدتون

 

این کد رو اضافه کنید

If File.Exists(File.DirInternal,"sqldata.db")=True Then
    File.Delete(File.DirInternal,"sqldata.db")
End If

If File.Exists(File.DirInternal,"sqldata.db")=False Then
    File.Copy(File.DirAssets,"sqldata.db",File.DirInternal,"sqldata.db")  
End If

 

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