Re: PARAMETRAGE D4 UNE REQUET E

Posté par Sogestion le 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