private Sub readSqlite
Dim sql As SQL
Dim rs As ResultSet
sql.Initialize(File.DirInternal, "testsql.db", False)
'File.Delete(File.DirInternal, "testsql.db")
If File.Exists(File.DirInternal, "testsql.db")= True Then
ToastMessageShow("File exists ... ", True)
Else
ToastMessageShow("File doesn't exist ... ", True)
End If
' sql.ExecQuery("SELECT * FROM liste")
rs = sql.ExecQuery("SELECT * FROM liste LIMIT 10")
For i = 0 To 10
rs.Position = i
ListView.AddSingleLine(rs.GetString("Col1"))
Next
rs.Close
End Sub