Récupérer des enregistrements dans une listview en passant par DAO

Version imprimable

Bonjour à vous
Dans mon apprentissage du VB. Net , je me heurte à un problème un peu plus simple mais embêtant.
En effet, je récupère les enregistrements d'une table par la méthode classique de Access en passant par DAO comme en VBA.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Requête="Syntaxe SQL" RS=dB.OpenRecordSet(Requête) Dim Lv as New ListViewItem RS.movefirst While not Rs.EOF With Lv Lv.text=RS.fields("colonne1").value Lv.SubItem.add(Rs.fields("colonne2").value) RS.moveNext End with End while Listview1.items.add(Lv)
Note: j'ai recopié ce code, vu que je suis au travail. Donc il peut avoir une petite erreur de syntaxe.

Dans la ListView, j'obtiens un chargement mais uniquement la première ligne.

Merci de m'aider

Bonjour,

Peut-être qu'en affectant la ListView à l'intérieur de la boucle While, tu obtiendras tous les enregistrements ...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Requête="Syntaxe SQL" RS=dB.OpenRecordSet(Requête) While not Rs.EOF Dim Lv as New ListViewItem With Lv Lv.text=RS.fields("colonne1").value Lv.SubItem.add(Rs.fields("colonne2").value) End with Listview1.items.add(Lv) End while
!!! J'ai pas testé ....

:D

11/12/2023, 11h25
Mr l'Ashanti

Merci à vous mais Ça ne passe pas. Ça génère une erreur.
Je l'ai déjà essayé à plusieurs reprises.

Quelle erreur, à quelle ligne ?

...

Voici l'exemple que je reprends de ma doc :

Code:

1
2
3
4
Dim UneLigne As ListViewItem			' Déclaration d’une variable de type ListViewItem
UneLigne = MaListView.Items.Add("Info 1")	' Création de la ligne avec la donnée de colonne 0
UneLigne.SubItems.Add("Sous info 1 de 1")	' Crée un sous élément avec la donnée de colonne 1 
UneLigne.SubItems.Add("Sous info 2 de 1")	' Crée un sous élément avec la donnée de colonne 2

Donc dans ton code, ça doit être (il faut donner le nom de la ListView):

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 Requête="Syntaxe SQL"
RS=dB.OpenRecordSet(Requête)
 
While not Rs.EOF
 
Dim Lv as ListViewItem ' !!!!!! PAS DE NEW
 
With Lv
   Lv=LeNomDeLaListView.Items.Add(RS.fields("colonne1").value)
   Lv.SubItem.add(Rs.fields("colonne2").value)
End with
 
Listview1.items.add(Lv)
 
End while

...

11/12/2023, 13h36
Mr l'Ashanti

1 pièce(s) jointe(s)

En image le code
L'erreur en image aussi
11/12/2023, 13h39
Mr l'Ashanti

1 pièce(s) jointe(s)

Pièce jointe 647667
11/12/2023, 13h54
Phil Rob

Bon sang, DAO, c'est loin ...

Mais si cette erreur vient de la ligne ListView1.Items.Add(Lst), il faudrait la permuter avec la ligne RcSet.MoveNext().

Si ça ne marche pas, je ferai des tests, mais pas avant la soirée ...
11/12/2023, 14h15
Mr l'Ashanti

Merci bien... Je vais aussi chercher de mon côté.
11/12/2023, 14h21
Phil Rob

Oui bien sûr, mais as-tu essayer d'intervertir les 2 lignes ?
11/12/2023, 14h26
Mr l'Ashanti

Oui et toujours le même message
11/12/2023, 14h32
Phil Rob

Ok, je me fais un programme de test et je te dirai ...
11/12/2023, 14h47
popo

1 pièce(s) jointe(s)

Ce serait plus simple si tu copiais le code au lieu de mettre des impressions d'écrans !

Ton message d'erreur est logique puisque tu ajoute effectivement deux fois le même item.
Une fois sur la ligne que j'ai entouré en vert et qu'il faut conserver.
Une seconde fois sur la ligne que j'ai barré en rouge et qu'il faut enlever.
Il faut garder le MoveNext qui permet de parcourir l'élément suivant renvoyé par ta requête
Pièce jointe 647669

Bien vu Popo !

Voici ce que devrait le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
'... affectation du RcSet
'...
'... puis :
 
 
RcSet.MoveFirst
While Not RcSet.EOF
 
            Dim Lv As ListViewItem ' !!!!!! PAS DE NEW
 
            Lv = ListView1.Items.Add(RS.fields("Nom").value)
 
            With Lv
 
                .SubItems.Add(Rs.fields("Classe").value)
                .SubItems.Add(Rs.fields("Age").value)
                .SubItems.Add(Rs.fields("Domicile").value)
 
            End With
 
       RcSet.MoveNext
 
End While

Révise la syntaxe, je n'ai pas pu tester avec un DAOP mais avec un autre type d'objet. Le code ci-dessus n'est donc pas un copié-collé mais une retranscription adaptée.

....