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.
39 lines
1.5 KiB
39 lines
1.5 KiB
Imports System.IO
|
|
Namespace DB
|
|
''' <summary>
|
|
''' Dynamische Datenbank-Verbindung aufbauen. Verwendet wird standardmässig Vertragsverwaltung.cfg.
|
|
''' Sollen Datenbank-Verbindungen zur Auswahl angezeigt werden, werden sämntliche Datenbank-Verbindungsdateien
|
|
''' mit dem Namen "Vertragsverwaltung....cfg" berücksichtigt
|
|
''' </summary>
|
|
''' <remarks></remarks>
|
|
Public Class DB_Connection
|
|
|
|
''' <summary>
|
|
''' Liest sämtlcihe CFG-Dateien mit dem Namen "Vertragsverwaltung...". Sind meherere Dateien vorhanden,
|
|
''' wird ein Auswahldialog zur Datenbank-Selektion angezeigt.
|
|
''' Standardmässig wird Vertragsverwaltung.cfg als CFG-Datei benutzt.
|
|
'''
|
|
''' Die CFG-Datei ist verschlüsselt und wird über die Crypto-Funktionen entschlüsselt.
|
|
''' </summary>
|
|
''' <remarks></remarks>
|
|
Sub New()
|
|
|
|
Dim ofile As System.IO.File
|
|
Dim oread As System.IO.StreamReader
|
|
Try
|
|
oread = ofile.OpenText(Globals.ConnectionFileName)
|
|
sConnectionString = oread.ReadLine
|
|
sConnectionString = Crypto.DecryptText(sConnectionString, "HutterundMueller")
|
|
sConnectionString = Left(sConnectionString, Len(sConnectionString) - 1)
|
|
Globals.sConnectionString = sConnectionString
|
|
Globals.conn.sConnectionString = sConnectionString
|
|
oread.Close()
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
End Class
|
|
|
|
End Namespace
|
|
|