Fórum Filtragem no especifica #374019

25/08/2009

0

Delphi

Quero uma dica, de como fazer uma filtragem. Eu tenho um combobox1 com uma lista de alguns campos de minha tabela,
Eu quero escolher um campo e a clicar em um botão ´Buscar´ ele mim mostra a filtrar daquele nome que eu coloquei no edit ou então mostrar automaticamente sem clicar em botão nenhum.

Eu tenho um exemplo, que esta dando um erro.

begin
Query.SQL.Text:=´select * from usuario´;
case ComboBox1.ItemIndex of
  0: Query.SQL.Add(´where Nome like ´´´+busca.Text+´¬´´´);
  1: Query.SQL.Add(´where Lofin like ´´´+busca.Text+´¬´´´);
  2: Query.SQL.Add(´where ID like ´´´+busca.Text+´¬´´´);
 end;


Agradeço desde já.
Obrigado.
Gustavo Gomes.


=]


Gomes451

Gomes451

Responder

Posts

25/08/2009

Emerson Nascimento

qual o erro que está sendo apresentado ?


Responder

Gostei + 0

25/08/2009

Gomes451

Depois que tu perguntou eu fui testar de novo. Ele funcionou mais ou menos bem.
O único problema foi no ID. Sempre quando eu filtro ele da um erro e trava o programa.

Mais no final fico assim:

begin
Qusuario.SQL.Text:=´select * from usuario´;
case ComboBox1.ItemIndex of
  0: Qusuario.SQL.Add(´where ID like ´´´+busca.Text+´¬´´´);
  1: Qusuario.SQL.Add(´where LOGIN like ´´´+busca.Text+´¬´´´);
  2: Qusuario.SQL.Add(´where NOME like ´´´+busca.Text+´¬´´´);
 end;
Qusuario.open;
end;


Obrigado


Responder

Gostei + 0

25/08/2009

Emerson Nascimento

você não pode informar qual é o erro ?


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar