Discussion :

[socooooool]

code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
procedure TForm2.ComboBox1Click(Sender: TObject);
 
begin
 q1.open;
 q1.sql.Clear;
 q1.SQL.Add('select nom_agent from agent');
 q1.ExecSQL;
 
 if q1.RecordCount>=1 then
  combobox1.AddItem( );

bonjour à tous !!!

3 ans après avoir quitté delphi ... j'y retourne ! Mais je n'ai même plus souvenir de comment remplir un combobox à partir d'une table access.

j'ai 1 combobox1
j'ai 1 query q1

Par exemple je ne sais pas quoi mettre dans addItem( ici là )

Please help !!

[anapurna]

salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
query.open;
query.First;
while not query.eof do
begin
 Combo.item.add(query.fieldbyname('monchamp').asString); 
  query.next;
end;
query.close;

@+ Phil

[socooooool]

merci beaucoup anapurna !

ça fonctionne et en plus ta façon de procéder est beaucoup plus rapide que celle que j'ai apprise !

[kilheur]

pardon,
j 'ai aussi le problème et je voudrai savoir ce que l'on met ou s'est écrit 'champ'