![]() | |
ConneXionFindLookup Method |
Namespace: ConneXion
Private Sub btnFindLookup_Click(sender As Object, e As EventArgs) Handles btnFindLookup.Click Dim oConneXionLookup As New ConneXion.ConneXion Dim oLookup As New ConneXion.Lookup Dim oResult As ConneXion.ConneXionResult oLookup.TAMUserName = "EXEC" oLookup.TAMPassword = "PSWD" oLookup.LicenseKey = "1234567 1" oLookup.TAMCentralAgency = "DEMOAG1" oLookup.LookupType = "Agency" oLookup.Code = 1 oResult = oConneXionLookup.FindLookup(oLookup) If oResult.Success = True Then MessageBox.Show("FindLookup was successful") Else txtResult.Text = "Number: " & oResult.Number & vbCrLf & "Description: " & oResult.Description & vbCrLf & "TAMErrorNumber: " & oResult.TAMErrorNumber & vbCrLf & "TAMErroDesc: " & oResult.TAMDescription End If End Sub