Deletar todas as datas menores que 60 dias en paradox

28/11/2005

1

Preciso deletar todas as datas menores que 60 dias em paradox ,
gostaria de fazer direto na querie

algo tipo assim :

where data < ( now - 60 days )


Responder

Posts

28/11/2005

Okama

Var
Data: TDate; 
begin

Data := IncDay( Now, -60 );

SQL.Text := ´Delete TABELA where Campo_Data <= ´+
    QuotedStr( FormatDateTime( ´mm/dd/yyyy´, Data ) );



Responder

28/11/2005

Demostenesjr

Bem lembrado ... Resolvido !!!!


Responder

14/02/2007

Juarezber

Na minha tabela não deu certo. De onde vem o SQL.Text?

Abraços
Juarez


Responder

15/02/2007

Juarezber

Ja descobri.
var SQL: String;
Data: TDate;
Data_string: String;
begin
Query1.Close;
Query1.Sql.Clear;
Data:= IncDay(Date(), -1);
Data_string:= FormatDateTime(´mm/dd/yyyy´, Data);
SQL:= ´DELETE FROM Paradas WHERE data < ´´´ + Data_string + ´´´´;
Query1.SQL.Add(SQL);
Query1.ExecSQL;
Table1.Open;
end;


Responder