![]() | |
ConneXionFindActivity Method |
Namespace: ConneXion
Dim oConneXionActivity 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 = "237" oResult = oConneXionActivity.FindActivity(oActivity) If oResult.Success = True Then MessageBox.Show("FindActivity 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