1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6

Listbox et base de données [Résolu]

Signaler
Messages postés
95
Date d'inscription
jeudi 7 mai 2009
Statut
Membre
Dernière intervention
3 juillet 2009
 -
Messages postés
1241
Date d'inscription
mardi 10 octobre 2006
Statut
Membre
Dernière intervention
27 août 2013
 -
Bonjour,
je suis débutant en vb6 : je possède un formulaire et je souhaite remplir une listbox avec des métiers qui sont stockés dans ma table Metier.
Par la suite je voudrais pouvoir enregistrer  mon choix avec le nom de la personne que j'aurai saisie dans une textbox à coté dans ma table Personne.
Ayant vu plusieurs tutoriels je ne sais tjrs pas comment faire déjà pour remplir ma listbox avec le champ de ma table.
Merci de bien vouloir m'aider.
Afficher la suite

5 réponses

Réponse 1 / 5
Messages postés
1241
Date d'inscription
mardi 10 octobre 2006
Statut
Membre
Dernière intervention
27 août 2013
 5
De rien c'ets fait pour ça un forum..

Par contre , si ton problème est résolu, penses à cloturer en mettant réponse acceptée sur le ou les posts qui t'ont aidés.

Cela permettra à d'autres membres qui rencontreraient le même problème de trouver la solution sans avoir besoin de redemander.

De plus, les personnes qui viennent aider iront voir en priorité les
posts qui ne sont pas cloturés afin d'essayer d'apporter leur aide
plutôt que de venir voir un post déjà solutionné.

L'expérience, c'est une connerie par jour, mais jamais la même..
Réponse 2 / 5
Messages postés
1241
Date d'inscription
mardi 10 octobre 2006
Statut
Membre
Dernière intervention
27 août 2013
 5
Bonjour,


1 - Sais tu déjà te connecter à la base de données?

2 - Sais tu ajouter des items dans une listbox ?

3 - Tu dis avoir vu plusieurs tutoriels, as-tu essayé de mettre en
place? Y'a t'il quelque chose que tu n'aies pas compris dans ces
tutoriels?


Voici quelques mots qui pourraient t'être utiles pour tes recherches : recordset, additem

L'expérience, c'est une connerie par jour, mais jamais la même..
Réponse 3 / 5
Messages postés
95
Date d'inscription
jeudi 7 mai 2009
Statut
Membre
Dernière intervention
3 juillet 2009
Le seul souci que j'ai concerne la listbox et ma connexion avec ma base de données fonctionne.
J'ai essayé de faire ceci : 
Private Sub Form_Load()
    Dim bds As Database
    Dim SQL As String


    Set bds = OpenDatabase("C:\...\baseD.mdb")
    SQL = "SELECT nomMetier FROM metier"
    Set bds = bds.OpenRecordset(SQL)


    With rs
        .MoveLast
        .MoveFirst
            Do While Not .EOF
                   Metier.AddItem !nomMetier
                .MoveNext
            Loop
        .Close
    End With
    bds.Close
End Sub


et l'erreur que j'ai est "type incompatible" à la ligne Set bds = bds.OpenRecordset(SQL)
Réponse 4 / 5
Messages postés
1241
Date d'inscription
mardi 10 octobre 2006
Statut
Membre
Dernière intervention
27 août 2013
 5
Dim rs as recordset

Set rs = bds.OpenRecordset(SQL) 'c'ets ton recordset ici que tu dois ouvrir.

L'expérience, c'est une connerie par jour, mais jamais la même..
Réponse 5 / 5
Messages postés
95
Date d'inscription
jeudi 7 mai 2009
Statut
Membre
Dernière intervention
3 juillet 2009
merci
Répondre Posez votre question