Initial commit

EDKB20/EDKB16/db_connection.vb

@@ -0,0 +1,28 @@
+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()
+
+
+            ''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_tgdata.sConnectionString = sConnectionString_tgdata
+        Catch ex As Exception
+        End Try
+
+    End Sub
+
+End Class