Imports System.ComponentModel
Imports Microsoft.VisualBasic

Namespace edokadb

    Public Class DB_Connection
        Shared Sub New()
            'Edoka
            oread = System.IO.File.OpenText(DivFnkt.ApplicationPath + "edokaconn.cfg")
            sConnectionString_edoka = oread.ReadLine
            'sConnectionString_edoka = Crypto.DecryptText(sConnectionString, "HutterundMueller")
            'sConnectionString_edoka = Left(sConnectionString, Len(sConnectionString) - 1)
            Globals.sConnectionString_edoka = sConnectionString_edoka
            oread.Close()

            'Journale
            oread = System.IO.File.OpenText(DivFnkt.ApplicationPath + "journaleconn.cfg")
            sConnectionString_journale = oread.ReadLine
            'sConnectionString_journale = Crypto.DecryptText(sConnectionString, "HutterundMueller")
            'sConnectionString_journale = Left(sConnectionString, Len(sConnectionString) - 1)
            Globals.sConnectionString_journale = sConnectionString_journale
            oread.Close()


            'Journale für Mailversand
            oread = System.IO.File.OpenText(DivFnkt.ApplicationPath + "journaleconn_Mail.cfg")
            sConnectionString_journale_mail = oread.ReadLine
            'sConnectionString_journale = Crypto.DecryptText(sConnectionString, "HutterundMueller")
            'sConnectionString_journale = Left(sConnectionString, Len(sConnectionString) - 1)
            Globals.sConnectionString_journale_mail = sConnectionString_journale_Mail
            oread.Close()



            Globals.conn_edoka.sConnectionString = sConnectionString_edoka
            Globals.conn_journale.sConnectionString = sConnectionString_journale
            Globals.conn_journale_Mail.sConnectionString = sConnectionString_journale_Mail
        End Sub

    End Class
End Namespace