Calculo de datas
14/12/2003
0
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.
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.
Manedelphi
Curtir tópico
+ 0
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
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
Clique aqui para fazer login e interagir na Comunidade :)