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. Cet exemple utilise le type Source de données pour manipuler la requête.



MaRequête EST UNE SOURCE DE DONNEES
// Initialise la requête
SI PAS HExécuteRequeteSQL ( MaRequête ,...
              "SELECT NOM,PRENOM FROM CLIENT WHERE CLIENT.NOM = 'DUPOND'" ) 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
   // Accès aux rubriques par MaRequête.<Nom rubrique>
   ...
   // lecture de l' enregistrement suivant
   HLitSuivant ()
FIN




ReqClient est une Source de Données
SI PAS HDécritConnexion("MaConnexion", "sa", "","SQLNATIF", "",...
                 hAccèsNatifSQLServer , hOLectureEcriture ) ALORS
    Erreur(HErreurInfo())
SINON
     // ouverture de la connexion
    HOuvreConnexion("MaConnexion")
    Sablier
   
// Exécution de la requête
    SI HExécuteRequêteSQL(ReqClient, "MaConnexion", hRequêteDéfaut ,...
        "SELECT * FROM Economat") ALORS
       // parcours du résultat
       HLitPremier(ReqClient)
       SI PAS HEnDehors(ReqClient) ALORS
          FichierVersTableMemoire(Table, ReqClient)
       FIN
    FIN
    Sablier( Faux )
FIN