Re: PARAMETRAGE D4 UNE REQUET E |
Sujet: Re: PARAMETRAGE D4 UNE REQUET E par Sogestion sur 22/10/2006 11:13:28 Bonjour, Exemple : // Champs de saisie du paramêtre SAI_Exec = 2006 // Lancement de la procédure ListeDesRubriques(SAI_Exerc) // ---------------------------------- PROCEDURE ListeDesRubriques(psExerc) LOCAL sdReq est une Source de Données sCodeSQL est une chaîne // [< Requete - Titre compte >] sCodeSQL = [ SELECT [IDCompte], [LibCompte] FROM BalCompte WHERE [Exercice] = '%1' AND [TypeCpte] = 1 ORDER BY [IDCompte] ASC ] // [< Construire requête >] sCodeSQL = ChaîneConstruit(sCodeSQL, psExerc) SI PAS HExécuteRequêteSQL(sdReq, sCodeSQL) ALORS Ouvre(MsgBox, " Requête", ">>> Erreur d’initialisation de la requête ... "+RC+HErreurInfo(),1) RETOUR SINON ListeSupprimeTout(COMBO_Cpte1) POUR TOUT sdReq ListeAjoute(COMBO_Cpte1, sdReq.LibCompte) FIN FIN HAnnuleDéclaration(sdReq) // ------ Espérant avoir pu vous aider Cordialement Albert |