Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Comment se rempli un listview ?

Comment se rempli un listview ?

11 réponses
Avatar
TEV
Bonjour,

Comme dit dans le titre comment fait on pour remplir un listview avec des
données provenant d'une requête SQL.

Christian.
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Sophie
Merci, sa fonctionne très bien.

"Bismark Prods" a écrit dans le message de
news:
la solution est facile ! il suffit de sélectionner manuellement (par prog)
l'élément touchés dans ItemCheck ! et c'est bon !

"Sophie" a écrit dans le message de
news:
> Bonjour Christian,
>
> Sa fait la même chose chez moi , malheureusement,
> j'ai pas encore trouvé la solution.
>
> Sophie
>
> "TEV" a écrit dans le message de
> news:3f5ec834$0$12120$
> > Merci Sophie c'est une des réponses que j'espérais. L'autre était de
> savoir
> > comment cocher une checkbox avec le code.
> >
> > Et est-ce que cela fait pareil chez toi ? Lorsque je coche


manuellement
> une
> > des cases la ligne sélectionnée reste la première. Par exemple je


coche
la
> > 2ème case et pourtant la 1er ligne est sélectionnée et non pas la


2ème.
Y
> a
> > t'il moyen d'y remédier ?
> >
> > "Sophie" a écrit dans le message de news:
> >
> > > Voici un autre exemple si tu désires
> > > récupérer tous ceux dont la case est
> > > cochées.
> > >
> > > '/// récupère toutes les cases qui sont cochées
> > >
> > > For X = 1 To lvwListe.ListItems.Count
> > >
> > > If lvwListe.ListItems(X).Checked = True Then
> > >
> > > strNom = lvwListe.ListItems(X).Text
> > > ??? (ton code)
> > >
> > > End If
> > >
> > > Next X
> > >
> > > "Sophie" a écrit dans le message de
> > > news:O4mnM%
> > > > Si j'ai bien compris essaie ceci:
> > > > Variable= ListV.SelectedItem.Text
> > > >
> > > > Sophie
> > > >
> > > > "TEV" a écrit dans le message de
> > > > news:3f5e432d$0$10902$
> > > > > Vraiment je te remercie.
> > > > > J'ai enfin trouvé ce qui clochait, il me fallait mettre
> > > > > listview.view = lvwReport
> > > > >
> > > > > Et donc, en faisant comme cela tout les exemples que l'on m'a
donné
> > > > > fonctionnent.
> > > > >
> > > > > Maintenant j'ai comme soucis de vouloir checké les cases à


cocher
de
> > la
> > > > > listviews et de récupérer la valeur qui se trouve dans la
> colonne(pas
> > le
> > > > > false ou le true) en l'occurence des id. Le code suivant ne fait
que
> > les
> > > > > afficher
> > > > > listview.checkboxes = true
> > > > > ou les retirer en faisant
> > > > > listview.checkboxes = false
> > > > > Je suis désolé c'est du genre super casse pied, mais je galère.


Et
> > > encore
> > > > > merci pour l'intérêt.
> > > > >
> > > > >
> > > > > "Bismark Prods" a écrit dans le message de
news:
> > > > >
> > > > > > Je ne sais pas ce que tu ne fais pas mais je sais ce que je


fais
> > > presque
> > > > > 400
> > > > > > fois par jour lol !
> > > > > >
> > > > > > Dim IList As ListItem
> > > > > >
> > > > > > Set IList = ListView1.ListItems.Add(, , "truc")
> > > > > > IList.SubItems(1) = "truc2"
> > > > > > ...
> > > > > > Set IList = Nothing
> > > > > >
> > > > > > Personnellement je n'utilise presque jamais l'index et le key


de
> la
> > > > > methode
> > > > > > Add mais tu peux le faire si tu as besoin !!!
> > > > > >
> > > > > > lol bonne soirée
> > > > > >
> > > > > > "TEV" a écrit dans le message de
> > > > > > news:3f5dc777$0$15950$
> > > > > > > Le Set itListV = nothing figure dans le programme, il n'est
> > > simplement
> > > > > pas
> > > > > > > présent dans l'extrait.
> > > > > > >
> > > > > > > >pourquoi tu n'ajoute pas dans la methode add ? au lieu de
faire
> à
> > > > > > > > vide
> > > > > > >
> > > > > > > Je ne comprends pas la question. Je pensais ajouter quelques
> chose
> > > > comme
> > > > > > > cela puisque la variable itListV correspond à add.
> > > > > > > C'est faux puisque cela ne marche pas, donc comment faut il
> faire.
> > > De
> > > > > plus
> > > > > > > d'après l'exemple que m'a indiqué Sophie, cela devrait
> fonctionner
> > ?
> > > > > Alors
> > > > > > > qu'est ce que je ne fais pas ?
> > > > > > >
> > > > > > > "Bismark Prods" a écrit dans le message


de
> > news:
> > > > > > >
> > > > > > > > A la fin il y a un Set itListV = nothing qui manque deja
> > > > > > > > et puis pourquoi tu n'ajoute pas dans la methode add ? au
lieu
> > de
> > > > > faire
> > > > > > à
> > > > > > > > vide ?
> > > > > > > >
> > > > > > > > "TEV" a écrit dans le message de
> > > > > > > >


news:3f5d0e5e$0$11519$
> > > > > > > > > Merci pour la réponse, mais du coup je ne vois pas trop


