Sub SQL_Click
Log("SQL_Click")
'PRAGMA table_info(Test)
File.Copy(File.DirAssets,"test1.db",File.DirInternalCache,"test1.db")
Dim sql1 As SQL
sql1.Initialize(File.DirInternalCache,"test1.db",False)
Dim Cursor As Cursor
Cursor = sql1.ExecQuery("PRAGMA table_info(Test)")
For i = 0 To Cursor.RowCount - 1
Cursor.Position = i
Log(Cursor.GetString("name"))
Log(Cursor.GetString("type"))
Next
End Sub