Lier un recordset a une ListBox

Question

Bonjour,
J'aimerai savoir comment lier un recordset à une ListBox ?
Merci

mortalino · Answer

Salut, Ex. : Coloration syntaxique automatique Sub Exemple() Dim Rs As Recordset Dim sql As String Dim NbNomProduits As Integer lbxNomProduits.Clear NomBase = App.Path & "\Nom fichier.mdb" ' admettons ici qu'il se ' trouve dans le dossier de l'Application If Dir (NomBase) <> "" Then Set db = DBEngine.Workspaces(0).OpenDatabase(NomBase) sql = "SELECT NomDuChamps FROM NomDeLaTable" 'remplace les 2 ' valeurs (NomDuChamps & NomDeLaTable) Set Rs = db.OpenRecordset(sql) Rs.MoveFirst Do While Rs.EOF = False Me.TaListBox.AddItem Rs!NomDuChamps 'remplace NomDuChamps Rs.MoveNext Loop Set Rs = Nothing db.Close Else MsgBox "Le fichier Nom fichier.mdb n'est pas présent dans " _ & App.Path, vbCritical, "ATTENTION" End If End Sub Coloration syntaxique automatique @++ Mortalino Le mystérieux chevalier, "Provençal, le Gaulois" Merci de prendre le temps de répondre à ce sondage Merci de prendre le temps de lire le Règlement CS http://www.smileycentral.com/?partner=ZSzeb008_ZNxdm414YYFR

kipich · Answer

Merci beaucoup mais ca ne maide pas bcp.
En effet :
1) j'ai plusieurs colonne a gérer et je n'arrive pas a ajouté dans diverse colonne
2) le clear ne marche pas en VBA
3)le filter sur un recordset normal ne marche pas ici, je sais pas pourquoi, et donc j'utilise un ADOBC.Recordset

mortalino · Answer

Mais quels sont les noms de tes champs qui vont dans quelles colonnes ? (et de quelles BDD ? et de quelle Table ? )
Tu es donc en VBA, mais excel ou access ? (excel je suppose !)

C'est sûr que mon code ne t'aide pas mais j'ai pas de précisions sur ce que tu voudrais faire.

"Le clear" ne marche pas, bah non !
Par contre objet.Clear, ça ça "marche" !

@++ 

  Mortalino 
Le mystérieux chevalier, "Provençal, le Gaulois"

Merci de prendre le temps de répondre à ce 
sondage


Merci de prendre le temps de lire 
le Règlement CS


    http://www.smileycentral.com/?partner=ZSzeb008_ZNxdm414YYFR

kipich · Answer

Je suis en VBA Access.
Le recordset est rempli par un Open("unetable", CurrentProject.connection, ...)
Il contient 3 colonnes.
et ma liste aussi.

PS : pour le clear c'est bon, j'ai fait un liste.Rowsource=""

tof008 · Answer

tu peux utiliser le code de mortalino en rajoutant l'index de tes colonnes pour y envoyer les données...

         (Si la réponse vous convient, appuyez sur réponse acceptée...).

                           Noubliez pas de lire le REGLEMENT

tof008 · Answer

Tu peux faire comme ca: 
Do While Rs.EOF = False 
        Me.listbox1.list(i,0).AddItem Rs!NomDuChamps        
       Rs.MoveNext 
i = i + 1 
Wend

Tu trouveras d'autres exemples ici
++
         (Si la réponse vous convient, appuyez sur réponse acceptée...).

                           Noubliez pas de lire le REGLEMENT

Lier un recordset a une ListBox

6 réponses

Votre réponse

Discussions similaires