10.01.2016

app/DD-Record-Organiser/frmConfig_Basic.vb

@@ -1,6 +1,6 @@
 Imports System.Threading
 Imports System.Globalization
-
+Imports DD_LIB_Standards
 Public Class frmConfig_Basic
     Dim formloaded As Boolean = False
     Private email As New ClassEmail
@@ -35,6 +35,7 @@ Public Class frmConfig_Basic
                     ClassDatabase.Init()
                 Else
                     ClassProxy.MyPROXYConnectionString = con
+                    clsDatabase.Init(MyConnectionString, ClassProxy.MyPROXYConnectionString)
                 End If
                 My.Settings.Save()
 
@@ -513,6 +514,7 @@ Public Class frmConfig_Basic
         SaveMySettingsValue("MyProxyConnectionString", "", "ConfigMain")
         ClassProxy.MyPROXYConnectionString = ""
         Refresh_Proxy()
+        CONNECTION_CHANGED = True
     End Sub
 
     Private Sub txtLinkedServer_Leave(sender As Object, e As EventArgs) Handles txtLinkedServer.Leave