18 lines
367 B
VB.net
18 lines
367 B
VB.net
Public Class TableCache
|
|
Private Items As New Dictionary(Of String, DataTable)
|
|
|
|
Public Function [Get](SQLCommand As String)
|
|
Dim oKey As String = SQLCommand.ToUpper
|
|
If Items.ContainsKey(oKey) Then
|
|
Return Items.Item(oKey)
|
|
Else
|
|
|
|
End If
|
|
End Function
|
|
|
|
Private Function SaveTable()
|
|
|
|
End Function
|
|
|
|
End Class
|