Egalware/LicenceManager
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Altre correzioni ad occorrenze del tipo 'm_SelReseller = m_ResellerList.FirstOrDefault(Function(resel) resel.ResellerName.Equals(ManageDb.ExecuteResellerQuery(selQuery)(0).ResellerName))' che eseguono chiamate al DB con la stessa query più volte inutilmente, creando ritardi

Browse Source
This commit is contained in:
RenzoL
2021-06-15 15:19:31 +02:00
parent eaf4646754
commit 7ec8991e5a
3 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
UpdateClientPage/UpdateClientPageVM.vb
+2 -1
View File
@@ -99,7 +99,8 @@ Public Class UpdateClientPageVM
" WHERE " & DB_CLIENTID & " LIKE " & IdToUpdate
'm_SelReseller = ManageDb.ExecuteResellerQuery(rQuery)(0)
'm_SelReseller = m_ResellerList(2)
m_SelReseller = m_ResellerList.FirstOrDefault(Function(resel) resel.ResellerName.Equals(ManageDb.ExecuteResellerQuery(selQuery)(0).ResellerName))
Dim selRes As String = ManageDb.ExecuteResellerQuery(selQuery)(0).ResellerName
m_SelReseller = m_ResellerList.FirstOrDefault(Function(resel) resel.ResellerName.Equals(selRes))
NotifyPropertyChanged("SelReseller")
End Sub
UpdateKeyPage/UpdateKeyPageVM.vb
+2 -1
View File
@@ -235,7 +235,8 @@ Public Class UpdateKeyPageVM
Dim nQuery As String = "SELECT * FROM " & DB_CLIENT & " WHERE " & DB_CLIENTID & " = '" & Key.ClientID & "'"
If ManageDb.ExecuteClientQuery(nQuery).Count <> 0 Then
m_SelName = m_NameList.FirstOrDefault(Function(namel) namel.Name.Equals(ManageDb.ExecuteClientQuery(nQuery)(0).Name)) 'ManageDb.ExecuteClientQuery(nQuery)(0)
Dim sName As String = ManageDb.ExecuteClientQuery(nQuery)(0).Name
m_SelName = m_NameList.FirstOrDefault(Function(namel) namel.Name.Equals(sName)) 'ManageDb.ExecuteClientQuery(nQuery)(0)
Else
m_SelName = Nothing
End If
UpdateVersionPage/UpdateVersionPageVM.vb
+2 -1
View File
@@ -104,7 +104,8 @@ Public Class UpdateVersionPageVM
" ON " & DB_PRODUCT & "." & DB_PRODUCTID &
"=" & DB_VERSION & "." & DB_PRODUCTID &
" WHERE " & DB_VERSIONID & " LIKE " & IdToUpdate
SelProduct = m_ProductList.FirstOrDefault(Function(prodl) prodl.ProductID.Equals(ManageDb.ExecuteVersionQuery(pvQuery)(0).ProductID))
Dim ProdId As Integer = ManageDb.ExecuteVersionQuery(pvQuery)(0).ProductID
SelProduct = m_ProductList.FirstOrDefault(Function(prodl) prodl.ProductID.Equals(ProdId))
NotifyPropertyChanged("SelProduct")
End Sub