عدم دستور آپدیت دیتابیس

[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

[نورنما 613]

سلام

دستورتان درست است ، کد زیر را جایگزین کنید وlog بگیرید 

و دیتابیستونو چک کنید

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

 

[نورنما 613]

ضمنا در ویرایشگر انجمن  علامت (کد) را  بزنید و  همواره کدهاتونو داخل کادر باز شده مخصوص کدها  قرار بدهید