begin process at 2008 07 09 05:57:53
1 207 200 membres
46 nouveaux aujourd'hui
14 130 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Sujet : listbox et base de données [ Base de données / SQL ] (neg03)

listbox et base de données le 17/04/2008 12:09:20

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

Re : listbox et base de données le 17/04/2008 12:16:25

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

Re : listbox et base de données le 17/04/2008 13:53:01

neg03

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 :
<code>
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
</code>


et l'erreur que j'ai est "type incompatible" à la ligne Set bds = bds.OpenRecordset(SQL)


Re : listbox et base de données le 17/04/2008 14:06:26

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

Re : listbox et base de données le 17/04/2008 15:59:05
Re : listbox et base de données le 17/04/2008 16:20:50

lolokun
Réponse acceptée !
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..


Classé sous : base, table, données, listbox, remplir

Participer à cet échange

Pub



Appels d'offres

CalendriCode

Juillet 2008
LMMJVSD
 123456
78910111213
14151617181920
21222324252627
28293031   

VS Express FR Gratuit !

VS Express en français et 100% gratuit !

Boutique

Boutique de goodies CodeS-SourceS