ce
> qui
> > > > > cloche
> > > > > > > chez
> > > > > > > > > moi. Il n'affiche rien à partir des subitems.
> > > > > > > > >
> > > > > > > > > Mon code est le suivant j'utilise ADO et RCVF est le
> recordset
> > > > > > contenant
> > > > > > > > les
> > > > > > > > > données.
> > > > > > > > >
> > > > > > > > > Do Until RcVF.EOF
> > > > > > > > > Set itListV = ListV.ListItems.Add()
> > > > > > > > > itListV.Text = RcVF.Fields(0) ' Là il écrit
quelque
> > > chose
> > > > > > > > > itListV.SubItems(1) = RcVF.Fields(1) ' A


partir
> > d'ici
> > > > > plus
> > > > > > > rien
> > > > > > > > > itListV.SubItems(2) = RcVF.Fields(2)
> > > > > > > > > itListV.SubItems(3) = RcVF.Fields(3)
> > > > > > > > > itListV.SubItems(4) = RcVF.Fields(4)
> > > > > > > > > itListV.SubItems(5) = RcVF.Fields(5)
> > > > > > > > > RcVF.MoveNext
> > > > > > > > > Loop
> > > > > > > > >
> > > > > > > > > Il y a probablement une préparation que je n'ai pas su
> faire.
> > > > > > > > >
> > > > > > > > > Christian.
> > > > > > > > >
> > > > > > > > > "Sophie" a écrit dans le
message
> > de
> > > > > news:
> > > > > > > > >
> > > > > > > > > > Bonjour Christian,
> > > > > > > > > >
> > > > > > > > > > Exemple avec la méthode Dao,
> > > > > > > > > >
> > > > > > > > > > Dim listItem As listItem
> > > > > > > > > > Dim intNoAssureur As Integer
> > > > > > > > > > Dim strSQL As String
> > > > > > > > > > rsContact as Recordset
> > > > > > > > > >
> > > > > > > > > > '/// vide la ListView
> > > > > > > > > >
> > > > > > > > > > lvwListeContact.ListItems.Clear
> > > > > > > > > >
> > > > > > > > > > '/// sélectionne seulement les


enregistrements
> > > > > > correspondant
> > > > > > > au
> > > > > > > > > > champ
> > > > > > > > > > '/// "Numéro" affiché sur la feuille
> > > > > > > > > >
> > > > > > > > > > intNoAssureur = Int(txtNumero.Text)
> > > > > > > > > > strSQL = "SELECT * FROM [TableAssureurContact]" &


_
> > > > > > > > > > " WHERE [TableAssureurContact].Numero = "


&
> > > > > > intNoAssureur
> > > > > > > &
> > > > > > > > "
> > > > > > > > > ;
> > > > > > > > > > "
> > > > > > > > > > Set rsContact = dbGivan.OpenRecordset(strSQL)
> > > > > > > > > >
> > > > > > > > > > If rsContact.RecordCount <> 0 Then
> > > > > > > > > >
> > > > > > > > > > rsContact.MoveFirst
> > > > > > > > > >
> > > > > > > > > > Do Until rsContact.EOF
> > > > > > > > > >
> > > > > > > > > > Set listItem > lvwListeContact.ListItems.Add()
> > > > > > > > > > listItem.Text > rsContact![RefAssureurContact]
> > > > > > > > > > listItem.SubItems(1) > rsContact![NomContact]
> > > > > > > > > > listItem.SubItems(2) = rsContact![Titre]
> > > > > > > > > > listItem.SubItems(3) = rsContact![Tel]
> > > > > > > > > > listItem.SubItems(4) = rsContact![Ext]
> > > > > > > > > > listItem.SubItems(5) = rsContact![Fax]
> > > > > > > > > > listItem.SubItems(6) = rsContact![Cell]
> > > > > > > > > > listItem.SubItems(7) rsContact![Remarque]
> > > > > > > > > > rsContact.MoveNext
> > > > > > > > > > Loop
> > > > > > > > > >
> > > > > > > > > > '/// Libère les ressources
> > > > > > > > > >
> > > > > > > > > > Set listItem = Nothing
> > > > > > > > > >
> > > > > > > > > > End If
> > > > > > > > > >
> > > > > > > > > > '/// Libère les ressources
> > > > > > > > > >
> > > > > > > > > > rsContact.Close
> > > > > > > > > > Set rsContact = Nothing
> > > > > > > > > > strSQL = ""
> > > > > > > > > >
> > > > > > > > > > Sophie
> > > > > > > > > >
> > > > > > > > > > "TEV" a écrit dans le message de
> > > > > > > > > >
> news:3f5bc53d$0$2731$
> > > > > > > > > > > Bonjour,
> > > > > > > > > > >
> > > > > > > > > > > Comme dit dans le titre comment fait on pour remplir
un
> > > > listview
> > > > > > > avec
> > > > > > > > > des
> > > > > > > > > > > données provenant d'une requête SQL.
> > > > > > > > > > >
> > > > > > > > > > > Christian.
> > > > > > > > > > >
> > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > >
> > > > > > > > >
> > > > > > > >
> > > > > > > >
> > > > > > >
> > > > > > >
> > > > > >
> > > > > >
> > > > >
> > > > >
> > > >
> > > >
> > >
> > >
> >
> >
>
>




1 2