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