Remplir un listbox a partir d'un adodc

Signaler
Messages postés
133
Date d'inscription
dimanche 23 juin 2002
Statut
Membre
Dernière intervention
3 janvier 2015
-
Messages postés
133
Date d'inscription
dimanche 23 juin 2002
Statut
Membre
Dernière intervention
3 janvier 2015
-
Bonjour a tous,

Adodc1.ConnectionString = ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & (App.Path & "\MABASE.mdb") & ";Persist Security Info=False;Jet OLEDB:Database Password=PASSWORD")
Adodc1.RecordSource = "Select MONCHAMP2 From MATABLE Where MONCHAMP1=" & txt(1).Text & " Order by MONCHAMP2"

'lorsque je fais le lien avec mon datagrid cela fonctionne
Set DataGrid1.DataSource = Adodc1

'pour remplir ma listbox je fais comme ci dessous
'mais cela ne fonctionne pas
Set List1.DataSource = Adodc1
List1.DataField = MONCHAMP2


Quelqu'un pourrait il m'aider pour avoir mes valeurs dans mon listbox
Merci d'avance a tous
Salutation

1 réponse

Messages postés
133
Date d'inscription
dimanche 23 juin 2002
Statut
Membre
Dernière intervention
3 janvier 2015
3
Bonjour a tous,
voici la precedente maniere de remplir mon listbox je fais ceci dans listbox_gotfocus
cela fonctionne bien quand meme
Control c'est dataX.recordset
30 For X = 1 To 36
40 chaine = Mid$("ABCDEFGHIJKLMNOPQRSTUVWXYZ", X, 1)
50 variable "" & "Champ" & 0 & " " & "'" & txt(1).Text + chaine & "'"
60 Control.FindFirst variable
70 If Control.NoMatch Then
80 Else
90 List1.AddItem chaine

100 End If
110 Next 'x


Mais apres quelque recherche ici et la (voir mon premier message) je n'arrive toujours pas a lier mon listbox a mon controle adodc1 comme pour le datagrid.