Erro ao usar o filter do TFDQuery

28/06/2020

estou criando uma tela de pesquisa, mas quando eu uso o filter do componente ele me retorna o seguinte erro.
[FireDAC][Stan][Eval]-118. Error evaluating expression. Could not convert variant of type (UnicodeString) into type (Double).

Abaixo o comando.

with qryPesq do
      begin
         Filtered := False;
         Filter   := 'Upper('+sCampo_Pesquisa+') Like ' + UpperCase(QuotedStr('%' + edtPesquisa.Text + '%'));
         if cbxAtivo.ItemIndex < 2 then
            Filter   := Filter + ' and ' + sCampo_Ativo + ' = ' + IntToStr(cbxAtivo.ItemIndex);
         Filtered := True;
end;

Quando eu n�o coloco a parte do campo ativo, o filter funciona corretamente.
Lembrando que eu estou fazendo um tela de pesquisa. aonde eu possa chamar ela por uma function.

Segue o select que eu estou passando para o componente TFDQuery

SELECT PAR_ID, PAR_DESCRICAO, 
                  case PAR_ATIVO 
                 when 0 then 'N�o' 
                 when 1 then 'Sim' 
                 end as Ativo 
                 FROM participantes

Andr� Franzoi

Curtir t�pico + 0

Responder

Post mais votado

28/06/2020

Boa noite...
Chefe faz o seguinte .:

if cbxAtivo.ItemIndex < 2 then
Filter := 'Upper('+sCampo_Pesquisa+') Like ' + UpperCase(QuotedStr('%' + edtPesquisa.Text + '%')) + ' and ' + sCampo_Ativo + ' = ' + IntToStr(cbxAtivo.ItemIndex)
else
Filter := 'Upper('+sCampo_Pesquisa+') Like ' + UpperCase(QuotedStr('%' + edtPesquisa.Text + '%'));

Marcos Junior

Responder

Gostei + 1

Mais Posts

29/06/2020

Andr� Franzoi

Boa noite...
Chefe faz o seguinte .:

if cbxAtivo.ItemIndex < 2 then
Filter := ''Upper(''+sCampo_Pesquisa+'') Like '' + UpperCase(QuotedStr(''%'' + edtPesquisa.Text + ''%'')) + '' and '' + sCampo_Ativo + '' = '' + IntToStr(cbxAtivo.ItemIndex)
else
Filter := ''Upper(''+sCampo_Pesquisa+'') Like '' + UpperCase(QuotedStr(''%'' + edtPesquisa.Text + ''%''));

Boa noite amigo.
Continuou com o mesmo erro.

Eu tenho o mesmo c�digo s� que com o componnete zeus e n�o tenho essa dor de cabe�a.

Obrigado.

Responder

Gostei + 0

29/06/2020

Emerson Nascimento

tente algo assim:

with qryPesq do
begin
      Filtered := False;
      Filter   := 'Upper('+sCampo_Pesquisa+') Like ' + UpperCase(QuotedStr('%' + edtPesquisa.Text + '%'));
      if cbxAtivo.ItemIndex < 2 then
            Filter   := Filter + ' and cast(' + sCampo_Ativo + ' as float) = ' + IntToStr(cbxAtivo.ItemIndex);
      Filtered := True;
end;

usei a fun��o cast() para transformar o conte�do do campo "sCampo_Ativo" em num�rico (float), para comparar com o valor de cbxAtivo.ItemIndex, que tamb�m � um n�mero.
n�o vi no teu post indica��o de qual banco de dados voc� utiliza, ent�o adeque o comando � sintaxe correta do teu banco.
tornei a transforma��o de tipos expl�cita porque muitas vezes o driver n�o consegue optar pelos tipos certos.

Responder

Gostei + 0

29/06/2020

Andr� Franzoi

tente algo assim:

with qryPesq do
begin
      Filtered := False;
      Filter   := 'Upper('+sCampo_Pesquisa+') Like ' + UpperCase(QuotedStr('%' + edtPesquisa.Text + '%'));
      if cbxAtivo.ItemIndex < 2 then
            Filter   := Filter + ' and cast(' + sCampo_Ativo + ' as float) = ' + IntToStr(cbxAtivo.ItemIndex);
      Filtered := True;
end;

Desculpa faltou mesmo citar o banco, estou utilizando o sqlserver

Responder

Gostei + 0

29/06/2020

Andr� Franzoi

tente algo assim:

with qryPesq do
begin
      Filtered := False;
      Filter   := 'Upper('+sCampo_Pesquisa+') Like ' + UpperCase(QuotedStr('%' + edtPesquisa.Text + '%'));
      if cbxAtivo.ItemIndex < 2 then
            Filter   := Filter + ' and cast(' + sCampo_Ativo + ' as float) = ' + IntToStr(cbxAtivo.ItemIndex);
      Filtered := True;
end;

Bom dia, Agora est� com o seguinte retorno.
[FireDAC][Stan][Eval]-100. Column or function [cast] is not found. Hint: if the name is a function name, then add FireDAC.Stan.ExprFuncs to uses clause

Responder

Gostei + 0