Remplir une [Combobox] avec un [recordset] [ADODB]

LaMontagne · 02/09/2008, 13h31

Bonjour,
sous ACCESS 2003, je souhaite remplir la liste d'une combobox avec un recordset ADODB.

la dernière instruction du code ci-après génère une erreur "Incompatibilité de type"
N.B. : la connexion cnx a été ouverte par ailleurs et cmbAn est la combobox à remplir.

Code :

 
Dim rstAn As ADODB.Recordset
Dim strSQL As String
 
     Set rst = New ADODB.Recordset
     strSQL = "SELECT An FROM Dates order by An"
     
     'Exécution de la requête
     rstAn.Open strSQL, cnx
     Me.cmbAn.RowSource = rstAn

mout1234 · 02/09/2008, 14h11

Bonjour et bienvenu sur le forum de developpez.com

La propriété RowSource attend une chaine de caractères et non un objet Recordset.

Tu pourrais lui attribuer directement la chaine SQL si celle-ci est appliquée à une table dates locale ou attachée à ta base.

je ne sais pas s'il y a des solutions plus directes (en attachant ton recordset à la combo comme tu cherchais à le faire) mais sinon tu peux boucler sur ton recordset et alimenter ta combo par des AddItem...

Bon courage

LaMontagne · 02/09/2008, 15h11

La table n'est ni locale ni attachée.
Comme tu l'as conseillé, j'ai créé une boucle pour parcourir le recorset et ajouter chaque item.
ça marche

Merci

mout1234 · 03/09/2008, 13h57

de rien

02/09/2008, 13h31	#1 (permalink)
LaMontagne Invité de passage Date d'inscription: septembre 2008 Messages: 9	Remplir une [Combobox] avec un [recordset] [ADODB] Bonjour, sous ACCESS 2003, je souhaite remplir la liste d'une combobox avec un recordset ADODB. la dernière instruction du code ci-après génère une erreur "Incompatibilité de type" N.B. : la connexion cnx a été ouverte par ailleurs et cmbAn est la combobox à remplir. Code : Dim rstAn As ADODB.Recordset Dim strSQL As String Set rst = New ADODB.Recordset strSQL = "SELECT An FROM Dates order by An" 'Exécution de la requête rstAn.Open strSQL, cnx Me.cmbAn.RowSource = rstAn

02/09/2008, 14h11	#2 (permalink)
mout1234 Modérateur Date d'inscription: novembre 2006 Localisation: Paris Âge: 39 Messages: 1 758	Bonjour et bienvenu sur le forum de developpez.com La propriété RowSource attend une chaine de caractères et non un objet Recordset. Tu pourrais lui attribuer directement la chaine SQL si celle-ci est appliquée à une table dates locale ou attachée à ta base. je ne sais pas s'il y a des solutions plus directes (en attachant ton recordset à la combo comme tu cherchais à le faire) mais sinon tu peux boucler sur ton recordset et alimenter ta combo par des AddItem... Bon courage __________________ ............................................................................................ Dans l'intérêt de tous, ne posez pas de questions techniques par messages privés. Les FAQs les tutos Les Sources Access Profitez de ces mines d'or... Postez dans le bon sous forum et mentionnez la version

03/09/2008, 13h57	#4 (permalink)
mout1234 Modérateur Date d'inscription: novembre 2006 Localisation: Paris Âge: 39 Messages: 1 758	de rien __________________ ............................................................................................ Dans l'intérêt de tous, ne posez pas de questions techniques par messages privés. Les FAQs les tutos Les Sources Access Profitez de ces mines d'or... Postez dans le bon sous forum et mentionnez la version

02/09/2008, 15h11	#3 (permalink)
LaMontagne Invité de passage Date d'inscription: septembre 2008 Messages: 9	La table n'est ni locale ni attachée. Comme tu l'as conseillé, j'ai créé une boucle pour parcourir le recorset et ajouter chaque item. ça marche Merci

		Forum des développeurs > Hardware, Systèmes et Logiciels > Microsoft Office > Access > VBA Access
Remplir une [Combobox] avec un [recordset] [ADODB]

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email