Database: Move Database Adapters to Subfolder, Add TableCache

Modules.Database/Database.vbproj

@@ -93,11 +93,11 @@
   <ItemGroup>
     <Compile Include="Constants.vb" />
     <Compile Include="Exceptions.vb" />
-    <Compile Include="Firebird.vb" />
+    <Compile Include="Adapters\Firebird.vb" />
     <Compile Include="IDatabase.vb" />
-    <Compile Include="ODBC.vb" />
+    <Compile Include="Adapters\ODBC.vb" />
-    <Compile Include="Oracle.vb" />
+    <Compile Include="Adapters\Oracle.vb" />
-    <Compile Include="MSSQLServer.vb" />
+    <Compile Include="Adapters\MSSQLServer.vb" />
     <Compile Include="My Project\AssemblyInfo.vb" />
     <Compile Include="My Project\Application.Designer.vb">
       <AutoGen>True</AutoGen>
@@ -113,6 +113,7 @@
       <DependentUpon>Settings.settings</DependentUpon>
       <DesignTimeSharedInput>True</DesignTimeSharedInput>
     </Compile>
+    <Compile Include="TableCache.vb" />
   </ItemGroup>
   <ItemGroup>
     <EmbeddedResource Include="My Project\Resources.resx">

Modules.Database/TableCache.vb

@@ -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