![]() | |
ConneXionFindVendor Method |
Namespace: ConneXion
Dim oConneXion As New ConneXion.ConneXion Dim oResult As New ConneXion.ConneXionResult Dim oVendor As New ConneXion.Vendor oVendor.TAMUserName = "EXEC" oVendor.TAMPassword = "PSWD" oVendor.EntityID = "ABCSUP1" oResult = oConneXion.FindVendor(oVendor) If oResult.Success = False Then txtResult.Text = "FindVendor is false. " & oResult.Description & oResult.TAMDescription Else txtResult.Text = "FindVendor is successful. " & oResult.Description & oResult.TAMDescription End If