jj 11.05.16

This commit is contained in:
JenneJ
2016-05-11 16:49:11 +02:00
parent 4a40698a13
commit 028183d9b7
4 changed files with 46 additions and 1 deletions

View File

@@ -21,6 +21,12 @@
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