Plusieurs dans un datareport

Master -  
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
Je suis sur un projet de gestion de pelerin. Et je développe sous Visual Basic 6.0. Dans un DataReport, j'arrive à afficher la photo d'un individu. Mais lorsque je veux afficher une série de photos dans le Datareport, je constate que la même photo apparaît sur tous les états générés par le programme.
Voici les codes

Sub Afficher_Formulaire()
Dim Cnx As ADODB.Connection
Dim Rst As ADODB.Recordset
Dim Chemin As String
Dim Sql As String
Dim Col, Lig, I As Integer
Dim Elements As ListItem


Chemin = LireCheminPelerin

Set Cnx = New ADODB.Connection
Cnx.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Chemin & "; User Id=Admin;Password="

Sql = "SELECT * FROM T_PELERINS_ListePhoto Where T_PELERINS_ListePhoto.Ins=23 "
Set Rst = New ADODB.Recordset
Rst.CursorLocation = adUseClient
Rst.Open Sql, Cnx, adOpenStatic, adLockOptimistic

Set PhotoListe.DataSource = Rst
'Set PhotoListe.DataSource = Rst
Rst.MoveFirst
'While Rst.EOF = False
'PhotoListe.DataMember = ""
PhotoListe.Hide
PhotoListe.Sections("Section1").Controls("Text1").DataField = Rst(0).Name
PhotoListe.Sections("Section1").Controls("Text2").DataField = Rst(1).Name
PhotoListe.Sections("Section1").Controls("Text3").DataField = Rst(2).Name
PhotoListe.Sections("Section1").Controls("Text4").DataField = Rst(3).Name
Set PhotoListe.Sections("Section1").Controls("Image1").Picture = LoadPicture("C:\JulaPelerins\Photos\" & Rst.Fields(4))


'Wend
PhotoListe.Refresh
PhotoListe.Show
End Sub

1 réponse

Réponse 1 / 1
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

Pour une serie de photos il faut faire avancer le pointeur d'enregistrement du recordset Rst par Rst.MoveNext dans votre boucle 
While Rst.EOF=False
.
. votre code d'affichage
.
Rst.MoveNext
Wend
0