REMPLIR UNE COMBO BOX AVEC UNE TABLE (DAO)

---

Commentaire sur cette source (5)
Ajouter un commentaire et/ou une note

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)

'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

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

• APPRENDRE À MANIPULER EXCEL (GRAPHIQUE ET TABLEAU) LES FICHIERS TEXTES (LECTURE)
• UNE BOITE DE CONNEXION AVEC UNE BASE DE DONNÉES (DAO)
• SPLIT ET DAO : REMPLIR UNE COMBO AVEC PLUSIEURS CHAMPS ET LES RÉCUPÉRER 1 À 1 ENSUITE
• IMITATION D'UNE BARRE DE TELECHERGEMENT (PRISE EN MAIN DES TIMERS)

• LA CONSOLE WINDOWS, EN VB6
• GESTION DE LISTES (FUSION, COMPARAISON, TRI...)
• RÉORGANISER UNE LISTVIEW AVEC DES IMAGES DANS LES 3 PREMIÈRES COLONES
• INSTALL DLL OCX ( ACTIVEX )
• CRÉATION DE FORM ET DE CONTRÔLES