[VB6]Affichage images dans un datareport

**papadethiediouf** · 16/01/2006, 12h24

Salut,

J'ai une base de données access que j'attaque avec mon application en VB6. Dans cette base, j'ai une table Vente dans laquelle j'ai un champ CheminImage, où je stocke le chemin de l'image dans la base et les images sont dans un répertoire de l'application.
Maintenant je crée un état où je veux afficher chaque enregistrement avec son image. Mais je constate que c une seule et meme image qui se répete pour tous les enregistrements.

Comment faire pour avoir chaque enregistrement avec l'image correspondante.

Merci

**AlainTech** · 23/01/2006, 21h38

Pas de réponse après une semaine...

Probablement parce que la question n'est pas claire pour tout le monde.

Comment fais-tu ton état?

**papadethiediouf** · 25/01/2006, 10h45

ben voici comment je fais pour afficher mon état qui a les images :

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
Private sub btn_Afficher_Etat()
' Déclaration des variables
dim cn as new adodb.connection
dim rs as new adodb.recordset
dim NomComplet as string
 
      'J'ouvre ma connection avec mon DSN
      cn.open "DSN=DSNEXEMPLE"
 
      'Je crée mon recordSet
 
      rs.open "select * from vente", cn, adopenKeyset
 
      NomComplet =rs.Fields(6)  '(En fait dans le recordset le sixieme champ represente le chemin complet + le nom de l'image )
 
      set NomDataReport.sections("Section1").Controls!NomChampImageDansEtat.Picture=loadPicture(NomComplet )
 
      set  NomDataReport.datasource=rs
      NomDataReport.show
 
end sub

En résumé, j'ai une base de données access. Dans la table Ventes j'ai un champ texte où je stocke le chemin complet de mes images. Les images en tant que tel sont stockées dans un répertoire de l'application

Ainsi, en exécutant mon code la derniere image lue s'affiche pour tous les enregistrements. alors que je voudrais afficher chaque enregistrement avec son image correspondante.

Merci d'avance les gars