AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS

Browse Source
This commit is contained in:
SchreiberM
2016-08-23 15:00:21 +02:00
parent 78907b4bfa
commit 05b5fffc29
6 changed files with 19 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
app/DD-Record-Organiser/ClassControlCommandsUI.vb
View File

@@ -441,7 +441,7 @@ Public Class ClassControlCommandsUI
SQL = String.Format("INSERT INTO TBPMO_CONTROL_VALUE (RECORD_ID, CONTROL_ID, VALUE, ADDED_WHO) VALUES ({0}, {1}, '{2}', '{3}')", RecordID, ControlID, VALUE, Environment.UserName)
End If
ClassDatabase.Execute_non_Query(SQL)
ClassDatabase.Execute_non_Query(SQL, True)
Catch ex As Exception
MsgBox("Error in LinkImage: " & vbNewLine & ex.Message)
End Try
@@ -974,7 +974,7 @@ Public Class ClassControlCommandsUI
Dim upd = String.Format("UPDATE TBPMO_CONTROL_VALUE SET VALUE = '{0}', CHANGED_WHO = '{1}', CHANGE_STEP = {2} WHERE CONTROL_ID = {3} AND RECORD_ID = {4}", _
Value, CHANGED_WHO, CURRENT_CHANGE_STEP, ControlID, RecordID)
Return ClassDatabase.Execute_non_Query(upd)
Return ClassDatabase.Execute_non_Query(upd, True)
'Using conn As New SqlClient.SqlConnection(MyConnectionString)
' Dim cmd As New SqlClient.SqlCommand("UPDATE TBPMO_CONTROL_VALUE SET VALUE = @VALUE, CHANGED_WHO = @CHANGED_WHO, CHANGE_STEP = @CHANGE_STEP WHERE CONTROL_ID = @CONTROL_ID AND RECORD_ID = @RECORD_ID", conn)
' cmd.Parameters.Add("@VALUE", SqlDbType.NVarChar).Value = Value