Imports System.ComponentModel
Imports Microsoft.VisualBasic

Public Class DB_Connection
    Shared Sub New()
        Try
            'Edoka
            oread = IO.File.OpenText(appPath + "edokaconn.cfg")
            sConnectionString_edoka = oread.ReadLine
            Globals.sConnectionString_edoka = sConnectionString_edoka
            oread.Close()

            'Journale
            oread = IO.File.OpenText(appPath + "journaleconn.cfg")
            sConnectionString_journale = oread.ReadLine
            Globals.sConnectionString_journale = sConnectionString_journale
            oread.Close()

            ''tgdata
            'oread = IO.File.OpenText(appPath + "tgdataconn.cfg")
            'sConnectionString_tgdata = oread.ReadLine
            'Globals.sConnectionString_tgdata = sConnectionString_tgdata
            'oread.Close()

            Globals.conn_edoka.sConnectionString = sConnectionString_edoka
            Globals.conn_journale.sConnectionString = sConnectionString_journale
            'Globals.conn_tgdata.sConnectionString = sConnectionString_tgdata
            m_log.Log("EDKB04: DB-Connection OK", Common.Common.JournalEntryType.Information)
        Catch ex As Exception
            m_log.Log(ex.Message, Common.Common.JournalEntryType.Error)
        End Try

    End Sub

End Class