Discussion :

[Mr l'Ashanti]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Phil Rob]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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é ....

[Mr l'Ashanti]

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

[Phil Rob]

Quelle erreur, à quelle ligne ?

...

Voici l'exemple que je reprends de ma doc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

...

[Mr l'Ashanti]

En image le code
L'erreur en image aussi

[Mr l'Ashanti]

[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 ...

[Mr l'Ashanti]

Merci bien... Je vais aussi chercher de mon côté.

[Phil Rob]

Oui bien sûr, mais as-tu essayer d'intervertir les 2 lignes ?

[Mr l'Ashanti]

Oui et toujours le même message

[Phil Rob]

Ok, je me fais un programme de test et je te dirai ...

[popo]

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

[Phil Rob]

Bien vu Popo !

Voici ce que devrait le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

....