utiliser ListView(jarrive pas a y mettre de données).

je n'arrive pas a inserer les données de la table dans une listview.
quel propriete utiliser et comment faire avec uune requete
Olivier

dim resultat as colelction
dim tmpvente as vente 'vente = une classe
lvRecherche.ListItems.Clear
resultat= 'une colelction de ventes

For Each tmpVente In resultat
Set Item = lvRecherche.ListItems.Add()
Item.text = tmpVente.NumFacture
Item.SubItems(1) = tmpVente.DateVente
Item.SubItems(2) = Format(tmpVente.PrixTTC, "##,##0.00")
Next

Voici un exemple que j'utilise :

Dim db As Connection
Dim adoProduitRS As Recordset
Set db = New Connection
Me.Caption = "Nouveau BL expédition"

'initialisation de la listeview
LVProd.View = lvwReport
Call LVProd.ColumnHeaders.Add(, , "Ref. produit", 1000)
Call LVProd.ColumnHeaders.Add(, , "Désignation", 1700)
Call LVProd.ColumnHeaders.Add(, , "Unité facturation", 1700)
Call LVProd.ColumnHeaders.Add(, , "Prix", 1700)

'accès aux données et affichage
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=m:\dossier\base.mdb;"
Set adoProduitRS = New Recordset
adoProduitRS.Open "select RefProd, Designation, PrixTonne, PrixStere from ProduitsVente Order by RefProd", db, adOpenStatic, adLockOptimistic

Do While Not adoProduitRS.EOF
If CLng(adoProduitRS("PrixTonne")) > 0 Then
Set wItem = LVProd.ListItems.Add(, , adoProduitRS("RefProd") & "T")
wItem.SubItems(1) = adoProduitRS("Designation")
wItem.SubItems(2) = "Tonne"
wItem.SubItems(3) = adoProduitRS("Prixtonne")
End If
If CLng(adoProduitRS("PrixStere")) > 0 Then
Set wItem = LVProd.ListItems.Add(, , adoProduitRS("RefProd") & "S")
wItem.SubItems(1) = adoProduitRS("Designation")
wItem.SubItems(2) = "Stère"
wItem.SubItems(3) = adoProduitRS("PrixStere")
End If
adoProduitRS.MoveNext
Loop

Anthony