This commit is contained in:
2023-07-20 14:12:24 +02:00
parent c2deb54f11
commit ea5ea5f205
64 changed files with 8139 additions and 7996 deletions

View File

@@ -229,7 +229,7 @@ Public Class frmMain
Try
Dim connection As New SqlClient.SqlConnection(MyConnectionString) 'csb.ConnectionString)
Dim csb As New SqlClient.SqlConnectionStringBuilder
csb.ConnectionString = MyConnectionString
csb.ConnectionString = MYDB_ECM.CurrentConnectionString
Dim constr = connection.ConnectionString
If constr.Contains("Trusted_Connection=True") = False Then
constr = constr.Replace(csb.Password, "XXXXX")
@@ -241,7 +241,7 @@ Public Class frmMain
End Sub
Sub Load_TasksforUser()
Try
VWPMO_WF_ACTIVETableAdapter.Connection.ConnectionString = MyConnectionString
VWPMO_WF_ACTIVETableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
Me.VWPMO_WF_ACTIVETableAdapter.Fill(Me.DD_DMSDataSet.VWPMO_WF_ACTIVE, USER_LANGUAGE, USER_USERNAME)
CURRENT_TASKS_GENERAL = Me.DD_DMSDataSet.VWPMO_WF_ACTIVE
Catch ex As Exception