From c30ed9d4daf33f06f2d4aaf776bf39489e18a1cb Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@digitaldata.works>
Date: Tue, 18 Jan 2022 13:24:54 +0100
Subject: [PATCH] Database: add ConnectionString class

---
 Modules.Database/ConnectionString.vb | 20 ++++++++++++++++++++
 Modules.Database/Database.vbproj     |  1 +
 2 files changed, 21 insertions(+)
 create mode 100644 Modules.Database/ConnectionString.vb

diff --git a/Modules.Database/ConnectionString.vb b/Modules.Database/ConnectionString.vb
new file mode 100644
index 00000000..ec5575f1
--- /dev/null
+++ b/Modules.Database/ConnectionString.vb
@@ -0,0 +1,20 @@
+Public Class ConnectionString
+    Public Enum ConnectionStringType
+        MSSQLServer
+        ODBC
+        Oracle
+    End Enum
+
+    Public Shared Function GetConnectionStringType(pConnectionString As String) As ConnectionStringType
+        ' This variable only exists to shorten the if-conditions
+        Dim c = pConnectionString
+
+        If (c.Contains("Server=") Or c.Contains("Data Source=")) And (c.Contains("Database=") Or c.Contains("Initial Catalog=")) Then
+            Return ConnectionStringType.MSSQLServer
+        ElseIf (c.Contains("dsn=")) Then
+            Return ConnectionStringType.ODBC
+        Else
+            Return ConnectionStringType.Oracle
+        End If
+    End Function
+End Class
diff --git a/Modules.Database/Database.vbproj b/Modules.Database/Database.vbproj
index 04526263..6a4c15bd 100644
--- a/Modules.Database/Database.vbproj
+++ b/Modules.Database/Database.vbproj
@@ -91,6 +91,7 @@
     <Import Include="System.Threading.Tasks" />
   </ItemGroup>
   <ItemGroup>
+    <Compile Include="ConnectionString.vb" />
     <Compile Include="Constants.vb" />
     <Compile Include="Exceptions.vb" />
     <Compile Include="Adapters\Firebird.vb" />