From 2bdb7d151293e1891b0001709fa12cfa5c8912a5 Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Fri, 13 Jul 2018 14:25:23 +0200 Subject: [PATCH] MS Changes Switch ClientConnection --- app/DD-Record-Organizer/ClassDatabase.vb | 6 +++ app/DD-Record-Organizer/frmMain.Designer.vb | 1 + app/DD-Record-Organizer/frmMain.resx | 2 +- app/DD-Record-Organizer/frmMain.vb | 50 +++++++++++++++++++-- 4 files changed, 55 insertions(+), 4 deletions(-) diff --git a/app/DD-Record-Organizer/ClassDatabase.vb b/app/DD-Record-Organizer/ClassDatabase.vb index 55ad678..2f0598e 100644 --- a/app/DD-Record-Organizer/ClassDatabase.vb +++ b/app/DD-Record-Organizer/ClassDatabase.vb @@ -35,6 +35,12 @@ Public Class ClassDatabase connectionString = "Server=" & DTConnection.Rows(0).Item("SERVER") & ";Database=" & DTConnection.Rows(0).Item("DATENBANK") & ";User Id=" & DTConnection.Rows(0).Item("USERNAME") & ";Password=" & DTConnection.Rows(0).Item("USERNAME") & ";Password=" & DTConnection.Rows(0).Item("PASSWORD") & ";" End If ' connectionString = "Server=" & DTConnection.Rows(0).Item("SERVER") & ";Database=" & DTConnection.Rows(0).Item("DATENBANK") & ";User Id=" & DTConnection.Rows(0).Item("USERNAME") & ";Password=" & DTConnection.Rows(0).Item("PASSWORD") & ";" + Case "MS-SQLServer" + If DTConnection.Rows(0).Item("USERNAME") = "WINAUTH" Then + connectionString = "Server=" & DTConnection.Rows(0).Item("SERVER") & ";Database=" & DTConnection.Rows(0).Item("DATENBANK") & ";Trusted_Connection=True;" + Else + connectionString = "Server=" & DTConnection.Rows(0).Item("SERVER") & ";Database=" & DTConnection.Rows(0).Item("DATENBANK") & ";User Id=" & DTConnection.Rows(0).Item("USERNAME") & ";Password=" & DTConnection.Rows(0).Item("USERNAME") & ";Password=" & DTConnection.Rows(0).Item("PASSWORD") & ";" + End If Case "Oracle" If DTConnection.Rows(0).Item("BEMERKUNG").ToString.Contains("without tnsnames") Then connectionString = "Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=" & DTConnection.Rows(0).Item("SERVER") & ")(PORT=1521)))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=" & diff --git a/app/DD-Record-Organizer/frmMain.Designer.vb b/app/DD-Record-Organizer/frmMain.Designer.vb index 2a3a394..27d4cc4 100644 --- a/app/DD-Record-Organizer/frmMain.Designer.vb +++ b/app/DD-Record-Organizer/frmMain.Designer.vb @@ -586,6 +586,7 @@ Partial Class frmMain Me.RibbonPageGroupConnManager.ItemLinks.Add(Me.BarButtonItemSwitchCon) Me.RibbonPageGroupConnManager.Name = "RibbonPageGroupConnManager" resources.ApplyResources(Me.RibbonPageGroupConnManager, "RibbonPageGroupConnManager") + Me.RibbonPageGroupConnManager.Visible = False ' 'pageForms ' diff --git a/app/DD-Record-Organizer/frmMain.resx b/app/DD-Record-Organizer/frmMain.resx index caf5efb..0b71149 100644 --- a/app/DD-Record-Organizer/frmMain.resx +++ b/app/DD-Record-Organizer/frmMain.resx @@ -2656,7 +2656,7 @@ Weitere Views - Connection Manager + Client Connection Home diff --git a/app/DD-Record-Organizer/frmMain.vb b/app/DD-Record-Organizer/frmMain.vb index 0f0ebac..45516b1 100644 --- a/app/DD-Record-Organizer/frmMain.vb +++ b/app/DD-Record-Organizer/frmMain.vb @@ -1004,6 +1004,7 @@ Public Class frmMain Dim sqlcon_Proxy = "" Dim WM_ALIAS = "" Dim INACTIVE_GUID + Dim ACTIVE_GUID For Each row As DataRow In drInActive INACTIVE_GUID = row.Item("GUID") name = row.Item("DESCRIPTION") @@ -1011,6 +1012,9 @@ Public Class frmMain sqlcon_Proxy = row.Item("SQL_CONNECTION_PROXY") WM_ALIAS = row.Item("WM_ALIAS") Next + For Each row As DataRow In drActive + ACTIVE_GUID = row.Item("GUID") + Next If name <> "" Then @@ -1022,15 +1026,55 @@ Public Class frmMain result = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If result = MsgBoxResult.Yes Then BarButtonItemSwitchCon.Caption = "Switch Connection to: " & name + Try + My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\A.I.S. GmbH\windream\3.6\ServerShareSelector", "CurrentAlias", WM_ALIAS) + My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\A.I.S. GmbH\windream\3.6\ServerShareSelector", "VFSAlias", WM_ALIAS) + Catch ex As Exception + ClassLogger.Add("Unexpected error in Changing WMAlias: " & ex.Message, True) + Exit Sub + End Try + Try + Dim IndexService = CreateObject("WMIndexServer.WMIdxSvControl") + IndexService.shutdown + IndexService.Start + Catch ex As Exception + ClassLogger.Add("Unexpected error in Restarting IndexService: " & ex.Message, True) + Exit Sub + End Try + Try + Dim ControlCenter = CreateObject("Wmcc.ControlCenter") + ControlCenter.StartVFSService(0) + ControlCenter.StartVFSService(1) + Catch ex As Exception + ClassLogger.Add("Unexpected error in Restarting ControlCenter: " & ex.Message, True) + Exit Sub + End Try + + SaveMySettingsValue("MyConnectionString", sqlcon, "ConfigMain") + + If sqlcon_Proxy <> String.Empty Then + SaveMySettingsValue("MyProxyConnectionString", sqlcon_Proxy, "ConfigMain") + End If Dim sql = String.Format("UPDATE TBPMO_CLIENT_CONN_SWITCH_USER SET ACTIVE = 1 WHERE GUID = {0}", INACTIVE_GUID) ClassDatabase.Execute_Scalar(sql) - ClassInit.Init_CONN_SWITCH() - + If ClassInit.InitDatabase = True Then + ClassInit.InitUserLogin() + Load_Connection_Dep_Data() + msg = "Die Client-Verbindung wurde erfolgreich gewechselt!" + If USER_LANGUAGE <> "de-DE" Then + msg = "The Client-Connection was changed successfully!" + End If + MsgBox(msg, MsgBoxStyle.Information) + sql = String.Format("UPDATE TBPMO_CLIENT_CONN_SWITCH_USER SET ACTIVE = 1 WHERE DESCRIPTION = {0} AND USER_ID = {1}", name, USER_GUID) + ClassDatabase.Execute_Scalar(sql) + ClassInit.Init_CONN_SWITCH() + CONN_Manager() + End If End If End If Catch ex As Exception - + MsgBox("Unexpected error in BarButtonItemSwitchCon.ItemClick: " & ex.Message, MsgBoxStyle.Critical) End Try End Sub End Class