cnxCnx3 est une Connexion
ReqClient est une Source de Données
SI PAS HDécritConnexion(cnxCnx3, "test", "test", "SRVDC", "BASETEST", hOledbSQLServer, hOLectureEcriture) ALORS
Info(HErreurInfo())
SINON
// Ouverture de la connexion
HOuvreConnexion(cnxCnx3)
// Exécution de la requête
SI
HExécuteRequêteSQL(ReqClient, cnxCnx3, hRequêteSansCorrection, "SELECT AC_PrixVen FROM F_ARTCLIENT WHERE Ar_Ref='" + COMBO_LISTE_SOMMEIL..ValeurAffichée +"'") ALORS
// Parcours du résultat
HLitPremier(ReqClient)
TANTQUE HTrouve(ReqClient)
LIB_Libellé1..Libellé=ReqClient.AC_PrixVen
HLitSuivant(ReqClient)
FIN
SINON
Info(HErreurInfo())
FIN
FIN
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=18&topic_id=6085&post_id=24421