Remplir une combo box avec une table (dao)
Soyez le premier à donner votre avis sur cette source.
Snippet vu 16 664 fois - Téléchargée 26 fois
Contenu du snippet
Explications :
Cette source se sert dune 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 quon 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)
noubliez pas la référence DAO 3.6 ;-)
Biz
Cette source se sert dune 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 quon 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 nest pas la fin des enregistrements
Do While req_ent.EOF = False
ajouter dans la combo lenregistrement en cours
combo_entite.AddItem req_ent!nom_entité
passer à lenregistrement suivant
req_ent.MoveNext
refaire
Loop
sinon
Else
mettre dans la zone de texte un message qui signale quil ny a pas
denregistrements
combo_entite.Text = "pas encore de rubriques enregistrées"
fin si
End If
Conclusion :
noubliez pas la référence DAO 3.6 ;-)
Biz
A voir également
- Dao net
- Comment remplir une combo box avec le résultat d'une requête sql ✓ - Forum - Java
- Remplir un combo box ✓ - Forum - C# / .NET
- Split et dao : remplir une combo avec plusieurs champs et les récupérer 1 à 1 ensuite - Codes sources - Visual Basic / VB.NET (Trucs & Astuces)
- Comment remplir un combo par 2 champs d'une table sql ✓ - Forum - C# / .NET
- Combo box vb6 - Forum - Visual Basic
Commentaires
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
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
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.