Discussion :

[helge]

Bonjour,

je bloque depuis plusieurs jours j'arrive à afficher dans une zone répété des images enregistrées dans une base de données MySQL mais dans un champ liste je n'arrive pas à les afficher
voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
sVrequete est une chaîne="SELECT *FROM `article"
SI MonAcces:mySQLExec(sVrequete,1) ALORS
	TANTQUE MonAcces:mySQLFetch(1)
		img est une Image
		bufImage est un Buffer=Décrypte(MonAcces:mySQLLitColParNom(1,"image"),"a")
		img=dChargeImage(bufImage)
		// sur chaque ligne action a faire 
		ListeAjoute(LSI_articles,MonAcces:mySQLLitColParNom(1,"libelle"),img)
 
	FIN	
SINON		
	Erreur(MonAcces:mySQLGetErrorMessage())    
FIN

[frenchsting]

Bonjour,

Première question : ça t'affiche bien le texte ? Celui renvoyé par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MonAcces:mySQLLitColParNom(1,"libelle")

Deuxième question : si tu ajoutes un champ image sur ta fenêtre et que tu affectes ton image récupérée, est-ce qu'elle s'affiche ? (En mettant bien sûr un point d'arrêt pour avoir le temps de voir l'affichage)

[helge]

bonjour oui le le texte s'affiche parfaitement et lorsque je mets un champ image je récupère bien l'image. Sur une zone répétée je n'ai pas ce problème
exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
ZR_article.SAI_Cat..Visible=Faux
rindice est un entier 
requete1 est une chaîne="SELECT * FROM `article` LEFT JOIN peremption ON article.id_article=peremption.id_article WHERE article.libelle LIKE '"+COMBO_ARTICLES+"%' ORDER BY peremption.date_peremption"
ZoneRépétéeSupprimeTout(ZR_article)
SI MonAcces:mySQLExec(requete1,1) ALORS
	TANTQUE MonAcces:mySQLFetch(1)
		// sur chaque ligne action a faire
 
 
		rindice = ZoneRépétéeAjouteLigne(ZR_article)
 
		SI rindice>0 ALORS
 
			ZR_article[rindice].LIB_Libellé         = MonAcces:mySQLLitColParNom(1,"libelle")
			ZR_article[rindice].SAI_Monétaire1       = MonAcces:mySQLLitColParNom(1,"prix_Vente")
			ZR_article[rindice].SAI_Entier1       = MonAcces:mySQLLitColParNom(1,"quantite")
			 img est une Image
			 bufImage est un Buffer=Décrypte(MonAcces:mySQLLitColParNom(1,"image"),"a")
			 img=dChargeImage(bufImage)
			ZR_article[rindice].IMG_SansNom1      =img
			ZR_article[rindice].SAI_TVA      = MonAcces:mySQLLitColParNom(1,"TVA")
			ZR_article[rindice].SAI_CSS      = MonAcces:mySQLLitColParNom(1,"CSS")
			ZR_article[rindice].SAI_Cat     = MonAcces:mySQLLitColParNom(1,"id_Categorie")
			ZR_article[rindice].SAI_ID      = MonAcces:mySQLLitColParNom(1,"id_article")
			ZR_article[rindice].LIB_Date     = MonAcces:mySQLLitColParNom(1,"date_peremption")
			ZR_article[rindice].LIB_posologie      = MonAcces:mySQLLitColParNom(1,"dosage")
 
 
 
		FIN
		SI ZR_article[rindice].SAI_Entier1<0 ALORS
		ZR_article[rindice].SAI_Entier1..Couleur=iRougeClair 
		ZR_article[rindice].LIB_Libellé..Couleur = iRougeClair
		FIN
	FIN
SINON
	Erreur(MonAcces:mySQLGetErrorMessage())    
FIN

ce code fonctionne très bien mais je n'arrive pas à l'appliquer sur un champs liste image

[Jon Shannow]

La syntaxe du ListeAjoute ne devrait-elle pas être

Code Windev :

Sélectionner tout - Visualiser dans une fenêtre à part

ListeAjoute(LSI_articles,MonAcces:mySQLLitColParNom(1,"libelle")+gImage(img))

Et encore, perso je passerai par un fichier temporaire, et je ferai

Code Windev :

Sélectionner tout - Visualiser dans une fenêtre à part

ListeAjoute(LSI_articles,MonAcces:mySQLLitColParNom(1,"libelle")+gImage(MonFichierTemporaire))

[Voroltinquo]

Bonjour,
Dans les ZR, il y a aussi la notion d'attribut à prendre en compte.
Normalement, on n'accède pas au champ d'une ZR directement mais grâce à son attribut.