If SQL1.IsInitialized=False Then
SQL1.Initialize (File.DirDefaultExternal & "/data","cfg.sqlite",False)
End If
VersionDb="0"
SqlString="Select valor from config where modulo='myapp.main' and variable='VersionDb'"
Dr=SQL1.ExecQuery(SqlString)
If Dr.RowCount >0 Then
Dr.Position =0
VersionDb =Dr.GetString("valor")
End If
Dr.Close
If VersionDb < "1" Then
If SQL2.IsInitialized=False Then
SQL2.Initialize (File.DirDefaultExternal & "/data","rdbk.sqlite",False)
End If
SqlString="CREATE INDEX main.runtrack1 ON roadbooklineas (idruta ASC, paso ASC)"
Try
SQL2.ExecNonQuery(SqlString)
Catch
Log (LastException.Message )
End Try
SqlString="CREATE INDEX main.runtrack2 ON roadbooklineas (guid ASC, paso ASC)"
Try
SQL2.ExecNonQuery(SqlString)
Catch
Log (LastException.Message )
End Try
SqlString="CREATE INDEX main.LeerLineaRuta ON roadbooklineas (guid ASC)"
Try
SQL2.ExecNonQuery(SqlString)
Catch
Log (LastException.Message )
End Try
SqlString="CREATE INDEX main.ListaRutas ON roadbookrutas (idruta ASC)"
Try
SQL2.ExecNonQuery(SqlString)
Catch
Log (LastException.Message )
End Try
SqlString="CREATE INDEX main.LeeRuta1 ON roadbookrutas (idruta ASC,guid ASC)"
Try
SQL2.ExecNonQuery(SqlString)
Catch
Log (LastException.Message )
End Try
SqlString="CREATE INDEX main.LeeRuta2 ON roadbookrutas (guid ASC,idruta ASC)"
Try
SQL2.ExecNonQuery(SqlString)
Catch
Log (LastException.Message )
End Try
Try
SQL2.Close
Catch
Log (LastException.Message )
End Try
Try
SqlString="Insert Into config (modulo,variable,valor) values('myapp.main','VersionDb','1')"
SQL1.ExecNonQuery (SqlString)
Catch
Log (LastException.Message )
End Try
SqlString="update config set valor='1' where modulo='myapp.main' and variable='VersionDb'"
SQL1.ExecNonQuery (SqlString)
End If