Sub Activity_Create(FirstTime As Boolean)
' If FirstTime Then
' If File.Exists(File.DirInternal,"sql.db") = False Then
' File.Copy(File.DirAssets,"easyverify.db", File.DirInternal, "sql.db")
' End If
' End If
File.Delete(xui.DefaultFolder,"sql.db") ' remove db for testing
sql.Initialize(File.DirInternal, "sql.db", True)
create_tables
add_records
Activity.LoadLayout("Layout")
qry = "select * from products"
Private rs As ResultSet = sql.ExecQuery(qry)
Do While rs.NextRow
' multiline edittext field
EditText1.Text = EditText1.Text & rs.GetString("fname") & CRLF
Loop
End Sub
Sub create_tables
If table_exists("products") = False Then
qry = "CREATE TABLE products (fname TEXT)"
sql.ExecNonQuery2(qry,Null)
End If
End Sub
Public Sub table_exists(table As String) As Boolean
Private rs As ResultSet = sql.ExecQuery2("SELECT name FROM sqlite_master WHERE type='table' AND name=?",Array As String(table))
If rs.RowCount > 0 Then
Return True
Else
Return False
End If
End Sub
Sub add_records
qry = "INSERT INTO products VALUES (?)"
For i = 1 To 3
sql.ExecNonQuery2(qry,Array As String("product " & i))
Next
End Sub