1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Remplir une combo box avec une table (dao)

Remplir une combo box avec une table (dao)

0/5 (7 avis)

Snippet vu 17 122 fois - Téléchargée 28 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
mowegan Messages postés 4 Date d'inscription jeudi 23 avril 2009 Statut Membre Dernière intervention 14 mai 2009
27 avril 2009 à 10:47
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
WORDOU Messages postés 1 Date d'inscription mercredi 18 mars 2009 Statut Membre Dernière intervention 24 mars 2009
24 mars 2009 à 12:39
slt je suis debutant en vb.j'ai crée une base de donnée.j'arrive pas a remplir le combobox avec.
cs_kabalonda Messages postés 4 Date d'inscription vendredi 3 mars 2006 Statut Membre Dernière intervention 29 mars 2007
3 mai 2007 à 13:44
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
cs_makdad Messages postés 10 Date d'inscription samedi 14 janvier 2006 Statut Membre Dernière intervention 27 octobre 2008
18 déc. 2006 à 11:11
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...
yafisab Messages postés 106 Date d'inscription jeudi 13 mai 2004 Statut Membre Dernière intervention 6 janvier 2005
18 mai 2004 à 15:19
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)