Ajuda com Pesquisa de registro com SQL

Question

Montei um grid de um tabela que quando  no titulo  ordeno com um clausula ORDER BY, e grava o nome do campo em uma varialvel global.E no evento onchange de um edit estou com outra funcao fazendo um fi...

Turbo Drive · Answer

Geralmente as filtragens por data n�o podedm ser feitas usando like, e sim atribuindo par�metros.

EX:
QTudo.sql.Add(�Select SUM(valor), SUM(valorpago) from extratoconta where (dtini >=:inicio and dtfim <=:final and situacao <> ��Quitadas��)�)
QTudo.ParamByName(�inicio�).ASDateTime := strtodate(maskedit1.text);
QTudo.ParamByName(�fim�).ASDateTime := strtodate(maskedit2.text);
QTudo.Open;

Qualquer coisa post o seu c�digo aqui parta analisarmos.

J@ck · Answer

with dm.qryIMPORTA do
Begin
Close;
SelectSQL.Clear;
SelectSQL.Add(�select * from importa�);
SelectSQL.Add(�where �+sSISCAMPOPESQ+� like ��+edtPESQUISAR.Text+��);
Open;
end;

O codigo que estou usando e esse onde sSISCAMPOPESQ e uma variavel global que quando clico no titulo do dbgrid que passo o nome do campo da coluna para ela , e edtPESQUISAR e um unico edit que pesquiso todos os campos do dbgrid...

Turbo Drive · Answer

Tente isto:with dm.qryIMPORTA do Begin Close; SelectSQL.Clear; SelectSQL.Add(�select * from importa�); try  strtodate(edtPESQUISAR.Text);  SelectSQL.Add(�where �+sSISCAMPOPESQ+� >=:dia �);  SelectSQL.Parambyname(�dia�).asDatetime := strtodate( edtPESQUISAR.Text);except  SelectSQL.Add(�where �+sSISCAMPOPESQ+� like ���+edtPESQUISAR.Text+�����); Open; end;   Se for uma data v�lida ele pesquisa por passagem de par�metros....