Return to Snippet

Revision: 68216
at December 12, 2014 20:40 by jicey


Initial Code
sRemplcement est une chaîne
sdReqSel est une Source de Données
sReqSel est une chaîne = "SELECT COUNT(*) AS NB " + ...
                          "FROM ZPLATEFORMEENCOURS " + ...
                          "WHERE PEC_PLATEFORME = '{NumPlateforme}'"
										  
sReqSel = Remplace(sReqSel, "{NumPlateforme}", sRemplacement)

SI PAS HExécuteRequêteSQL(sdReqSel, ConnexionCegid, hRequêteSansCorrection, sReqSel) ALORS
    Erreur("Erreur lors de ...")
    Erreur(HErreurInfo())
    VersPressePapier(sReqSel)
SINON
    HLitPremier(sdReqSel)
	
    TANTQUE PAS HEnDehors(sdReqSel)

        HLitSuivant(sdReqSel)
    FIN
FIN

HFerme(sdReqSel)

Initial URL


Initial Description
Passage direct d'une requête via une source de données ODBC

Initial Title
WINDEV - Exécution direct de requête via ODBC

Initial Tags


Initial Language
W-Language