You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
44 lines
1.8 KiB
44 lines
1.8 KiB
Imports System.ComponentModel
|
|
Imports Microsoft.VisualBasic
|
|
|
|
Namespace edokadb
|
|
|
|
Public Class DB_Connection
|
|
Shared Sub New()
|
|
'Edoka
|
|
oread = System.IO.File.OpenText(DivFnkt.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 = System.IO.File.OpenText(DivFnkt.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()
|
|
|
|
|
|
'Journale für Mailversand
|
|
oread = System.IO.File.OpenText(DivFnkt.ApplicationPath + "journaleconn_Mail.cfg")
|
|
sConnectionString_journale_mail = oread.ReadLine
|
|
'sConnectionString_journale = Crypto.DecryptText(sConnectionString, "HutterundMueller")
|
|
'sConnectionString_journale = Left(sConnectionString, Len(sConnectionString) - 1)
|
|
Globals.sConnectionString_journale_mail = sConnectionString_journale_Mail
|
|
oread.Close()
|
|
|
|
|
|
|
|
Globals.conn_edoka.sConnectionString = sConnectionString_edoka
|
|
Globals.conn_journale.sConnectionString = sConnectionString_journale
|
|
Globals.conn_journale_Mail.sConnectionString = sConnectionString_journale_Mail
|
|
End Sub
|
|
|
|
End Class
|
|
End Namespace
|
|
|
|
|