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

MS_11.04.2016

Browse Source
This commit is contained in:
SchreiberM
2016-04-13 12:12:51 +02:00
parent ef2a87d849
commit 5a1aaed2f4
11 changed files with 213 additions and 765 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -519,11 +519,15 @@ Public Class ClassControlCommandsUI
Dim ValueExists = ClassDatabase.Execute_Scalar(String.Format("SELECT RECORD_ID FROM VWPMO_VALUES WHERE RECORD_ID = {0} AND CONTROL_ID = {1}", RecordID, CONTROL_ID))
If ValueExists Then ' Control Updaten
UpdateControlValue(CONTROL_ID, RecordID, CONTROL_VALUE)
Else ' Neues Control
If IsNothing(ValueExists) Then ' Neues Control
If LogErrorsOnly = False Then ClassLogger.Add(" >> InsertControlValue: " & CONTROL_ID & "|" & RecordID & "|" & CONTROL_VALUE, False)
InsertControlValue(CONTROL_ID, RecordID, CONTROL_VALUE)
If Not IsNothing(CONTROL_VALUE) Then
InsertControlValue(CONTROL_ID, RecordID, CONTROL_VALUE)
End If
Else ' Update Control
If Not IsNothing(CONTROL_VALUE) Then
UpdateControlValue(CONTROL_ID, RecordID, CONTROL_VALUE)
End If
End If
Next
Catch ex As Exception
@@ -707,17 +711,20 @@ Public Class ClassControlCommandsUI
End Select
Using conn As New SqlClient.SqlConnection(MyConnectionString)
Dim cmd As New SqlClient.SqlCommand("INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID, RECORD_ID, VALUE, ADDED_WHO) VALUES (@CONTROL_ID, @RECORD_ID, @VALUE, @ADDED_WHO)", conn)
cmd.Parameters.Add("@VALUE", SqlDbType.NVarChar).Value = Value
cmd.Parameters.Add("@ADDED_WHO", SqlDbType.VarChar).Value = AddedWho
cmd.Parameters.Add("@CONTROL_ID", SqlDbType.Int).Value = ControlID
cmd.Parameters.Add("@RECORD_ID", SqlDbType.Int).Value = RecordID
Dim ins As String = String.Format("INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID, RECORD_ID, VALUE, ADDED_WHO) VALUES ({0}, {1}, '{2}', '{3}')", ControlID, RecordID, Value, AddedWho)
Return ClassDatabase.Execute_non_Query(ins)
conn.Open()
cmd.ExecuteNonQuery()
Return True
End Using
'Using conn As New SqlClient.SqlConnection(MyConnectionString)
' Dim cmd As New SqlClient.SqlCommand("INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID, RECORD_ID, VALUE, ADDED_WHO) VALUES (@CONTROL_ID, @RECORD_ID, @VALUE, @ADDED_WHO)", conn)
' cmd.Parameters.Add("@VALUE", SqlDbType.NVarChar).Value = Value
' cmd.Parameters.Add("@ADDED_WHO", SqlDbType.VarChar).Value = AddedWho
' cmd.Parameters.Add("@CONTROL_ID", SqlDbType.Int).Value = ControlID
' cmd.Parameters.Add("@RECORD_ID", SqlDbType.Int).Value = RecordID
' conn.Open()
' cmd.ExecuteNonQuery()
' Return True
'End Using
'Dim SQL = "INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID, RECORD_ID, VALUE, ADDED_WHO) VALUES (" & ControlID & ", " & RecordID & ", '" & Value & "', '" & AddedWho & "')"
'Return ClassDatabase.Execute_non_Query(SQL, True)