MS_08.03

app/DD-Record-Organiser/frmConfig_Basic.vb

@@ -48,6 +48,9 @@ Public Class frmConfig_Basic
     End Sub
 
     Private Sub cmbDatenbank_MouseClick(sender As Object, e As MouseEventArgs) Handles cmbDatenbank.MouseClick
+        Load_Databases()
+    End Sub
+    Sub Load_Databases()
         Try
             Me.Cursor = Cursors.WaitCursor
             Dim csb As New SqlClient.SqlConnectionStringBuilder
@@ -80,7 +83,10 @@ Public Class frmConfig_Basic
             End If
             connection.Close()
         Catch ex As Exception
-            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Datenbank-Connect:")
+            If ex.Message.ToLower.Contains("he standard-databases") Or ex.Message.ToLower.Contains("ie standard-datenbanken") Then
+                cmbDatenbank.Text = "DD_ECM"
+            End If
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Load Databases:")
         End Try
         Cursor = Cursors.Default
     End Sub
@@ -379,4 +385,8 @@ Public Class frmConfig_Basic
     Private Sub cmbDatenbank_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbDatenbank.SelectedIndexChanged
 
     End Sub
+
+    Private Sub txtPasswort_Leave(sender As Object, e As EventArgs) Handles txtPasswort.Leave
+
+    End Sub
 End Class