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