2 réponses
freto
Messages postés
1542
Date d'inscription
vendredi 6 juillet 2007
Statut
Membre
Dernière intervention
8 avril 2016
167
13 mars 2008 à 15:00
13 mars 2008 à 15:00
Re. Comme quoi dessous ta main c confortable, me revoilou.
Alors deja essaie de déclarer ton record set comme ci dessous:
Dim rst As ADODB.Recordset
ensuite pour ajouter tu peut faire comme cela je crois
UserForm1.ListView1.ListItems(1).ListSubItems.Add , , RSCONSO4("appareil")
A une virgule près, ce n'est pas une science exacte ;)
Alors deja essaie de déclarer ton record set comme ci dessous:
Dim rst As ADODB.Recordset
ensuite pour ajouter tu peut faire comme cela je crois
UserForm1.ListView1.ListItems(1).ListSubItems.Add , , RSCONSO4("appareil")
A une virgule près, ce n'est pas une science exacte ;)
Dim rst As ADODB.Recordset ==> a quoi sert ADODB c'est le fameux tranfert avec ADO c'est ca ?
en fait j'ai changé mon code pour le listview avec :
While Not RSCONSO4.EOF
ListView1.ListItems(1).ListSubItems.Add , , RSCONSO4("appareil")
ListView1.ListItems(Index).SubItems(1) = RSCONSO4.Fields("appareil")
ListView1.ListItems(Index).SubItems(2) = RSCONSO4.Fields("Install")
ListView1.ListItems(Index).SubItems(3) = RSCONSO4.Fields("Cal")
Index = Index + 1
RSCONSO4.MoveNext
mais j'ai une erreur qui vient : erreur "objet requis" mais je ne vois pas pourquoi ?
* je pensais pas que ma main était si confortable lol
en fait j'ai changé mon code pour le listview avec :
While Not RSCONSO4.EOF
ListView1.ListItems(1).ListSubItems.Add , , RSCONSO4("appareil")
ListView1.ListItems(Index).SubItems(1) = RSCONSO4.Fields("appareil")
ListView1.ListItems(Index).SubItems(2) = RSCONSO4.Fields("Install")
ListView1.ListItems(Index).SubItems(3) = RSCONSO4.Fields("Cal")
Index = Index + 1
RSCONSO4.MoveNext
mais j'ai une erreur qui vient : erreur "objet requis" mais je ne vois pas pourquoi ?
* je pensais pas que ma main était si confortable lol