Remplir une combo box avec une table (dao)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 16 586 fois - Téléchargée 26 fois

Commenter

Contenu du snippet

Explications :
Cette source se sert d’une base de données Access et la manipule grâce à la DAO. Elle permet de remplir une Combo Box avec une table de la source, suite à une requête sur cette table.
La combo est de style 2, c'est-à-dire qu’on ne pourra pas saisir dans la zone de texte, mais seulement faire un choix dans la liste déroulante.

Composants et propriétés :
Combobox (name = choix_entite - style = 2)

Source / Exemple : 


‘déclarations
‘de la base
dim db as dao.database
‘de la requête
dim rq_ent as dao.recordset
‘initialisations
‘de la base
set db = opendatabase (“chemin de la base”)
‘de la requête qui selectionne les noms des entités
Set req_ent = db.OpenRecordset("select nom_entité from entite")
‘Si des enregistrements correspondent à la requête alors
If req_ent.RecordCount > 0 Then
    ‘se placer sur le premier enregistrement
    req_ent.MoveFirst
    ‘Tant que ce n’est pas la fin des enregistrements
    Do While req_ent.EOF = False
        ‘ajouter dans la combo l’enregistrement en cours
        combo_entite.AddItem req_ent!nom_entité
        ‘passer à l’enregistrement suivant
        req_ent.MoveNext
        ‘refaire
    Loop
‘sinon
Else
    ‘mettre dans la zone de texte un message qui signale qu’il n’y a pas         
     d’enregistrements
    combo_entite.Text = "pas encore de rubriques enregistrées"
‘fin si
End If

Conclusion :


n’oubliez pas la référence DAO 3.6 ;-)
Biz

A voir également

Ajouter un commentaire

Commentaires

Signaler
mowegan
Messages postés
4
Date d'inscription
jeudi 23 avril 2009
Statut
Membre
Dernière intervention
14 mai 2009
 -
Bonjour,

j'ai utilisé cette méthode pour me connecter à une base et remplir une liste.
j'ai affecté cette fonction a l'action ComboBox1_DropButtonClick() qui se declenche lors du clic sur la petite fleche de la liste.
Le soucis est qu'a chaque clic sur la liste il remet les elements dans la liste donc je me retourve avec des doubles, des triples, etc...
Si je mets ComboBox1.Clear au debut de la fonction je n'arrive plus a selectionner dans la liste.

Si qqn possede une solution.

Merci d'avance
Signaler
WORDOU
Messages postés
1
Date d'inscription
mercredi 18 mars 2009
Statut
Membre
Dernière intervention
24 mars 2009
 -
slt je suis debutant en vb.j'ai crée une base de donnée.j'arrive pas a remplir le combobox avec.
Signaler
cs_kabalonda
Messages postés
4
Date d'inscription
vendredi 3 mars 2006
Statut
Membre
Dernière intervention
29 mars 2007
 -
salut,
je suis très content d'avoir cette source car elle va m'aider a faire un travail qui m'a été demandé. je viens de prendre la source en cas de bug je vais pas tarder a faire un message.
Merci a toous!
Mais j'ai un autre problème mais après avoir essayé la source, je vais vous le dire!
Bye
Signaler
cs_makdad
Messages postés
10
Date d'inscription
samedi 14 janvier 2006
Statut
Membre
Dernière intervention
27 octobre 2008
 -
salut je suis débutante en vb.net je voudrai savoir comment remplir un combobox par des enregistrement qui n'existent pas dans les tables merci d'avance pour l'aide...
Signaler
yafisab
Messages postés
106
Date d'inscription
jeudi 13 mai 2004
Statut
Membre
Dernière intervention
6 janvier 2005
 -
zut redite, je croyais que la première était pas passée....bon j'ai règlè mon problème: j'avais pas pris le combobox de msform....lol
Afficher les 7 commentaires
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (ndsaerith)