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.
22 lines
732 B
22 lines
732 B
Imports System.IO
|
|
Namespace EDOKA
|
|
Public Class DB_Connection
|
|
|
|
Shared Sub New()
|
|
Dim fc As Integer = 0
|
|
If fc < 2 Then Globals.ConnectionFileName = "edokaconn.cfg"
|
|
Dim ofile As System.IO.File
|
|
Dim oread As System.IO.StreamReader
|
|
oread = ofile.OpenText(Application.StartupPath + "\" + Globals.ConnectionFileName)
|
|
sConnectionString = oread.ReadLine
|
|
sConnectionString = Crypto.DecryptText(sConnectionString, "HutterundMueller")
|
|
sConnectionString = Left(sConnectionString, Len(sConnectionString) - 1)
|
|
Globals.sConnectionString = sConnectionString
|
|
oread.Close()
|
|
End Sub
|
|
|
|
End Class
|
|
|
|
|
|
End Namespace
|