1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
| TANTQUE SQLAvance("LIST_CPTE")=0
strInsrt="INSERT INTO ENGAGEMENT(age,cli,codeges,compte,devise,chapitre,inti,solde) VALUES "
strInsrt=strInsrt + "('" + SansEspace(SQLLitCol("LIST_CPTE",1)) + "','" + SansEspace(SQLLitCol("LIST_CPTE",2)) + "','" + SansEspace(SQLLitCol("LIST_CPTE",3)) + "','" + SansEspace(SQLLitCol("LIST_CPTE",4)) + "-" + SansEspace(SQLLitCol("LIST_CPTE",5)) + "',' "
strInsrt=strInsrt + SansEspace(SQLLitCol("LIST_CPTE",6)) + "','" + SansEspace(SQLLitCol("LIST_CPTE",7)) + "','" + Remplace(SansEspace(SQLLitCol("LIST_CPTE",8)),"'","''") + "','" + SQLLitCol("LIST_CPTE",9) + "')"
SI HExécuteRequêteSQL(list_compte,"UneConnexion",hRequêteSansCorrection,strInsrt)=Faux ALORS
Erreur("Erreur à l'insertione de " + ...
RC+...
"Code erreur : " + hErrEnCours +RC+...
HErreurInfo() + RC + strInsrt)
FIN
FIN |
Partager