Sub Process_Globals
Dim SQL1 As SQL
End Sub
Sub Globals
End Sub
Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
SQL1.Initialize(File.DirRootExternal,"test.db", True)
End If
createtables
PopulateTable
displayRecords
End Sub
Sub PopulateTable
SQL1.ExecNonQuery2("INSERT INTO t1 VALUES (?,?,?)", Array As Object( 0,"11/10/2017 12:00 PM", 5))
SQL1.ExecNonQuery2("INSERT INTO t1 VALUES (?,?,?)", Array As Object( 1,"11/1/2017 1:00 AM", 10))
SQL1.ExecNonQuery2("INSERT INTO t1 VALUES (?,?,?)", Array As Object( 2,"6/7/2016 4:25 PM", 10))
SQL1.ExecNonQuery2("INSERT INTO t1 VALUES (?,?,?)", Array As Object( 7,"10/30/2014 5:06:12 PM", 37))
SQL1.ExecNonQuery2("INSERT INTO t1 VALUES (?,?,?)", Array As Object( 10,"10/28/2014 7:22:52 PM", 87))
SQL1.ExecNonQuery2("INSERT INTO t1 VALUES (?,?,?)", Array As Object( 11,Null, 46))
SQL1.ExecNonQuery2("INSERT INTO t1 VALUES (?,?,?)", Array As Object( 13,"8/8/2014 1:13 PM", 33))
SQL1.ExecNonQuery2("INSERT INTO t1 VALUES (?,?,?)", Array As Object( 15,"", 81))
End Sub
Sub createtables
SQL1.ExecNonQuery("DROP TABLE IF EXISTS t1")
SQL1.ExecNonQuery("CREATE TABLE t1 (id INTEGER PRIMARY KEY , estdate DATETIME, points INTEGER)")
' SQL1.ExecNonQuery("CREATE TABLE t1 (id INTEGER PRIMARY KEY , estdate TEXt, points INTEGER)") 'this line works too
End Sub
Sub displayRecords
Dim cursor1 As Cursor
Dim MyQuery As String
'BELOW STATEMNET WORKS If SQLite version supports instr function:
MyQuery="SELECT substr(estdate,1,instr(estdate,' ')-1) as mdy from t1 " _
& "WHERE estdate Is Not NULL AND estdate <> '' "
cursor1=SQL1.ExecQuery(MyQuery)
For i=0 To cursor1.RowCount-1
cursor1.Position=i
Log( cursor1.GetString("mdy") )
Next
'End Sub