![]() | |
ConneXionUpdateCommercialInfo Method |
Namespace: ConneXion
Dim oConneXion As New ConneXion.ConneXion Dim oCommercialInfo As New ConneXion.CommercialInfo Dim oResult As ConneXion.ConneXionResult oCommercialInfo.TAMUserName = "EXEC" oCommercialInfo.TAMPassword = "PSWD" oCommercialInfo.RecordNumber = "16" oResult = oConneXion.FindCommercialInfo(oCommercialInfo) If oResult.Success = False Then txtCommercialInfo.Text = "FindCommercialInfo is false. " & oResult.Description & oResult.TAMDescription Else oCommercialInfo.TAMUserName = "EXEC" oCommercialInfo.TAMPassword = "PSWD" oCommercialInfo.Contact = "Patti Riggs" oResult = oConneXion.UpdateCommercialInfo(oCommercialInfo) If oResult.Success = False Then txtCommercialInfo.Text = "UpdateCommercialInfo is false. " & oResult.Description & oResult.TAMDescription Else txtCommercialInfo.Text = "UpdateCommercialInfo is successful. " & oResult.Description & oResult.TAMDescription End If End If