Carregando ListBox Com uma Query

Delphi

10/03/2004

Quero pegar o item atual do combobox, jogar ele como parâmetro em uma consulta sql e apresentar os resultados em um listbox.

COnigo pegar o item atual, colocar ele como parâmetro, mas como apresentar o resultado em um listbox, visto que é tudo gerenciado por uma query?


Emir Neto

Emir Neto

Curtidas 0

Respostas

Rômulo Barros

Rômulo Barros

10/03/2004

Aê, cara... tudo bem?? Como foi o carnaval em Olinda? Estive aí apenas na segunda-feira e terça-feira de carnaval, pois, no centro do Recife, estava ´Bombando´ também...

Vamos ao q interessa:

ListBoxResultado.Clear;
Query.First;
While(Not(query.Eof))Do
Begin
   ListBoxResultado.Items.Add(Query.FieldByName(Campo).AsSTring);
   Query.Next;
End;
:twisted: :twisted: :twisted:


GOSTEI 0
Fabio.hc

Fabio.hc

10/03/2004

Tente assim:

Ex:
procedure TForm1.Button1Click(Sender: TObject);
begin
   ListBox1.Clear;
   while not Query1.Eof do
      begin
      ListBox1.Items.Add(Query1CAMPO.Value);
      Query1.Next;
      end;
end;



GOSTEI 0
POSTAR