F�rum consulta em dois edit's usando adoquery #402278

03/06/2011

Ol�, esse � minha primeira vez aqui no f�rum :d

Estou tentando fazer um pesquisa mas n�o est� dando certo...

Tenho essa tela de pesquisa e esse c�digo no adoquery...

Estou usando o seguinte c�digo no evento OnChange dos edit's

if edtConsultar.Text <> '' then
    begin
      qryGrid.Close;
      qryGrid.Parameters.ParamByName('processo').Value := edtConsultar.Text;
      qryGrid.Open;
    end
else
    begin
      qryGrid.Close;
    end;

O mesmo c�digo para os dois edit's (alterando somente os nomes dos componentes, l�gico)

A consulta est� sendo feita, por�m, quando eu pesquiso o processo primeiro ele pesquisa certinho,
a� quando eu mudo para o outro edit e digito algo para pesquisar ele me retorna um monte de dados
que eu n�o pesquisei (geralmente dados pesquisado no edit anterior)...
a mesma coisa acontece se eu come�ar a pesquisar no edit de baixo, ele d� certo, mas quando passo
para o edit de cime me retorna uma pesquisa imprecisa...

Grato...

Klaus

Curtir t�pico

+ 0

Responder

Posts

06/06/2011

Nigro

Basicamente no seu exemplo voc� tem dois par�metros, mas nos seus fontes o outro par�metro n�o � citado.

qryGrid.Close;

if edtConsultar.Text <> '' then
      qryGrid.Parameters.ParamByName('processo').Value := edtConsultar.Text;

if edtProcesso.Text <> '' then
     qryGrid.Parameters.ParamByName('processo').Value := edtConsultar.Text;
 
qryGrid.Open;

Responder

Gostei + 0

06/06/2011

Emerson Nascimento

os dois campos de pesquisa podem ser usados simultaneamente?

se puderem ser usados simultaneamente:

cSQL := 'select * from controle';
cCondicao := '';

if edtConsultar.Text <> '' then
cCondicao := cCondicao + 'processo like '+QuotedStr('%'+edtConsultar.Text+'%');

if edtExecutado.Text <> '' then
begin
if cCondicao <> '' then cCondicao := cCondicao + ' and ';
cCondicao := cCondicao + 'executado like '+QuotedStr('%'+edtExecutado.Text+'%');
end;

if cCondicao <> '' then
cSQL := cSQL + ' where ' + cCondicao;

qryGrid.Close;
qryGrid.SQL.Text := cSQL;
qryGrid.Open;

se puder ser pesquisado somente um dos campos:

cSQL := 'select * from controle';

if edtConsultar.Text <> '' then
cSQL := cSQL + ' where processo like '+QuotedStr('%'+edtConsultar.Text+'%');
else
if edtExecutado.Text <> '' then
cSQL := cSQL + ' where executado like '+QuotedStr('%'+edtExecutado.Text+'%');

qryGrid.Close;
qryGrid.SQL.Text := cSQL;
qryGrid.Open;

Responder

Gostei + 0

09/06/2011

Klaus

Obrigado Emerson, deu certinho cara!! :D

Responder

Gostei + 0