1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| FONCTION GBFReqUpdate(cReqUpdate)
nReqUpdate est une chaîne = "REQ_UPDATE"
ReqUpdateOK est un booléen
// Boucle sur la requête update tant que elle ne s'est pas correctement effectuée
// et que l'utilisateur la ressaie.
BOUCLE
// Execute la requete.
SI PAS SQLExec(cReqUpdate,nReqUpdate) ALORS
SQLInfoGene(nReqUpdate)
Erreur("Erreur SQL : "+SQL.MesErreur,"Mise à jour non effectuée.","Requête en cause :",cReqUpdate)
ReqUpdateOK=Faux
SI PAS OuiNon("Ressayer la mise à jour ?") ALORS SORTIR
SINON
ReqUpdateOK=Vrai
SORTIR
FIN
// fermeture de la requête.
SQLFerme(nReqUpdate)
FIN |
Partager