listbox et base de donnéesRésolu

Question

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.

lolokun · Accepted Answer

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..

lolokun · Answer

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..

neg03 · Answer

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)

lolokun · Answer

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..

neg03 · Answer

merci

Listbox et base de données

5 réponses

Votre réponse