Imports System.ComponentModel
Imports Microsoft.VisualBasic

Namespace EDOKA
    Public Class DB_Connection
        Public Sub New()
            ''Edoka
            'FileOpen(1, Globals.ApplicationPath + "edokaconn.cfg", OpenMode.Input)
            'Input(1, sConnectionString_edoka)
            'FileClose(1)

            'FileOpen(1, Globals.ApplicationPath + "journaleconn.cfg", OpenMode.Input)
            'Input(1, sConnectionString_journale)
            'FileClose(1)
            'Globals.conn_edoka.sConnectionString = sConnectionString_edoka
            'Globals.conn_journale.sConnectionString = sConnectionString_journale
            'Exit Sub


            oread = IO.File.OpenText(Globals.ApplicationPath + "edokaconn.cfg")
            sConnectionString_edoka = oread.ReadLine
            Globals.sConnectionString_edoka = sConnectionString_edoka
            oread.Close()

            'Journale
            oread = IO.File.OpenText(Globals.ApplicationPath + "journaleconn.cfg")
            sConnectionString_journale = oread.ReadLine
            Globals.sConnectionString_journale = sConnectionString_journale
            oread.Close()
            Globals.conn_edoka.sConnectionString = sConnectionString_edoka
            Globals.conn_journale.sConnectionString = sConnectionString_journale
        End Sub

    End Class


End Namespace