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.
55 lines
2.4 KiB
55 lines
2.4 KiB
Namespace EDOKA
|
|
Public Class DB_Connection
|
|
Shared Sub New()
|
|
Try
|
|
'Edoka
|
|
oread = IO.File.OpenText(args(1) + "edokaconn.cfg")
|
|
sConnectionString_edoka = oread.ReadLine
|
|
Globals.sConnectionString_edoka = sConnectionString_edoka
|
|
Console.WriteLine("EDOKA_HOST Connected")
|
|
oread.Close()
|
|
|
|
'ZV
|
|
oread = IO.File.OpenText(args(1) + "edokazvconn.cfg")
|
|
sConnectionString_ZV = oread.ReadLine
|
|
Globals.sConnectionString_ZV = sConnectionString_ZV
|
|
Console.WriteLine("EDOKA_ZV Connected")
|
|
oread.Close()
|
|
|
|
'UVM
|
|
oread = IO.File.OpenText(args(1) + "edokauvmconn.cfg")
|
|
sConnectionstring_UVM = oread.ReadLine
|
|
Globals.sConnectionstring_UVM = sConnectionstring_UVM
|
|
Console.WriteLine("EDOKA_UVM Connected")
|
|
oread.Close()
|
|
|
|
'Banklagernd
|
|
oread = IO.File.OpenText(args(1) + "edokablconn.cfg")
|
|
sConnectionstring_BL = oread.ReadLine
|
|
Globals.sConnectionstring_BL = sConnectionstring_BL
|
|
Console.WriteLine("EDOKA-Banklagernd Connected")
|
|
oread.Close()
|
|
|
|
|
|
'Journale
|
|
oread = IO.File.OpenText(args(1) + "journaleconn.cfg")
|
|
sConnectionString_journale = oread.ReadLine
|
|
'sConnectionString_journale = Crypto.DecryptText(sConnectionString, "HutterundMueller")
|
|
'sConnectionString_journale = Left(sConnectionString, Len(sConnectionString) - 1)
|
|
Globals.sConnectionString_journale = sConnectionString_journale
|
|
Console.WriteLine("EDOKA_Journale Connected")
|
|
oread.Close()
|
|
|
|
Globals.conn_edoka.sConnectionString = sConnectionString_edoka
|
|
Globals.conn_journale.sConnectionString = sConnectionString_journale
|
|
Globals.conn_ams.sConnectionString = sConnectionString_ams
|
|
Globals.conn_zv.sConnectionString = sConnectionString_ZV
|
|
Globals.conn_uvm.sConnectionString = sConnectionstring_UVM
|
|
Globals.conn_bl.sConnectionString = sConnectionstring_BL
|
|
Catch ex As Exception
|
|
Throw ex
|
|
End Try
|
|
End Sub
|
|
End Class
|
|
End Namespace
|