Como faço esse (Where DATA_PAGAMENTO = DATE)

Firebird

13/01/2006

Fala galera blz?

É o seguinte estou desenvolvendo um cadastro de contas a pagar, o q eu quero fazer é mostrar pro cliente toda vez que tiver uma conta vencida, ou seja se o campo data_pagamento for igual a data atual, mostrara uma mensagem avisando q tem contas vencida.

O que eu quero é pegar a data atual da maquina e comparar com o campo data_pagamento.

Bom no Delphi eu fiz assim.
DM_Geral.IBDSContas.First;
while not DM_Geral.IBDSContas.Eof do
begin
if DM_Geral.IBDSContasDATA_PAGAMENTO.Value = Date then
begin
 Frm_Cad_ContasAPagar
 Break;
end;
 DM_Geral.IBDSContas.Next;

Só que eu não estou conseguindo é fazer um Where.

Estou usando Delphi 7 mais FireBird 1.5.2 mais os componetes IBX.
Select * From ContasAPagar
Where DATA_PAGAMENTO = Date
Já tentei outros exemplos mais não tive sucesso.

Se alguém puder me ajudar ficarei grato.


Vitoreduardo

Vitoreduardo

Curtidas 0

Respostas

Sourcecode

Sourcecode

13/01/2006

Vitor, não tem função DATE no firebird/interbase

use:

Select * From ContasAPagar
Where DATA_PAGAMENTO = [b:64bd7af9fd]CURRENT_DATE[/b:64bd7af9fd]

CURRENT_DATE retorna a data atual da máquina onde o servidor de banco de dados está rodando

CURRENT_TIME retorna a hora atual idem também da máquina servidora


GOSTEI 0
Vitoreduardo

Vitoreduardo

13/01/2006

Faleu mesmo sourcecode

Funcionou direitinho


GOSTEI 0
POSTAR