ms ProdAnpassung

GUIs.ZooFlow/Administration/frmSQLDesigner.vb

@@ -127,9 +127,11 @@
                     Exit Sub
                 End If
             Next
-
+            MsgBox(cmbConnection.SelectedValue)
             Dim oconString = My.DatabaseECM.Get_ConnectionStringforID(cmbConnection.SelectedValue)
+            MsgBox(oconString)
             Dim decryptedConString = My.DatabaseECM.DecryptConnectionString(oconString)
+            MsgBox(decryptedConString)
             Dim oDT = My.DatabaseECM.GetDatatableWithConnection(query, decryptedConString)