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