37 lines
1.3 KiB
VB.net
37 lines
1.3 KiB
VB.net
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
|
|
|