Select SQL com and

[Elisete]

Estou fazendo um select SQL da seguinte forma:

 if Edit1.Text <> '' then
      begin
        DataModule2.FDTProdutos.Filtered := False;
        DataModule2.FDTFornecedores.Filter := ' upper(dcproduto) like ' +
          UpperCase(QuotedStr('%' + Edit1.Text + '%'));
        DataModule2.FDTProdutos.Filter := ('and qtestoque < qtminima');
        DataModule2.FDTProdutos.Filtered := true;
      end;

ao testar, aparece a seguinte mensagem:

[FireDAC][Stan][Eval]-100. Column or function [and] is not found. Hint: if the name is a function name, then add FireDAC.Stan.ExprFuncs to uses clause.

Ja adicionei na uses
FireDAC.Stan.Intf, FireDAC.Stan.Option,
FireDAC.Stan.Param, FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf,
FireDAC.DApt.Intf, FireDAC.Stan.Async, FireDAC.DApt,
FireDAC.Comp.DataSet, FireDAC.Comp.Client;

Alguem pode me ajudar?

[Giovani Da Cruz]

Oi Elisete. Você está utilizando a propriedade Filter de um dataset, que não é exatamente um local para SQL, embora tenta muita semelhança.

PElo que pude notar, pela mensagem, não podes iniciar o filter com “AND”.

Provavelmente se alterar a linha
DataModule2.FDTProdutos.Filter := (“and qtestoque < qtminima ");
por
DataModule2.FDTProdutos.Filter := (” qtestoque < qtminima "); deverá funcionar.

[Autor]

Posts