BDGrid listar somente registros da data atual

Você deverá fazer a consulta no banco de dados, resgatando apenas os registros desejados. Que banco você está usando?

Estou usando paradox

Cara, tenta alterar a propriedade FILTER da tabela, por exemplo, CAMPO = ´data´

Meu amigo não perda tempo, tenta migrar para o firebird...

Eu poderia migrar para o firebird, mas programa inicial não foi feito por mime esta todo em paradox. Só estou fazendo uma implementação.

Como Joel mencionou tente filtrar assim:



Date traz a data atual do sistema.

Rsrsrsrsr....onde que eu coloco esse código, William?

Bom depende de qual evento vc vai disparar o filtro, se for a partir de um button ou quando o usuário abrir o form:

FormCreate quando o sistema carrega o forma da consulta

ButtonClick quando o usuário clica no botão.



Nesse caso o dataset é um ClientDataSet....

Deu um erro aqui: Operator not applicable to this operand type;

Alterei da seguinte forma...so não sei se esta correto:

tenta colocar datetimetostr...

ou ainda assim, vc pode tentar dar um formatdatetime
aí ficaria mais ou menos assim:

dm01.tbl_servico.Filter := QuotedStr(FormatDateTime(yyyy-mm-dd,now()))
ou entao
dm01.tbl_servico.Filter := QuotedStr(FormatDateTime(yyyy-mm-dd,date))

Ta dando um erro na compilação...Project raised exception class EDatabaseError with message Incorrectly formed filter expression. Process stopped.

vc tem que colocar o yyyy-mm-dd entre aspas... deve ser isso

e faltou também o campo... OS_DATAIN = +

Agora o erro é Operator not applicable to this operand type.

Carlos seu campo é do tipo Date no banco de dados?

Esse código eu testei filtrando um campo do tipo date no Firebird.

Isso mesmo William.....eu coloquei o campo para ser Date na tabela. Pode ser q eu esteja errando em alguma coisa.

Atenção galera....consegui resolver esse probleminha. Obrigado as todos os que deram suas contribuições. Resolvi da forma como o William havia me passado, só estava errando nas aspas. Um moderador por favor marque este como resolvido.

Aliás, como se marca um tópico como resolvido?

Carlos vou conversar com Administrador Wesley e ver se tem como melhorar essa questão das aspas, eu respondi com mais gravou sem aspas.

Que bom q deu certo!!

só confirmando, a propriedade FILTER recebe string, logo:

procedure Tfrm_servlist.FormCreate(Sender: TObject);
begin
dm01.tbl_servico.Filtered := false;
// dm01.tbl_servico.Filter := OS_DATAIN = + QuotedStr(DateToStr(date)); // errado
dm01.tbl_servico.Filter := ' OS_DATAIN = ' + QuotedStr(DateToStr(date)); // corrigido
dm01.tbl_servico.Filtered := true;
end