remplir un listbox a partir d'un adodc

Question

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

cs_akzo · Answer

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.

Remplir un listbox a partir d'un adodc

1 réponse

Votre réponse

Discussions similaires