![]() | |
ConneXionFindCommercialInfo Method |
Namespace: ConneXion
Dim oConneXionCommercialInfo As New ConneXion.ConneXion Dim oCommercialInfo As New ConneXion.CommercialInfo Dim oResult As ConneXion.ConneXionResult oCommercialInfo.TAMUserName = "EXEC" oCommercialInfo.TAMPassword = "PSWD" oCommercialInfo.LicenseKey = "1234567 1" oCommercialInfo.TAMCentralAgency = "DEMOAG1" oCommercialInfo.ClientKey = "C" oCommercialInfo.ClientID = "BOXHI-1" oCommercialInfo.RecordNumber = "13" oResult = oConneXionCommercialInfo.FindCommercialInfo(oCommercialInfo) If oResult.Success = False Then txtCommercialInfo.Text = "FindCommercialInfo is false. " & oResult.Description & oResult.TAMDescription Else txtCommercialInfo.Text = "FindCommercialInfo is successful. " & oResult.Description & oResult.TAMDescription End If