Consuta de produtos em vários campos

Delphi

13/11/2017

Sou novo no Delphi e estou tentando fazer uma busca de produtos usando parte dos campos "descrição e grupo" do banco de dados.


procedure TFrmProdutos.Button4Click(Sender: TObject);
begin
DM.FDQuery1.Open('select *from Produtos where descricao like '+QuotedStr('%'+Edit2.Text+'%'));
('and grupo like ' +QuotedStr('%'+Edit2.Text+'%'));

end;

end.

Se a busca for feita apenas na primeira linha (descrição), o sistema roda sem problemas, mas se incluir a segunda linha (grupo) recebo o seguinte erro:

Statemente expected, but expression of type "string' found

Se alguém puder me ajudar, agradeceria muito
Decio

Decio

Curtidas 0

Respostas

Raimundo Pereira

Raimundo Pereira

13/11/2017

Qual o banco de dados ?
O campo grupo é string ou integer?
GOSTEI 0
Natanael Ferreira

Natanael Ferreira

13/11/2017

Teste assim:
procedure TFrmProdutos.Button4Click(Sender: TObject);
begin
  DM.FDQuery1.Open('select *from Produtos where descricao like ' + QuotedStr('%' + Edit2.Text + '%')
    + ' or grupo like ' + QuotedStr('%' + Edit2.Text + '%'));
end;
GOSTEI 0
Natanael Ferreira

Natanael Ferreira

13/11/2017

Corrigindo. Teste assim:
procedure TFrmProdutos.Button4Click(Sender: TObject);
begin
  DM.FDQuery1.Open('select * from Produtos where descricao like ' + QuotedStr('%' + Edit2.Text + '%')
    + ' or grupo like ' + QuotedStr('%' + Edit2.Text + '%'));
end;
GOSTEI 0
POSTAR