pictogram Auteur: Patrick Biker
Date: 18 mars 2006
Maj : 21 Mars 2015

Exemples évolués

Chaque exemple montre une utilisation pratique de la fonction du WLangage.

Quand plusieurs syntaxes sont possibles, chacune est illustrée indépendamment.

Revenir à la page des exemples évolués


L'exemple suivant permet d'initialiser une requête pour ensuite la parcourir.



// Initialise la requête
 SI PAS HExécuteRequete ( MaRequête ) ALORS
   Erreur ( "Erreur d' initialisation de la requête" + RC + HErreurInfo ())
   RETOUR
 FIN
// lecture du premier enregistrement de la requête
 HLitPremier ( MaRequête )
 TANTQUE PAS HEnDehors ()
    // Traitement sur l' enregistrement de la requête
    ...
     // lecture de l' enregistrement suivant
    HLitSuivant ()
 FIN
 HAnnuleDéclaration ( MaRequête )


L'exemple suivant permet d'initialiser une requête pour ensuite la parcourir.



// Marequête = "Select * from Clients where IDClient = ?"
// Clients est un fichier OLEDB utilisant la connexion "MaConnexion1".

// La requête est exécutée sur "MaConnexion1"
HExécuteRequete (MaRequête, hRequêteDéfaut , 5)

// Changement de la connexion utilisée par le fichier "Clients"
HChangeConnexion(Clients, "MaConnexion2")
// La requête est exécutée sur "MaConnexion2"
 HExécuteRequete (MaRequête, hRequêteDéfaut , 5)
// Débute une transaction sur "MaConnexion3"
 SQLTransaction( SQLDébut , "MaConnexion3")
// Exécute la requête sur "MaConnexion3", quelle
// que soit la connexion utilisée par le fichier "Clients"
 HExécuteRequete (MaRequête, "MaConnexion3", hRequêteDéfaut , 5)