![]() | |
ConneXionUpdateActivity 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 oActivity As New ConneXion.Activity Dim oResult As ConneXion.ConneXionResult oActivity.TAMUserName = "EXEC" oActivity.TAMPassword = "PSWD" oActivity.TAMCentralAgency = "DEMOAG1" oActivity.LicenseKey = "1234567 1" oActivity.RecordNumber = "234" oResult = oConneXion.FindActivity(oActivity) If oResult.Success = False Then MessageBox.Show("FindActivity was false. " & oResult.Description & ".") Else oActivity.TAMUserName = "EXEC" oActivity.TAMPassword = "PSWD" oActivity.TAMCentralAgency = "DEMOAG1" oActivity.LicenseKey = "1234567 1" oActivity.NoteLine3 = "Child turning 16 in 2 months" oResult = oConneXion.UpdateActivity(oActivity) If oResult.Success = True Then MessageBox.Show("UpdateActivity was Successful") Else txtResult.Visible = True txtResult.Text = "Number: " & oResult.Number & vbCrLf & "Description: " & oResult.Description & vbCrLf & "TAMErrorNumber: " & oResult.TAMErrorNumber & vbCrLf & "TAMErroDesc: " & oResult.TAMDescription End If End If