MS NoLock und Referenzen nach TEst bei SWE

This commit is contained in:
Developer01
2026-05-04 17:32:24 +02:00
parent bc75ea0d55
commit e6fcd5a3f9
9 changed files with 69 additions and 31 deletions

View File

@@ -72,7 +72,7 @@ Public Class ctrlApplicationAssignment
If MyDB_DDECM.ExecuteNonQuery(oSQL) = False Then
Return False
Else
Dim oNewProcessId = MyDB_DDECM.GetScalarValue("SELECT MAX(GUID) FROM TBCW_PROFILE_PROCESS")
Dim oNewProcessId = MyDB_DDECM.GetScalarValue("SELECT MAX(GUID) FROM TBCW_PROFILE_PROCESS WITH (NOLOCK)")
oSQL = String.Format("INSERT INTO TBCW_PROF_REL_WINDOW (DESCRIPTION, REGEX, ADDED_WHO, PROCESS_ID) VALUES ('{0}', '^{1}$', '{2}' ,{3})", oWindowTitle, oWindowTitle, Environment.UserName, oNewProcessId)
If MyDB_DDECM.ExecuteNonQuery(oSQL) = False Then
@@ -370,7 +370,7 @@ Public Class ctrlApplicationAssignment
Public Function Control_DeleteAssignment() As Boolean
Try
Dim oGuid = GridView_Control.GetFocusedRowCellValue(GridView_Control.Columns("GUID"))
Dim oSQL = String.Format("DELETE FROM TBCW_PROF_REL_CONTROL WHERE GUID = {0}", oGuid)
Dim oSQL = String.Format("DELETE FROM TBCW_PROF_REL_CONTROL WITH (NOLOCK) WHERE GUID = {0}", oGuid)
If MyDB_DDECM.ExecuteNonQuery(oSQL) Then
Window_Load()
Return True