32 lines
1.0 KiB
VB.net
32 lines
1.0 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()
|
|
Cache.Item(UpperCaseCommand) = dt
|
|
End Sub
|
|
|
|
Public Shared Sub ClearCache()
|
|
Cache.Clear()
|
|
End Sub
|
|
|
|
End Class
|