Zooflow: new search form

2021-11-15 16:30:12 +01:00
parent cbab70c288
commit 5d7398101c
9 changed files with 674 additions and 36 deletions
--- a/GUIs.ZooFlow/ClassInit.vb
+++ b/GUIs.ZooFlow/ClassInit.vb
@@ -105,7 +105,8 @@ Public Class ClassInit
                oDataRow.Item("PASSWORD").ToString
            )

-            My.DatabaseIDB = New MSSQLServer(My.LogConfig, oConString)
+            Dim oDecryptedConnectionString = MSSQLServer.DecryptConnectionString(oConString)
+            My.DatabaseIDB = New MSSQLServer(My.LogConfig, oDecryptedConnectionString)
        End If

        If My.DatabaseIDB.DBInitialized = False Then