سیو نشدن دیتابیس

[ariyan791 10]

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

Sub Process_Globals
	Dim sql1 As SQL
	Dim cur1 As Cursor
	Dim minute As String
	Dim hour As String
	Dim day As String
	Dim month As String
End Sub

Sub Activity_Create(FirstTime As Boolean)
	If FirstTime Then
	File.Copy(File.DirAssets,"my.db",File.DirInternal,"my.db")
	End If

cur1.IsInitialized
sql1.Initialize(File.DirInternal,"my.db",True)
cur1 = sql1.ExecQuery("SELECT * FROM mn")
cur1.Position  = 0
minute = cur1.GetString("minute")
hour   = cur1.GetString("hour")
day    = cur1.GetString("day")
month  = cur1.GetString("month")

Msgbox(minute & hour & day & month,"")

End Sub

و تو دومی :

Sub Process_Globals
	Dim sql1 As SQL
	Dim day As String = "1"
	Dim mnt As String = "2"
	Dim minute As String = "3"
	Dim hour As String = "4"
End Sub

Sub Activity_Create(FirstTime As Boolean)

cur1.IsInitialized
sql1.Initialize(File.DirInternal,"my.db",True)
sql1.ExecNonQuery("DELETE FROM mn")
sql1.ExecNonQuery2("INSERT INTO mn VALUES(? ,?, ?, ?, ?)", Array As String(1,minute,hour,day,mnt))
End Sub
  
Sub Button1_Click
  cur1 = sql1.ExecQuery("SELECT * FROM mn")
	cur1.Position  = 0
	Msgbox(cur1.GetString("minute") & cur1.GetString("hour") & cur1.GetString("day") & cur1.GetString("month"),"")
End Sub

که بعد کلیک روی دکمه مقدار ها ۱ ۲ ۳ ۴ رو بهم سالم نشون میده.

طبق این کد بعد بستن برنامه و باز کردنش که اول اکتیویتی اول اجرا میشه،جز بار اول هر بار باید مقدار های ۱۲۳۴ رو تو مسج باکس بهم نشون بده ولی نمیدونم چرا هر بار بهم مقدار null که مقدار اولیه دیتابیس بوده رو میده.کده رو هم که دستکاری کردم ارور میداد.میشه راهنمایی کنید

[manoochehr_sh 55]

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

بایدچک کنید اگه موجود نبود کپی انجام بشه

[ariyan791 10]

در 25 دقیقه قبل، manoochehr_sh گفته است :

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

بایدچک کنید اگه موجود نبود کپی انجام بشه

ممنون عزیز حل شد

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