pb avec Base de donnée

Question

bonsoir 

Voila je mon problème est le suivant 

je voudrais mettre dans une combobox ( multicolonne ) le contenu d' une Bd access 2000 

j'ai essayer ceci : 

Rq = "SELECT déno,pays FROM Monde"
Set acces = db.OpenRecordset(Rq)
If acces.RecordCount <> 0 Then
Do Until acces.EOF

cmbmonde.Column(1, i) = acces("déno")
cmbmonde.Column(2, i) = acces("pays")
i = i + 1
acces.MoveNext

en meme temps si quelqu'un pourais me montrer comment transformer mon code pour l'accé a ma bd ( car ma mèthode est trop vielle ) 

merci d'avance 

dodo1309

Molenn · Answer

J'ai un petit problème de compréhension : ce que tu essayes de faire, tu le fais sous VB6 ou sous ACCESS 2000 ?

Sous VB6, tu ne peux pas mettre plusieurs colonnes dans une ComboBox, enfin, pas sous la forme que tu veux : Ce n'est pas une gestion de colonne, mais une concaténation des 2 champs dans une même colonne, dans ce cas, quelque chose comme :
cmbmonde.additem = acces("déno") & " - " & acces("pays")

Sous ACCESS, les ComboBox sont multicolonnes, mais dans ce cas, tu as bien plus simple que créer une boucle pour alimenter le ComboBox, tu fais : 
cmbmonde.rowsource = "SELECT déno,pays FROM Monde"

Molenn

dodo1309 · Answer

dsl mais dans vb il ya les combo avec la gestion des multicolones 

merci qd mme

Pb avec Base de donnée

2 réponses

Votre réponse

Discussions similaires