![]() | |
ConneXionFindBrokersByCriteria Method |
Namespace: ConneXion
Dim oConneXion As New ConneXion.ConneXion Dim oResult As New ConneXion.ConneXionResult Dim oBroker As New ConneXion.Broker Dim oBrokers() As ConneXion.Broker oBroker.TAMUserName = "EXEC" oBroker.TAMPassword = "PSWD" oBroker.State = "IL" oResult = oConneXion.FindBrokersByCriteria(oBroker, oBrokers) If oResult.Success Then MessageBox.Show("FindBrokersByCriteria is successful") txtResult.Text = oResult.Description dgrd.DataSource = oBrokers Else txtResult.Text = "FindBrokersByCriteria is false" & vbCrLf & "Number: " & oResult.Number & vbCrLf & "Desc: " & oResult.Description & vbCrLf & "TAMErrorNumber: " & oResult.TAMErrorNumber & vbCrLf & "TAMErroDesc: " & oResult.TAMDescription End If