Imports System.ComponentModel
Imports Microsoft.VisualBasic

Namespace EDOKA
    Public Class DB_Connection
        Shared Sub New()
            'Edoka
            oread = IO.File.OpenText(Globals.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 = IO.File.OpenText(Globals.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()
            'AMS
            'oread = IO.File.OpenText(Globals.ApplicationPath + "amsconn.cfg")
            'sConnectionString_ams = oread.ReadLine
            ''sConnectionString_ams = Crypto.DecryptText(sConnectionString, "HutterundMueller")
            ''sConnectionString_ams = Left(sConnectionString, Len(sConnectionString) - 1)
            'Globals.sConnectionString_ams = sConnectionString_ams
            'oread.Close()

            Globals.conn_edoka.sConnectionString = sConnectionString_edoka
            Globals.conn_journale.sConnectionString = sConnectionString_journale
            Globals.conn_ams.sConnectionString = sConnectionString_ams
        End Sub

    End Class


End Namespace