Pb listview
Bonjour,
voilà mon listview je n'arrive pas à le charger de ma BDD j'ai essayer différente proposition mais rien n'a fonctionner je suis en cale seche ! si quelqu'un peut me debugger se serait sympas, il me semble qui manque pas grand chose .
voici mon code actuel :
Function listview1_chargement()
Dim RSCONSO4 As Recordset
Dim Requete As String
Set BDDCONSO = OpenDatabase(Workbooks("AutoBEv2.xls").Path & "/BDD Access/BDD CONSO.mdb")
Requete = "SELECT * FROM CONSO"
Set RSCONSO4 = BDDCONSO.OpenRecordset(Requete)
'dans le cas ou plusieurs résultats sont attendus
While Not RSCONSO4.EOF
'récupération des valeurs
' UserForm1.ListView1.Add (RSCONSO4!appareil = ListItem(1) & RSCONSO4!Install = ListItem(2) & RSCONSO4!Cal = ListItem(3))
UserForm1.ListView1.ListItems(1).ListSubItems.Add RSCONSO4!appareil
RSCONSO4.MoveNext
Wend
BDDCONSO.Close
End Function
mon pb vient surtout au niveau de la récupérations des valeurs, j'ai été voir des tuto mais j'ai pas réussi !
merci à la personne ou les personnes qui pourront m'éclaircir sur ce point !
voilà mon listview je n'arrive pas à le charger de ma BDD j'ai essayer différente proposition mais rien n'a fonctionner je suis en cale seche ! si quelqu'un peut me debugger se serait sympas, il me semble qui manque pas grand chose .
voici mon code actuel :
Function listview1_chargement()
Dim RSCONSO4 As Recordset
Dim Requete As String
Set BDDCONSO = OpenDatabase(Workbooks("AutoBEv2.xls").Path & "/BDD Access/BDD CONSO.mdb")
Requete = "SELECT * FROM CONSO"
Set RSCONSO4 = BDDCONSO.OpenRecordset(Requete)
'dans le cas ou plusieurs résultats sont attendus
While Not RSCONSO4.EOF
'récupération des valeurs
' UserForm1.ListView1.Add (RSCONSO4!appareil = ListItem(1) & RSCONSO4!Install = ListItem(2) & RSCONSO4!Cal = ListItem(3))
UserForm1.ListView1.ListItems(1).ListSubItems.Add RSCONSO4!appareil
RSCONSO4.MoveNext
Wend
BDDCONSO.Close
End Function
mon pb vient surtout au niveau de la récupérations des valeurs, j'ai été voir des tuto mais j'ai pas réussi !
merci à la personne ou les personnes qui pourront m'éclaircir sur ce point !
Configuration: Windows XP Internet Explorer 6.0
2 réponses
-
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 ;) -
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
