Clean up config, move reload search to the right, add single instancing

This commit is contained in:
Jonathan Jenne
2022-07-15 11:13:24 +02:00
parent eeb58aeecf
commit 0e48c51f60
7 changed files with 29 additions and 31 deletions

View File

@@ -23,7 +23,7 @@ Public Class SearchLoader
Try
Searches.Clear()
Dim oSQL = Config.SearchSQL
Dim oSQL = $"SELECT * FROM TBMON_PROFILE WHERE ACTIVE = 1 ORDER BY SEQUENCE"
Dim oTable = Database.GetDatatable(oSQL)
For Each oRow As DataRow In oTable.Rows
@@ -50,7 +50,7 @@ Public Class SearchLoader
End Sub
Public Sub LoadSearchParameters()
Dim oSQL As String = $"SELECT * FROM TBMON_PROFILE_PARAM WHERE ACTIVE = 1 ORDER BY SEQUENCE"
Dim oSQL As String = $"SELECT * FROM TBMON_PROFILE_PARAM WHERE ACTIVE = 1"
Dim oTable As DataTable = Database.GetDatatable(oSQL)
Dim oParameters As New List(Of SearchParameter)