DataList et ADO

Bonjour, je suis un méga débutant, j'aimerais connecter un DataList avec une base de données Access de telle sorte qu'elle affiche la liste des champs: "Nomducadeau" de la table "JeuxVideoPlaystation2", je me suis aidé de la question du FAQ qui traite ce sujet et j'ai fait ça:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Private Sub Form_Load()   Dim cnx As ADODB.Connection Set cnx = New ADODB.Connection Dim rst As ADODB.Recordset Set rst = New ADODB.Recordset   cnx.Provider = "Microsoft.Jet.Oledb.4.0"   cnx.ConnectionString = App.Path & "\listaniv.mdb"   cnx.Open   rst.Open "SELECT * FROM JeuxVideoPlaystation2", cnx   Set DataList1.DataSource = rst Set DataList1.RowSource = rst DataList1.ListField = "Nomducadeau"   End Sub

---

Seulement, quand j'execute mon programme ma DataList est vide !

Pouvez-vous aider le pauvre débutant que je suis merci :D

Ma question va vous paraître idiote, mais où trouve-t-on, dans VBA Excel, l'objet DataList ? Je suppose qu'il faut rajouter une référence au projet, mais laquelle est-ce?
Sinon, la connexion me parait bonne, la requête aussi. As-tu vérifié que ton ResultSet n'est pas vide, avec

Code:

---

1 2 3 4 5 6

If rst.EOF AND rst.BOF Then MsgBox("Le Rst est vide:") Else ... End If

---

Pour ajouter les DataList tu fais Ctrl+T ensuite tu coche Microsoft DataList Control 6.0 et après normalement tu as ce controle. :) Sinon pour VBA Excel je ne sais pas si c'est pareil que pour VB6.

Sinon, merci de m'aider, mais ce n'est pas ça (la msgbox ne s'affiche pas) :?

Mouais... Je n'ai pas cette référence dans Excel, et je n'ai pas VB6... Ça ne va pas être facile...
Combien as-tu de colonnes dans ta table JeuxVideoPlaystation2 ? Le même nombre que dans ta DataList?

Citation:

---

Envoyé par Megaxel

Mouais... Je n'ai pas cette référence dans Excel, et je n'ai pas VB6... Ça ne va pas être facile...
Combien as-tu de colonnes dans ta table JeuxVideoPlaystation2 ? Le même nombre que dans ta DataList?

---

Non, il n'y en a pas autant puisque la DataList n'a qu'une colonne (comme un ListBox) et justement je voudrais qu'elle n'affiche que la colonne "Nomducadeau"

Excusez-moi mais mon problème n'est surement pas dur à résoudre :oops:

Est-ce que quelqu'un peut m'aider ? :?

Voici un code que j'utilise pour charger mon dataCombo, tu peux l'adapter à ton dataList

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Public Sub RemplirDataCombo(objConnexion As ADODB.Connection, ValeurRequete As String, NomControl As DataCombo, NomChampAfficher As String, NomCle As String) On Error GoTo EtiquetteErreur Dim adoRS As New ADODB.Recordset Set NomControl.RowSource = Nothing adoRS.Open ValeurRequete, objConnexion, adOpenKeyset, adLockOptimistic If Not (adoRS.EOF And adoRS.BOF) Then adoRS.MoveFirst Set NomControl.RowSource = adoRS NomControl.ListField = NomChampAfficher NomControl.BoundColumn = NomCle End If   Sortie: Set adoRS = Nothing Exit Sub EtiquetteErreur: MsgBox Err.Description, , strTitre GoTo Sortie End Sub

---

Merci beaucoup Bujuman, ça marche parfaitement :D