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.

[Visual Basic]
Private Shared Sub New()

Quellcode

[Visual Basic]
        Shared Sub New() 
            Dim fc As Integer = 0 
            If Globals.ConnectionFileName.Length = 0 Then 
                Dim Dir As DirectoryInfo = New DirectoryInfo(Application.StartupPath) 
                Try 
                    Dim f As New frmDatenbankauswahl() 
                    Dim ChildFile As FileInfo 
                    For Each ChildFile In Dir.GetFiles() 
                        If UCase(Left(ChildFile.Name, 18)) = "VERTRAGSVERWALTUNG" And UCase(ChildFile.Extension) = ".CFG" Then 
                            f.ListBox1.Items.Add(ChildFile.Name) 
                            fc = fc + 1 
                        End If 
                    Next 
                    If fc > 1 Then 
                        f.ListBox1.SelectedIndex = 0 
                        f.ListBox1.Select() 
                        f.ShowDialog() 
                        Globals.ConnectionFileName = f.ListBox1.SelectedItem 
                        f.Dispose() 
                    End If 
                Catch except As Exception 
                    fc = 0 
                    Exit Sub 
                End Try 
            End If 
            If fc < 2 Then Globals.ConnectionFileName = "Vertragsverwaltung.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 
            Globals.conn.sConnectionString = sConnectionString 
            oread.Close() 
        End Sub

Forderungen

Plattformen: Windows 98, Windows 2000 SP4, Windows Millennium Edition, Windows Server 2003, Windows XP Media Center Edition, Windows XP Professional x64 Edition, Windows XP SP2, Windows XP Starter Edition

Siehe auch

DB_Connection