Fórum problema com query URGENTE!!!! #159164
09/05/2003
0
tenho uma tabela do tipo TDBGrid, onde configurei para exibir os dados de uma certa tabela, e junto a tabela coloquei um campo EDIT, onde eu quero que ao decorrer do digitar liste na tabela somente os registros que contiveremo texto digitado no EDIT
exemplo
tenho uma tabela de clientes, e nesta tabela tenho 1000 cliente cadastrados com vários nomes, e quero um nome específico, e digito esse nome no EDIT, e enquanto eu digito ele liste todos os nomes que contenham os caracteres digitados, se eu digitar apenas a letra A, liste todos os nome que comecem com a letra A, se eu digitar AN, liste todos os nomes que comecem com AN e assim por diante
desde já agradeço
exemplo
tenho uma tabela de clientes, e nesta tabela tenho 1000 cliente cadastrados com vários nomes, e quero um nome específico, e digito esse nome no EDIT, e enquanto eu digito ele liste todos os nomes que contenham os caracteres digitados, se eu digitar apenas a letra A, liste todos os nome que comecem com a letra A, se eu digitar AN, liste todos os nomes que comecem com AN e assim por diante
desde já agradeço
Felipe.palucoski
Curtir tópico
+ 0
Responder
Posts
09/05/2003
Leandronanet
Coloque isso no evento OnChance do Edit
Espero ter ajudado. :D
if Edit.Text =´´ then
begin
Nome_da_Tabela.Filtered:=false;
exit;
end;
Nome_da_Tabela.Filter:=´Nome_do_Campo ´ + quotedstr(Edit.text+´*´);
Nome_da_Tabela.Filtered:=true;
Espero ter ajudado. :D
Responder
Gostei + 0
09/05/2003
Edmar Zatarin
No evento onchange do edit escreva:
procedure TFmSQL01.Edit1Change(Sender: TObject);
begin
With Consulta do
begin
Active := false;
SQL.Clear;
SQL.ADD (´Select * From BioLife Where Category like upper(´´¬+EdLetra.Text+´¬´)´);
Active := true;
end;
Edit1.SetFocus;
end;
esse exemplo busca todas as palavras que contenham o valor digitado no edit.
Veja:
PRIMEIRA LETRA ´LETRA¬´
ULTIMA LETRA ´¬LETRA´
QUE CONTENHA A LETRA ´¬LETRA¬´
ok, espero que sirva pra vc e boa sorte....
procedure TFmSQL01.Edit1Change(Sender: TObject);
begin
With Consulta do
begin
Active := false;
SQL.Clear;
SQL.ADD (´Select * From BioLife Where Category like upper(´´¬+EdLetra.Text+´¬´)´);
Active := true;
end;
Edit1.SetFocus;
end;
esse exemplo busca todas as palavras que contenham o valor digitado no edit.
Veja:
PRIMEIRA LETRA ´LETRA¬´
ULTIMA LETRA ´¬LETRA´
QUE CONTENHA A LETRA ´¬LETRA¬´
ok, espero que sirva pra vc e boa sorte....
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)