You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
29 lines
825 B
29 lines
825 B
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 |