ComboBox

Delphi

25/06/2003

Gostaria de filtrar dados na tabela e jogar os dados filtrados dentro de uma ComboBox, por exemplo quero filtrar todos os campos que possuem a letra ´A´ e listar dentro de uma combobox... alguem poderia me ajudar


Dinho_sc

Dinho_sc

Curtidas 0

Respostas

Rômulo Barros

Rômulo Barros

25/06/2003

Faz um laço na tua tabela e vá adicionando todos os campos q vc quer em um listbox. Depois, só é passar do listbox para a propriedade items do comboBox......

Var Teste : TlistBox;
arm : String;
Begin
Teste := tListBox.Create(nil);
While Not(tabela.eof) do
Begin
arm := tabela.fieldbyname(´campo´).asString;
If(copy(arm,1,1)=´a´)then
Begin
Teste.items.add(arm);
End;
tabela.next;
End;
combobox.items := Teste.items;
End;


GOSTEI 0
Polo

Polo

25/06/2003

Pode usar uma Query...
Query1.SQL.Add(´select campo from tabela where campo like "A¬"´);
  Query1.Open;
  query1.First;
while not Query1.Eof do begin
  ComboBox1.Items.Add(Query1.fieldbyname(´campo´).asstring);
  Query1.Next;
end;



GOSTEI 0
Polo

Polo

25/06/2003

Pode usar uma Query...
Query1.SQL.Add(´select campo from tabela where campo like "A¬"´);
  Query1.Open;
  query1.First;
while not Query1.Eof do begin
  ComboBox1.Items.Add(Query1.fieldbyname(´campo´).asstring);
  Query1.Next;
end;



GOSTEI 0
Polo

Polo

25/06/2003

Pode usar uma Query...
Query1.SQL.Add(´select campo from tabela where campo like "A¬"´);
  Query1.Open;
  query1.First;
while not Query1.Eof do begin
  ComboBox1.Items.Add(Query1.fieldbyname(´campo´).asstring);
  Query1.Next;
end;



GOSTEI 0
Polo

Polo

25/06/2003

Foi mal a quantidade de post...tava dando erro quando estava tentando postar...moderadores podem excluir essa e as outras duas respostas...
8)


GOSTEI 0
POSTAR