MS CWGUI DecryptConNString

2021-12-16 13:40:01 +01:00
parent 96f7ef1a9c
commit f3465e4730
4 changed files with 8 additions and 2 deletions
--- a/GUIs.ClipboardWatcher/ProfileUtils.vb
+++ b/GUIs.ClipboardWatcher/ProfileUtils.vb
@@ -9,7 +9,9 @@ Public Class ProfileUtils

            Select Case oRow.Item("SQL_PROVIDER")
                Case "MS-SQL"
+
                    Dim oConnectionString = Database.GetConnectionString(oRow.Item("SERVER"), oRow.Item("DATENBANK"), oRow.Item("USERNAME"), oRow.Item("PASSWORD"))
+                    oConnectionString = MSSQLServer.DecryptConnectionString(oConnectionString)
                    Return oConnectionString

                Case Else