![]() | |
ConneXionUpdateBroker Method |
Namespace: ConneXion
Note: When doing an update, it is best to do a find first. This will populate the object with all the existing data before the update is made. If a find is not executed first, the object will be empty except for the data elements set in the update code
Dim oConneXion As New ConneXion.ConneXion Dim oBroker As New ConneXion.Broker Dim oResult As ConneXion.ConneXionResult oBroker.TAMUserName = "EXEC" oBroker.TAMPassword = "PSWD" oBroker.RecordNumber = "17" oBroker.EntityID = "GREENE1" oResult = oConneXion.FindBroker(oBroker) If oResult.Success = False Then MessageBox.Show("FindBroker is false") txtResult.Text = "Number: " & oResult.Number & vbCrLf & "Desc: " & oResult.Description & vbCrLf & "TAMErrorNumber: " & oResult.TAMErrorNumber & vbCrLf & "TAMErroDesc: " & oResult.TAMDescription Else oBroker.TAMUserName = "EXEC" oBroker.TAMPassword = "PSWD" oBroker.Email = "ragreene@greenegrasse.com" oResult = oConneXion.UpdateBroker(oBroker) If oResult.Success Then MessageBox.Show("Update Broker is successful") txtResult.Text = oResult.Description Else txtResult.Text = "Update broker is false" & vbCrLf & "Number: " & oResult.Number & vbCrLf & "Desc: " & oResult.Description & vbCrLf & "TAMErrorNumber: " & oResult.TAMErrorNumber & vbCrLf & "TAMErroDesc: " & oResult.TAMDescription End If End If