Initial commit

edkb04op/EDKB04OP/db_connection.vb

@@ -0,0 +1,36 @@
+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
+