![]() | |
ConneXionFindCompany Method |
Namespace: ConneXion
Dim oConneXion As New ConneXion.ConneXion Dim oCompany As New ConneXion.Company Dim oResult As ConneXion.ConneXionResult oCompany.TAMUserName = "EXEC" oCompany.TAMPassword = "PSWD" oCompany.EntityID = "IGN" oResult = oConneXion.FindCompany(oCompany) If oResult.Success Then MessageBox.Show("Find Company is successful") txtResult.Text = oResult.Description Else txtResult.Text = "Number: " & oResult.Number & vbCrLf & "Desc: " & oResult.Description & vbCrLf & "TAMErrorNumber: " & oResult.TAMErrorNumber & vbCrLf & "TAMErroDesc: " & oResult.TAMDescription End If