Initial

Backup/Common/Datenbank.vb

@@ -0,0 +1,29 @@
+Imports System.IO
+
+'''<summary>Diese klasse beinhaltet Methoden welche für den Datenbank Zugriff im DataAccess verwendet werden</summary>
+Public Class Datenbank
+
+	'''<summary>Liest aus dem Connection String file edokaconn.cfg aus</summary>
+	'''<returns>Den entschlüsseleten DSN string</returns>
+	Overloads Shared Function GetDSN() As String
+		Try
+			Dim file As System.IO.File
+			Dim reader As System.IO.StreamReader
+			Dim connectionString As String
+
+			reader = file.OpenText(AppDomain.CurrentDomain.BaseDirectory + "edokaconn.cfg")
+
+			connectionString = reader.ReadLine
+			connectionString = Crypto.DecryptText(connectionString)
+			connectionString = Left(connectionString, Len(connectionString) - 1)
+
+			reader.Close()
+
+			GetDSN = connectionString
+
+		Catch ex As Exception
+			Throw ex
+		End Try
+	End Function
+
+End Class