Discussion :

[newgame]

bonjour,
je veux afficher le contenu d'une requête sql select ligne par ligne dans un listebox ou un TDBcombobox
comment procéder?

merci d'avance

[e-ric]

Salut

Ce sont deux solutions différentes, l'une ne coûte quasiment rien en code (solution par TDBcombobox) l'autre (par ListBox) se résout avec une petite boucle, attention cependant au nombre d'enregistrements dans ta source de données :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure RemplitListBox(ds: TDataSet; aFieldName: String; Str: TStrings);
begin
  Str.Clear;
  ds.First;
  while not ds.EOF do
  begin
    str.Add(ds.FieldByName(AFieldName).AsString);
    ds.Next;
  end;
End;
...
  // un exemple d'appel
  RemplitListBox(Query1, 'LIBELLE', ListBox1.Items);

Pour la première solution, n'ayant pas Delphi sous la main, je laisse quelqu'un d'autre répondre...

[Rayek]

Pour la première solution, n'ayant pas Delphi sous la main, je laisse quelqu'un d'autre répondre...

Il existe aussi un DbListBox au pire on peut prendre une DbGrid avec une seule colonne