Problema com pesquisa usando memo

Question

Ola, estou tentando montar um filtro, quando usuario digitira um problema tem que filtrar uma coluna para sabe que o mesmo problema trazido pelo cliente j� existe.O que acontece que ao digitar fica a...

Joel Rodrigues · Answer

Voc� est� fazendo esse filtro realizando uma nova consulta ao banco a cada caractere digitado? Se for, � de se esperar a lentid�o. Experimente trabalhar com a propriedade Filter do dataset....

Bruno Leandro · Answer

Qual forma de filtrar voce esta se referindo, mudando o where ou um parametro da query e dando close,open
usando locate, filter ?

se voce tiver usando locate muito provavelmente sera lento,
caso esta usando close/open e o campo tiver um indice correto para essa pesquisa pode nao ficar lento
talvez uma melhor solu��o seria utilizar o filter ou clientdataset, para nao ficar consultado o banco de dados

Wilton J�nior · Answer

Joel Rodrigues se souber outra forma para realizar uma pesquisa me fala pois estou horas pesquisando na net eu n�o acho nada.
O que precisa ser feito � um filtro de informa��o no momento que o usu�rio tiver digitando.

Bruno Leando estou fazendo o seguinte:

with MIC010 do
begin
close;
sql.clear;
sql.add('select numjan, datcad, soluca from mic010 where datcad is not null');
if Edit4.text <> '' then
sql.add('and numjan like ' + QuotedStr('%' + Edit4.text + '%'));
if Memo1.text <> '' then
sql.add('and solici like ' + QuotedStr('%' + Memo1.text + '%'));
Open;
end;

Eu nem lembrei da existencia do c�digo locate para te falar a verdade de t�o acostumado a fazer esse tipo de codigo de pesquisa.

obrigado a todos

Bruno Leandro · Answer

da uma testada usando filter conforme exemplo abaixo

var
Filtro: string;
begin
with MIC010 do
begin
Filtro := '';
if (Edit4.text <> '') then
Filtro := 'and numjan like ' + QuotedStr('%' + Edit4.text + '%');

if (Memo1.text <> '') then
Filtro := 'and solici like ' + QuotedStr('%' + Memo1.text + '%');

Filtered := False;
Filter := Filtro;
Filtered := True;
end;
end;

Bruno Leandro · Answer

pequena corre��o para nao perder o filtro

var
Filtro: string;
begin
with MIC010 do
begin
Filtro := '';
if (Edit4.text <> '') then
Filtro := Filtro +' and numjan like ' + QuotedStr('%' + Edit4.text + '%');

if (Memo1.text <> '') then
Filtro := Filtro +' and solici like ' + QuotedStr('%' + Memo1.text + '%');

Filtered := False;
Filter := Filtro;
Filtered := True;
end;
end;

Wilton J�nior · Answer

Nada Bruno Leandro, obrigado pela sua ajuda....