ActiveDelphi

[Rewry]

Olá, Pessoal,

Gostaria de saber como faço para montar uma pesquisa que, a medida que digito na Edit, o mesmo pesquisa no DbGrid, em tempo de execução?

Por favor, me ajudem....

[diegocostaxavier]

Olá Rewry,

Baixei uma agenda que usa dbgrid e a medida q vc vai digitando o nome da pessoa, vai pesquisando no dbgrid... se quiser, me manda seu email q te mando

Abraços,

Diego

[Rewry]

Karo amigo Diego,

Ficaria muito feliz, se voce pudesse manda-lo pra mim.
Meu email é rewrygouveia@yahoo.com.br.

Valew...

Rewry

[MP]

Olá amigo, tente assim:
no onChange do seu edit digite:
table1.IndexName := \'Nome_Cli\';
table1.findNearest([Edit1.Text]);

Onde Nome_Cli será o campo que você deve criar um indice secundário.

Espero ter ajudado.

_________________
Grato,
MP.

[Darvane]

Bem... eu não testei, mas veja se assim funciona...

procedure Form1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin

Table1.Locate(\'Campo\',Edit1.Text, [loCaseInsensitive, loPartialKey]);

end;

...

Inteh!
_________________
****************************
Miner d´Beraba

[DeMolItoR]

Bem, eu uso no Onchange do edit assim..
Query1.Active:=False;
Query1.ParamByName(\'PARAMETRO\').AsString:= \'%\'+Edit1.Text+\'%\';
Query1.Active:= True;

Com o codigo acima conforma vai digitando ele vai filtrando....

Eh claro que dentro da query ja tem meu SQL montado......exemplo:
\'SELECT * FROM [TABELA] WHERE [CAMPO] = :PARAMETRO\'
_________________
Marcelo Pacheco
ckiller23@hotmail.com