Listview vb6 [Résolu]

Signaler
Messages postés
12
Date d'inscription
lundi 16 mars 2009
Statut
Membre
Dernière intervention
5 mars 2010
-
Messages postés
12
Date d'inscription
lundi 16 mars 2009
Statut
Membre
Dernière intervention
5 mars 2010
-
Bonjour,
j'ai un listview qui contient plusieurs lignes avec l'option Checkboxe = true
Mon traitement consiste a cocher des lignes de la listeview et récupérer le résultat de la base de données par exemple si je coche de ligne de la liste view, je dois récupérer le résultat de ces deux lignes cochées de la base de donnée, voila mon code mais ne marcha pas, svp je veux d'aide et merci d'avance:
private sub ma_procedure()
Dim i
'On Error Resume Next
Set rs1 = New Recordset
Call ConnectDB
If MsgBox("Voulez vous facturer les réservations", vbYesNo, "Confirmation") = vbNo Then
Exit Sub
End If
'While List1.SelectedItem.Checked
For i = 1 To List1.ListItems.Count
If List1.Checkboxes = True Then
rs1.Open "select distinct(MFT_AR_DETAILR_PRIXA),MFT_AR_DETAILR_YRES_ID,MFT_AR_DETAILR_PRIXB,MFT_AR_DETAILR_PRIXC,MFT_AR_DETAILR_PRIXT from MFT_AR_DETAILR x where x.MFT_AR_DETAILR_YRES_ID='" & List1.SelectedItem & "' and not exists (select * from MFT_AR_DETAILR y where MFT_AR_DETAILR_PRIXA is null and x.MFT_AR_DETAILR_YRES_ID=y.MFT_AR_DETAILR_YRES_ID)", db, adOpenDynamic, adLockOptimistic
'rs1.MoveFirst
Do While Not rs1.EOF
MsgBox rs1!mft_ar_detailr_prixa & vbTab & rs1!MFT_AR_DETAILR_YRES_ID
rs1.MoveNext
Loop
rs1.Close
Set rs1 = Nothing

End If
Next
end sub

2 réponses

Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
67
For i = 1 To List1.ListItems.Count 
    If List1.Checkboxes = True Then 
        ...
    End If
Next


ici, tu ne fais AUCUN lien entre i est le fait qu'un item d'indice i soit coché ou non.

il faudrait quelque chose comme:
For Each oItem As ListViewItem In ListView1.Items
            If oItem.Checked Then
                ...
            End If
        Next



Renfield - Admin CodeS-SourceS - MVP Visual Basic
Messages postés
12
Date d'inscription
lundi 16 mars 2009
Statut
Membre
Dernière intervention
5 mars 2010

Merci Renfield, c'est tres gentil