Sub Class_Globals
Private cMP As B4XMainPage
Public SQLMain As SQLCipher
Public SQLNon_Clinical As SQLCipher
Public SQL_KVS As SQLCipher
Public SQL_MapnikOSM2 As SQLCipher
Public SQL_NewDB As SQLCipher 'this is only for temp database copying
Type tDataBase(None As Int, _
Main As Int, _
NON_CLINICAL As Int, _
KVS As Int, _
MapnikOSM2 As Int, _
NewDB As Int)
Public eDataBase As tDataBase
eDataBase.None = 0
eDataBase.Main = 1
eDataBase.NON_CLINICAL = 2
eDataBase.KVS = 3
eDataBase.MapnikOSM2 = 4
eDataBase.NewDB = 5
End Sub
Sub ExecQueryAsync(strEventName As String, strSQL As String, lstArgs As List) As Object
Select Case miDataBase
Case eDataBase.Main
Return SQLMain.ExecQueryAsync(strEventName, strSQL, lstArgs)
Case eDataBase.NON_CLINICAL
Return SQLNon_Clinical.ExecQueryAsync(strEventName, strSQL, lstArgs)
Case eDataBase.KVS
Return SQL_KVS.ExecQueryAsync(strEventName, strSQL, lstArgs)
Case eDataBase.MapnikOSM2
Return SQL_MapnikOSM2.ExecQueryAsync(strEventName, strSQL, lstArgs)
Case eDataBase.NewDB
Return SQL_NewDB.ExecQueryAsync(strEventName, strSQL, lstArgs)
Case Else
Return Null
End Select
End Sub
Sub Vacuum_QueryComplete(bSuccess As Boolean, oRS As ResultSet)
Log("Vacuum_QueryComplete, bSuccess: " & bSuccess)
Tracker.bNoTracking = False
CallSubDelayed(Tracker, "StopTracker")
cMP.cSQLEdit.lblSQLResult.Text = "Finished vacuum, " & cMP.FormatMilliSecs(cMP.stopsw(4), False)
End Sub