Initial commit

EDOKA/Backup1/DB/DB_Allgemein/db_connection.vb

@@ -0,0 +1,44 @@
+Imports System.IO
+Namespace EDOKA
+    Public Class DB_Connection
+
+        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, 5)) = "EDOKA" 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 = "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