Xpcombo
Résolu
cs_sny2009
Messages postés
28
Date d'inscription
mercredi 25 février 2009
Statut
Membre
Dernière intervention
1 mai 2012
-
30 mars 2009 à 16:48
cs_sny2009 Messages postés 28 Date d'inscription mercredi 25 février 2009 Statut Membre Dernière intervention 1 mai 2012 - 2 avril 2009 à 11:49
cs_sny2009 Messages postés 28 Date d'inscription mercredi 25 février 2009 Statut Membre Dernière intervention 1 mai 2012 - 2 avril 2009 à 11:49
1 réponse
cs_sny2009
Messages postés
28
Date d'inscription
mercredi 25 février 2009
Statut
Membre
Dernière intervention
1 mai 2012
2 avril 2009 à 11:49
2 avril 2009 à 11:49
voila la solution :
Set rec = New ADODB.Recordset
rec.Open "select ..... from ............ ", cn, 1, 2
Do While Not rec.EOF
xpcombo.ItemsAdd rec.Fields("...........")
rec.MoveNext
Loop
Set rec = New ADODB.Recordset
rec.Open "select ..... from ............ ", cn, 1, 2
Do While Not rec.EOF
xpcombo.ItemsAdd rec.Fields("...........")
rec.MoveNext
Loop