pcsoft.fr.windevCopyright 2026, PC SOFT23 Apr 2020 14:16:52 Z23 Apr 2020 12:42:56 ZBonjour à tous, Je rencontre un problème et j'ai besoin de votre aide. J'ai un projet qui tourne uniquement en base SQL serveur (pas d'analyse) J'ai une table avec une rubrique image (je ne peux pas stocker le chemin pour différentes raisons). Dans le programme, l'utilisateur choisit son image qui est stocké dans une zone répétée. ensuite j’exécute le code suivant pour la stocker [code:wl] bufFichier est un Buffer sImg64 est une chaîne ANSI SI nNBPhoto > 0 ALORS POUR i = 1 _À_ nNBPhoto SI ZR_ListeImage[i].ATT_GRPPHOTO_NOTE <> "" ALORS bufFichier = fChargeTexte(ZR_ListeImage[i].IMG_GRPPHOTO) sImg64 = Crypte(bufFichier,"",crypteAucun,encodeBASE64) SINON sImg64 = Remplace(gtabSauvImage[i],"'","''") FIN SI ZR_ListeImage[i].SAI_GRPID = 0 ALORS //Création sTxtInsertUpd = "INSERT INTO GRADAGE_RACLETTE_PHOTO (GRID,GRPPHOTO,GRPCOMMENTAIRE,CREATUSER,CREATDATE) VALUES(%1,'%2','%3','%4','%5')" sTxtInsertUpd = ChaîneConstruit(sTxtInsertUpd,gnIdentifiant,sImg64,ZR_ListeImage[i].SAI_GRPCOMMENTAIRE,gUtilisateurCourant.Code,DateVersChaîne(DateSys(),"JJ/MM/AAAA")+" "+HeureVersChaîne(HeureSys(),"HH:MM:SS")+".000") SINON //Modification sTxtInsertUpd = "UPDATE GRADAGE_RACLETTE_PHOTO SET GRPPHOTO = '"+sImg64+"', GRPCOMMENTAIRE = '"+ZR_ListeImage[i].SAI_GRPCOMMENTAIRE+"', MODIFUSER = '"+gUtilisateurCourant.Code+"', MODIFDATE = '"+DateVersChaîne(DateSys(),"JJ/MM/AAAA")+" "+HeureVersChaîne(HeureSys(),"HH:MM:SS")+".000' WHERE GRPID = "+ZR_ListeImage[i].SAI_GRPID FIN SI sTxtInsertUpd <> "" ALORS SI PAS HExécuteRequêteSQL(sdInsertUpd,SQLConnexion,hRequêteSansCorrection,sTxtInsertUpd) ALORS Erreur(HErreurInfo()) FIN FIN FIN FIN [/code] Pas de soucis jusque là. Pour la relecture, j’exécute le code suivant : [code:wl] sTxtImage = "SELECT * FROM GRADAGE_RACLETTE_PHOTO WHERE GRID = "+gnIdentifiant+" ORDER BY GRPID" SI HExécuteRequêteSQL(sdImage,SQLConnexion,hRequêteSansCorrection,sTxtImage) ALORS HLitPremier(sdImage) TANTQUE PAS HEnDehors(sdImage) nLigne = ZoneRépétéeAjouteLigne(ZR_ListeImage) SI nLigne > 0 ALORS ZR_ListeImage[nLigne].SAI_GRPID = sdImage.GRPID ZR_ListeImage[nLigne].IMG_GRPPHOTO = Décrypte(sdImage.GRPPHOTO,"",crypteAucun,encodeBASE64) ZR_ListeImage[nLigne].SAI_GRPCOMMENTAIRE = sdImage.GRPCOMMENTAIRE FIN HLitSuivant(sdImage) FIN FIN HAnnuleDéclaration(sdImage) [/code] La photo s'affiche bien. Mais par contre si je fais à nouveau l'enregistrement, là quand je reviens sur l'écran plus aucune image. Pouvez-vous m'aider? Merci et bonne journée.30WEBDEVfr_FRhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/238984-image-base-sql-server/read.awpmoderateur@pcsoft.fr (El moderador)webmaster@pcsoft.fr (El webmaster)soddevpcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/238984-image-base-sql-server-238988/read.awp23 Apr 2020 14:16:52 ZJ'ai trouvé une solution à mon problème. Merci encorehttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/238984-image-base-sql-server-238988/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/238984-image-base-sql-server-238988/read.awpimage base SQL Server