عدم ذخیره اطلاعات در دیتابیس

[reza azimi 0]

سلام من میخوام دیتابیس اپدیت کنم ولی اطلاعات در دیتابیس ذخیره نمیشه لطفا راهنمایی کنید؟

 Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
    Private img As ImageView

    Dim sql1 As SQL
    Dim cur As Cursor

    Dim str As String
    
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    'Activity.LoadLayout("Layout1")


File.Copy(File.DirAssets,"test.db",File.DirInternal,"test.db")
sql1.Initialize(File.DirInternal,"test.db",False)


img.Initialize("img")

Activity.AddView(img,10%x,10%y,50%x,50%y)

 

 

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

 

 


Sub Img_Click
str=1
    sql1.ExecNonQuery("UPDATE tbl SET int="&str&" where id=1")
    
    
    
End Sub 

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

 

 

Sub img_Click

	'''اپدیت وویرایش دیتابیس
	str=1
	sql1.ExecNonQuery("UPDATE tbl SET int="&str&" where id=1")
    
	''''''''''''نمایش اطلاعات دیتابیس
	Dim Cursor As Cursor
	Cursor = sql1.ExecQuery("SELECT id, int FROM tbl")
	For i = 0 To Cursor.RowCount - 1
		Cursor.Position = i
		Log(Cursor.GetString("id")&" - "&Cursor.GetInt("int"))
		
	Next
    
End Sub

 

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

[Salar82 919]

در ۱۴۰۰/۵/۵ در ۱۰:۵۳، reza azimi گفته است:

File.Copy(File.DirAssets,"test.db",File.DirInternal,"test.db")
sql1.Initialize(File.DirInternal,"test.db",False)

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

شما قبل از این دو خط باید بررسی کنید که اگر این فایل در DirInternal وجود نداشت، بیاد فایل رو کپی کنه. طبق این کدی که نوشتین، هر سری که برنامه اجرا میشه میاد دیتابیس خام رو جایگزین دیتابیس قبلی می‌کنه که عملاً انگار هیچ اتفاقی نیفتاده. باید به این صورت باشه:

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

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

 

 

موفق باشید