Como fazer consultas sem usar SQL no delphi?

Question

Algu�m sabe se � poss�vel fazer consultas filtrando por cliente sem usar SQL, s� usando a pr�pria linguagem delphi? Por exemplo, quero que mostre no dbgrid s� as contas de um determinado cliente que e...

William · Accepted Answer

D� uma lida nesses artigos da DevMedia:[url:descricao=//www.devmedia.com.br/trabalhando-a-propriedade-filter-do-clientdataset-parte-1/13571]//www.devmedia.com.br/trabalhando-a-propriedade-...

Joelson · Answer

Willian voc� � demais. � exatamente disso que preciso. Agora como eu fa�o para digitar somente o nome do cliente no edit, pra n�o precisar digitar esse comando todo: nome like Andre.Tem como digitar s� o nome do cliente no edit?...

Joelson · Answer

Willian consegui resolver em parte dessa forma. Mas ainda sou obrigado a colocar as aspas. Por exemplo: 'joelson'. Tem alguma ideia pra mim n�o precisar colocar as aspas. Abaixo est� o c�digo de como estou fazendo.

procedure TfrmConsultaReceber.btn4Click(Sender: TObject);
var nome: string;
begin

nome:= Edit1.text;

dm_dados.tblReceber.Filtered := false;
dm_dados.tblReceber.Filter := 'reb_cliente ='+ nome;
dm_dados.tblReceber.Filtered := true;
end;

William · Answer

Tente:...

Joelson · Answer

Willian muito obrigado pela for�a. Me tira mais uma d�vida. Estou tentando fazer assim, como mostra o c�digo abaixo, mas est� aparecendo essa mensagem de erro: Operator not applicable to this operand type. Voc� sabe por que est� dando este erro?

dm_dados.tblReceber.Filtered := false;
dm_dados.tblReceber.Filter := 'reb_cliente ='+ QuotedStr(nome) and 'reb_valor_divida <> 0';
dm_dados.tblReceber.Filtered := true;

William · Answer

Joelson utilize a tag CODE quando for postar trechos de c�digo fonte, fica mais leg�vel!A fun��o filter recebe como par�metro uma string, ent�o � necess�rio que sua express�o esteja dentro de ap�strofos (aspas):...

Joelson · Answer

Muito agradecido. Willian me der uma ajuda tamb�m nesse c�digo abaixo est� dando esse erro: conversion error from string ''20/05/2016''.
#c�digo
procedure TfrmConsultaReceber.btn3Click(Sender: TObject);
var data:TDateTime;
begin
data:= Date;
dm_dados.tblReceber.Filtered := false;
dm_dados.tblReceber.Filter := 'reb_vencimento <' + QuotedStr(DateToStr(data));
dm_dados.tblReceber.Filtered := true;
end;

Natanael Ferreira · Answer

O problema pode ser o padr�o de datas do seu BD....

Joelson · Answer

Natanael coloquei seu c�digo, mas n�o funcionou est� aparecendo esse erro: conversion error from string 20....

Joelson · Answer

At� fazendo dessa forma simples est� dando este erro: conversion error from string ''0''.
#C�digo
procedure TfrmConsultaReceber.btn3Click(Sender: TObject);
begin
dm_dados.tblReceber.Filtered := false;
dm_dados.tblReceber.Filter := 'reb_vencimento < 15/05/2016';
dm_dados.tblReceber.Filtered := true;
end;

Natanael Ferreira · Answer

Qual o seu banco de dados?

Qual o tipo do seu campo reb_vencimento? Date, Datetime?

Qual o formato da data do seu campo reb_vencimento? dd/mm/yyyy? yyyy/mm/dd?

Veja este link:
https://www.devmedia.com.br/forum/filtro-por-data-erro-conversion-error-for-string-0/436991

Joelson · Answer

Natanael muito obrigado esse artigo que voc� postou o link ajudou. Funcionou assim. Segue o c�digo abaixo. Corre��o do erro: conversion error from string ''0''.
#C�digo
procedure TfrmConsultaPagar.btn3Click(Sender: TObject);
var data: TDateTime;
begin
data:= Date;
dm_dados.tblPagar.Filtered := false;
dm_dados.tblPagar.Filter := 'reb_vencimento >' + QuotedStr(Formatdatetime('yyyy.mm.dd',data));
dm_dados.tblPagar.Filtered := true;

end;

F�rum Como fazer consultas sem usar SQL no delphi? #554024