shu/EDOKA_Batch
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Initial commit

Browse Source
This commit is contained in:
Stefan Hutter
2021-04-20 07:59:36 +02:00
commit fb0247c874
21969 changed files with 11640044 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
EDKB02/Backup/Datenbank/db_connection.vb Normal file
View File

@@ -0,0 +1,38 @@
Imports System.ComponentModel
Imports Microsoft.VisualBasic
Namespace EDOKA
Public Class DB_Connection
Shared Sub New()
'Edoka
oread = IO.File.OpenText(Globals.ApplicationPath + "edokaconn.cfg")
sConnectionString_edoka = oread.ReadLine
'sConnectionString_edoka = Crypto.DecryptText(sConnectionString, "HutterundMueller")
'sConnectionString_edoka = Left(sConnectionString, Len(sConnectionString) - 1)
Globals.sConnectionString_edoka = sConnectionString_edoka
oread.Close()
'Journale
oread = IO.File.OpenText(Globals.ApplicationPath + "journaleconn.cfg")
sConnectionString_journale = oread.ReadLine
'sConnectionString_journale = Crypto.DecryptText(sConnectionString, "HutterundMueller")
'sConnectionString_journale = Left(sConnectionString, Len(sConnectionString) - 1)
Globals.sConnectionString_journale = sConnectionString_journale
oread.Close()
'AMS
oread = IO.File.OpenText(Globals.ApplicationPath + "amsconn.cfg")
sConnectionString_ams = oread.ReadLine
'sConnectionString_ams = Crypto.DecryptText(sConnectionString, "HutterundMueller")
'sConnectionString_ams = Left(sConnectionString, Len(sConnectionString) - 1)
Globals.sConnectionString_ams = sConnectionString_ams
oread.Close()
Globals.conn_edoka.sConnectionString = sConnectionString_edoka
Globals.conn_journale.sConnectionString = sConnectionString_journale
Globals.conn_ams.sConnectionString = sConnectionString_ams
End Sub
End Class
End Namespace