Résultats dans ListBox

Bonjour,

Je suis de retour avec mes questions pour ceux qui peuvent m'aider...

Soit ma base :  'Base.mdb'
Table : CDROM(NomCD,LibelleCD,DatePret)

Je voudrais afficher dans ma ListBox 'NomCD'.

J'ai un peu de mal.

Merci de votre aide

Daniel E.

salut
il faut créer une connexion à ta base access soit manuellement soit en posant un controle ADODC sur ton form.

puis, renseigner le datasource et le datafield sur le controle listbox;
ensuite, cela se fait "tout seul"....

as tu jeter un oeil dans les sources sur le site, il y a plein qui traite de l'accès aux données

Pat

 Don't Worry , Be Happy

Je n'en ai pas trouvé justement. Voilà pourquoi je posais ma question.
Je vais tester ça !

Merci

Daniel E.

re,

jette un oeil a ce code

http://www.vbfrance.com/codes/DAO-ALIMENTER-LISTBOX-AVEC-REQUETE-SQL_32724.aspx

Pat

 Don't Worry , Be Happy

Salut,

Référence à rajouter :
Microsoft ActiveX Data Objects 2.5 Library

Option Explicit

Dim CnxAdo as New ADODB.Connection
Dim RstAdo as New ADODB.RecordSet
Dim Sql as String

Private Sub Form_Load()
       
    ' Choix du fournisseur
     CnxAdo.Provider = "Microsoft.jet.OLEDB.4.0"
 
    ' chemin de la base pour la connection
     CnxAdo.ConnectionString = CheminDeTaBase
    
   ' Ouverture
     CnxAdo.Open

End Sub


Private command1_Click()
 
 ' Préparation requête
 Sql = "SELECT * FROM CdRom"

    ' Execution requête avec paramètre recordset via CnxAdo
     RstAdo.CursorLocation = adUseClient
     RstAdo.Open Sql, CnxAdo, adOpenDynamic, adLockPessimistic

' Boucle si il y a des records
 While not RstAdo.Eof
        ' Ajout dans ListBox
        If Not IsNull RstAdo.Fields("NomCd") Then TaListbox.AddItem RstAdo.Fields("NomCd") 

Wend

End Sub

Pas testé, mais cela devrait fonctionner.

A+
Exploreur

 Linux a un noyau, Windows un pépin

 

Ben le temps que je tape tout, Pneau(Salut), ma devancer...!

A+
Exploreur

 Linux a un noyau, Windows un pépin

 

Message pour pneau :

J'obtiens le message suivant lorsque j'exécute ta source :
_______________________________________________________
Set monRecordset = maBase.OpenRecordset( _
        "SELECT nick FROM users ORDER BY nick", dbOpenSnapshot)

Message : Type de donnée incompatible.
________________________________________________________

Je vais tester ton code Explorateur

Daniel E.

Explorateur, j'ai un message d'erreur :

Sur cette ligne :
" If Not IsNull rstado.Fields("NomCd") Then List1.AddItem RstAdo.Fields("NomCd") "

Il me dit :
" Erreur de compilation
          Attendu : Then ou GoTo "

Merci

Daniel E.

Re,

Essaye cela à la place :
If Not Rstado.Fields("NomCd") = VbNullString Then List1.AddItem RstAdo.Fields("NomCd")

A+
Exploreur

 Linux a un noyau, Windows un pépin