'Non-UI application (console / server application)
#Region Project Attributes
#CommandLineArgs:
#MergeLibraries: True
#End Region
#AdditionalJar: sqlite-jdbc-3.39.3.0
Sub Process_Globals
Dim DB As SQL
End Sub
Sub AppStart (Args() As String)
Log("** Test Begin **")
RunStressTest
StartMessageLoop
End Sub
Sub RunStressTest
If File.Exists(File.DirApp, "Data.db") = False Then
DB.InitializeSQLite(File.DirApp, "Data.db", True)
Dim Query As String = "CREATE TABLE Test (id INTEGER)"
DB.ExecNonQuery(Query)
Dim Query As String = "INSERT INTO Test (id) VALUES (100)"
DB.ExecNonQuery(Query)
Else
DB.InitializeSQLite(File.DirApp, "Data.db", False)
End If
Dim Query As String = "SELECT id + ? + ? FROM Test"
For i = 0 To 100000
Dim Result As Long
If i = 10 Then
Result = DB.ExecQuerySingleResult2(Query, Array As Int(1000))
Else
Result = DB.ExecQuerySingleResult2(Query, Array As Int(1000, i))
End If
Log(i & " -> " & Result)
Next
DB.Close
Log("** Test End **")
End Sub