Exemple d'utilisation de la commande SQLExec

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 permet d'exécuter une requête de suppression sans lui donner de nom. Cette requête ne renverra pas de résultat.

ResExec = SQLExec ("DELETE CLIENT WHERE NUMCLI = " + NumClient)
SI PAS ResExec ALORS
// Traite erreur
FIN

Cet exemple permet d'exécuter une requête et d'affecter les champs de la fenêtre de type Fiche avec le résultat de la requête.

// Exécution de la requête et affectation des champs
ResExec = SQLExec ("SELECT NOMCLI, ADR1, ADR2, VILLE, CP FROM FACT", "REQ2")
SI ResExec ALORS
   // Transfert du résultat dans les champs associés
   SQLAssocie("REQ2", NomCli, Adr[1], Adr[2], Ville, CodePostal)
   // Affichage du premier
   SQLPremier("REQ2")
SINON
   // Traite erreur
FIN
SQLFerme("REQ2")

Cet exemple permet d'obtenir des informations sur la requête exécutée.

// Exécution des champs et récupération des informations
SQLExec ("SELECT* FROM FACT", "REQ1")
SI PAS ResExec ALORS
   SQLInfoGene("REQ1")
   Info("Erreur exécution de la requête : " + SQL.MesErreur)
SINON
   Info("Nombre de colonnes : " + SQL.NbCol)
FIN
SQLFerme("REQ1")