Initial commit

Archiv/EDKB09 - Kopie (2)/Backup1/DB/db_connection.vb

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