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


Cet exemple est une procédure permettant de mettre à jour une base connectée.



// Procédure de mise à jour de la base connectée
Procédure ModifClient()
Res est un booléen
RequêteU, Requête est une chaîne
Res = SQLExec("SELECT NUMCLI, CODEPOSTAL, VILLE FROM CLIENT", "REQSELECT")
SI PAS Res ALORS
    // Traitement de l'erreur
FIN
SQLAssocie("REQSELECT", NumClient, CodePostal, Ville)
// Mise à jour de tous les clients
SQLPremier("REQSELECT")
    TANTQUE PAS SQL.EnDehors
       SI Ville = "MONTPELLIER" ALORS
          // Exécution d'une requête de modification sur la base
          RequêteU = "UPDATE CLIENT SET CODEPOSTAL='34000'" + ...
                     "WHERE NUMCLI=" + NumClient
          // Exécution de la requête
          SQLExec(RequêteU, "REQUPDATE")
          // Mise à jour de la table associée
          SQLInfoGene("REQSELECT")
          // Modification identique sur le résultat
          // pour ne pas ré-exécuter la requête de sélection
          Requête = NumClient + TAB + "34000" + TAB + Ville
          SQLModifie ("REQSELECT", SQL.EnCours, Requête)
      FIN
    SQLSuivant("REQSELECT")
FIN