Database: Move Database Adapters to Subfolder, Add TableCache
This commit is contained in:
17
Modules.Database/TableCache.vb
Normal file
17
Modules.Database/TableCache.vb
Normal file
@@ -0,0 +1,17 @@
|
||||
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
|
||||
Reference in New Issue
Block a user