MS_04.01
This commit is contained in:
@@ -127,7 +127,7 @@ Public Class frmRecOrgConfig_Basic
|
||||
Dim pw As String = cipherText
|
||||
|
||||
Dim upd = String.Format("UPDATE TBPMO_SERVICE_RIGHT_CONFIG SET AD_DOMAIN = '{0}', AD_USER = '{1}', AD_USER_PW = '{2}', AD_SERVER = '{3}', CHANGED_WHO = '{4}' WHERE GUID = 1", Me.txtDomäne.Text, Me.txtUser.Text, pw, Me.txtServername.Text, USER_USERNAME)
|
||||
ClassDatabase.Execute_non_Query(upd)
|
||||
ClassDatabase.Execute_non_Query(upd, False)
|
||||
btnsave.Enabled = False
|
||||
|
||||
End If
|
||||
@@ -170,7 +170,7 @@ Public Class frmRecOrgConfig_Basic
|
||||
Dim pw As String = cipherText
|
||||
|
||||
Dim upd = String.Format("UPDATE TBPMO_SERVICE_RIGHT_CONFIG SET AD_DOMAIN = '{0}', AD_USER = '{1}', AD_USER_PW = '{2}', AD_SERVER = '{3}', CHANGED_WHO = '{4}' WHERE GUID = 1", Me.txtDomäne.Text, Me.txtUser.Text, pw, Me.txtServername.Text, USER_USERNAME)
|
||||
ClassDatabase.Execute_non_Query(upd)
|
||||
ClassDatabase.Execute_non_Query(upd, False)
|
||||
btnsave.Enabled = False
|
||||
Else
|
||||
MsgBox("The persionalized connection to windream could NOT be created." & vbNewLine & "Please check the User-Data!", MsgBoxStyle.Critical)
|
||||
|
||||
Reference in New Issue
Block a user