Calculo de datas

14/12/2003

1

Estou com este comando abaixo so que ele funciona apenas uma vez, como se a consulta nao se atualizasse a cada cadastro novo... Alguem tem um dica

Valeu

procedure TFrmReservas.Button1Click(Sender: TObject);
var
e: integer;
begin
frmdm.QryReservas.Close;
frmdm.QryReservas.SQL.Clear;
e:=FrmDm.QryReservas.SQL.Add(´SELECT (´datasaida´ - ´dateentrada´ ) As teste FROM ´reservas´ ´);
frmdm.QryReservas.Open;

end;

end.


Responder

Posts

14/12/2003

Adilsond

procedure TFrmReservas.Button1Click(Sender: TObject);
var
  e: integer;
begin
  with frmdm.QryReservas do
    begin
      if Active then
         Close;
      SQL.Clear;
      SQL.Add(´SELECT datasaida - dateentrada as teste FROM reservas´);
      Open;
      try
        e := Fields[0].AsInteger;
      finally
        Close;
      end;
    end;
end;



Responder

15/12/2003

Manedelphi

Prezado Adilson

Continuo com o problema, mesmo com o comando que vc me passou... ele so funciona se removo todos os campos da tabela; Acho que posso estar fazendo algo de errado com o componente query; na propriedade dele no SQL estou colocando ´SELECT (´datasaida´ - ´dateentrada´) as MERTDFA FROM ´reservas´´).
e a base de dados é interbase;

Se puder me ajudar...
Valeu


Responder