LicenceManager 2.3f2: - sistemato ritardo apertura UpdateLicencePage quando si fa Update (New)

- aggiunto ExecuteStringDictionaryQuery per evitare chiamate doppie al DB con la stessa query che estrae lo stesso record
2021-06-15 15:02:06 +02:00
parent df09cbe1b7
commit eaf4646754
8 changed files with 65 additions and 24 deletions
@@ -76,13 +76,15 @@ Public Class UpdateClientPageVM
      ' Carico campo Name
      Dim Query As String = "SELECT " & DB_NAME & " FROM " & DB_CLIENT &
            " WHERE " & DB_CLIENTID & " LIKE " & IdToUpdate
-      Name = ManageDb.ExecuteStringQuery(Query, DB_NAME)(0)
+      Dim m_NameDict As Dictionary(Of String, String) = ManageDb.ExecuteStringDictionaryQuery(Query)
+      Dim Name As String = m_NameDict(DB_NAME)
      NotifyPropertyChanged("Name")

      ' Carico campo Email
      Dim eQuery As String = "SELECT " & DB_EMAIL & " FROM " & DB_CLIENT &
            " WHERE " & DB_CLIENTID & " LIKE " & IdToUpdate
-      Email = ManageDb.ExecuteStringQuery(eQuery, DB_EMAIL)(0)
+      Dim m_EmailDict As Dictionary(Of String, String) = ManageDb.ExecuteStringDictionaryQuery(eQuery)
+      Dim Email As String = m_EmailDict(DB_EMAIL)
      NotifyPropertyChanged("Email")

      ' Carico lista Reseller