[VBA] Recordset et Listbox

**rehren** · 14/05/2007, 10h17

Bonjour à tous,
Je vous expose mon problème:
Je crée un recordset alimenté par plusieurs tables (ce n'est pas forcément la meilleure chose à faire mais bon je n'ai pas le choix)

Je souhaite alimenter une Listbox via la propriété Listbox.recordset mais malheuresement cela ne fonctionne pas.(Il semblerait que les données soient tout de même chargées puisque un ascenceur sur la listbox apparait, mais les donées ne sont pas visible) La Listbox a bien pour RowSourceType = "table/query"

J'ai donc décidé d'utiliser la méthode additem qui fonctionne tres bien (le recordset est donc bien rempli )mais le temps de chargement est bien trop long ...

Est ce quelqu'un a déja rencontré ce type de problème et a un indice pour me mettre sur la voie?

Merci par avance

**mout1234** · 14/05/2007, 10h25

Bonjour,

Envoyé par rehren

...la propriété Listbox.recordset mais malheuresement cela ne fonctionne pas....

Il s'agit plus précisément de la propriété ListBox.RowSource

**rehren** · 14/05/2007, 10h34

Nan il s'agit bien de recordset en utilisant la méthode ce type

Code :

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

 Set result_list.Recordset = rs

J'ai essayé en utilisant un recordset que je n'ai pas créer moi même et cela fonctionne ! mais si je le créer cela ne fonctionne pas...

Merci quand même

**mout1234** · 14/05/2007, 10h45

Envoyé par rehren

J'ai essayé en utilisant un recordset que je n'ai pas créer moi même et cela fonctionne ! mais si je le créer cela ne fonctionne pas...

Le problème vient donc sans doute de la création de ton recordset.
Qu'as-tu mis comme code?

**rehren** · 14/05/2007, 10h51

Code :

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

1
2
3
4
5
6
7
   Dim rs As ADODB.Recordset
 
    Set rs = New ADODB.Recordset
 
    ' Ajout de deux champs
    rs.Fields.Append "id", adVarChar, 50
    rs.Fields.Append "product_name", adVarChar, 250

Par la suite je le remplis avec des valeurs , cela fonctionne sans problème (affichage correct avec additem)

Je me suis posé la question suivante est ce que un ADODB.Recordset peut il alimenter une listbox mais je n'ai pas trouvé de réponse sur ce problème!

merci pour ton aide

**mout1234** · 14/05/2007, 11h38

Envoyé par rehren

Je souhaite alimenter une Listbox via la propriété Listbox.recordset mais malheuresement cela ne fonctionne pas.(Il semblerait que les données soient tout de même chargées puisque un ascenceur sur la listbox apparait, mais les donées ne sont pas visible) La Listbox a bien pour RowSourceType = "table/query"

Je n'avais jamais essayé de créer et affecter à la volée un recordset ADO à un combo... je viens d'essayer .. et j'obtiens la même chose que toi

.

En fouillant sur le web, je suis presque toujours tombé sur des codes où la combo est alimentée par une liste de Valeurs (chaine séparée par des ; ) consituée en parcourant le recordset ADO, avant de refermer ce dernier.
As-tu essayé cette solution?