PROCEDURE _MAJComboCouleur()
// Cette procédure met à jours les champs du Combo_Famille
ResSQL est un booléen
txtREQ est une chaîne
//On établit la connexion à la base
_SQLEtablirConnexion()
// On efface tous les éléments du combo
ListeSupprimeTout(COMBO_CouleurProduit)
txtREQ="SELECT Norme +' '+ Code AS CodeCouleur FROM dbo.tb_couleurs ORDER BY Norme, Code ASC"
ResSQL=SQLExec(txtREQ,"REQ1")
SI PAS ResSQL ALORS
SQLInfoGene("REQ1")
Info("Erreur sur la requête"+SQL.MesErreur)
SINON
TANTQUE SQLAvance("REQ1") =0
ListeAjoute(COMBO_CouleurProduit,SQLLitCol("REQ1",1))
FIN
FIN
SQLFerme("REQ1")
SQLDéconnecte()
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=17&topic_id=4476&post_id=18514