Pesquisa por data em firebird

Delphi

27/03/2011

preciso o seguinte pessoal

quero pegar uma data no banco...

somar a ela um parametro por exemplo

e dar uma mensagem caso esteja expirando

ou seja...

verificar se esta dentro daquela faixa que o usuario quer ser alertado de expirar...

vlw

me indicaram isso

SELECT *  FROM RDB$DATABASE
WHERE
   CAMPO = CURRENT_DATE + 5 ==> parâmetro (CURRENT_DATE + :NDIAS)

mas acredito nao ter dado muito certo
Diego Macario

Diego Macario

Curtidas 0

Respostas

André Silveira

André Silveira

27/03/2011

SELECT *  FROM tabela
WHERE
   CURRENT_DATE BETWEEN (DATAINICIO) AND (DATAINICIO + :NDIAS)


GOSTEI 0
Diego Macario

Diego Macario

27/03/2011

SELECT *  FROM tabela
WHERE
   CURRENT_DATE BETWEEN (DATAINICIO) AND (DATAINICIO + :NDIAS)




so uma coisa...esse :NDIAS é parametro?

pq to usando atraves de rtti pra verficiar no banco de dados se ha expirando algo...

procedure TFrmPrincipal.VerificaDia;
var
  Qry: TSQLQuery;
begin
  if not FileExists(ExtractFilePath(Application.ExeName) + 'Dia.ini') then
  begin
    AbreForm(TFrmDia, FrmDia);
  end
  else
  begin
    Qry := TSQLQuery.Create(nil);
    Qry.SQLConnection := Dm_Dados.con;
    try
      with Qry do
      begin
        Close;
        SQL.Clear;
        SQL.Add('SELECT * FROM CONVENIO WHERE DT_FINAL BETWEEN CURRENT_DATE AND CURRENT_DATE +'+CarregaDia);
        Open;
        if not IsEmpty then
        begin
          MessageDlg('Há convenio expirando o prazo limite',mtWarning,[mbOK],0);
          AbreForm(TFrmCalConv,FrmCalConv);
        end;
      end;
    finally
      FreeAndNil(Qry);
    end;
  end;
end;

se for parametro como passar?

valeu cara...pq eu carrego de um arquivo ini o numero de dias de prazo


GOSTEI 0
José

José

27/03/2011

Este tópico esta sendo fechado por inatividade. Se necessário, sinalizar para que seja reaberto ou abrir um novo.
GOSTEI 0
POSTAR