56 lines
1.8 KiB
VB.net
56 lines
1.8 KiB
VB.net
Public Class ClassControlValueCache
|
|
Private Shared Property Cache As New Dictionary(Of String, DataTable)
|
|
|
|
' ClassControlValueCache
|
|
' Ordnet SQL Queries den daraus resultierenden DataTables zu.
|
|
'
|
|
' Somit kann eine Query in der Laufzeit des Programms von mehreren Forms genutzt werden,
|
|
' muss aber nur einmal vom Server abgefragt werden.
|
|
Public Shared Function LoadFromCache(sqlCommand As String) As DataTable
|
|
' Mit ToUpper wird das Command case-insensitive,
|
|
' es ist also egal, ob die query GROSS oder klein geschrieben wird
|
|
Dim UpperCaseCommand = sqlCommand.ToUpper()
|
|
|
|
If Cache.ContainsKey(UpperCaseCommand) Then
|
|
Return Cache.Item(UpperCaseCommand)
|
|
Else
|
|
Return Nothing
|
|
End If
|
|
|
|
End Function
|
|
|
|
Public Shared Sub SaveToCache(sqlCommand As String, dt As DataTable)
|
|
Dim UpperCaseCommand = sqlCommand.ToUpper()
|
|
|
|
' Dynamische Queries dürfen nicht gecached werden
|
|
If (UpperCaseCommand.Contains("@")) Then
|
|
Exit Sub
|
|
End If
|
|
|
|
Cache.Item(UpperCaseCommand) = dt
|
|
End Sub
|
|
|
|
Public Shared Sub ClearCache()
|
|
Cache.Clear()
|
|
End Sub
|
|
|
|
' =========================================================================================
|
|
|
|
Private Shared Property HintCache As New Dictionary(Of Integer, String)
|
|
Public Shared Function LoadHint(controlId As Integer) As String
|
|
If HintCache.ContainsKey(controlId) Then
|
|
Dim hint As String = HintCache.Item(controlId)
|
|
If hint.Length = 0 Then
|
|
Return Nothing
|
|
End If
|
|
Return HintCache.Item(controlId)
|
|
Else
|
|
Return Nothing
|
|
End If
|
|
End Function
|
|
|
|
Public Shared Sub SaveHint(controlId As Integer, hint As String)
|
|
HintCache.Item(controlId) = hint
|
|
End Sub
|
|
End Class
|