Deletar todas as datas menores que 60 dias en paradox
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 )
gostaria de fazer direto na querie
algo tipo assim :
where data < ( now - 60 days )
Demostenesjr
Curtidas 0
Respostas
Okama
28/11/2005
Var Data: TDate; begin Data := IncDay( Now, -60 ); SQL.Text := ´Delete TABELA where Campo_Data <= ´+ QuotedStr( FormatDateTime( ´mm/dd/yyyy´, Data ) );
GOSTEI 0
Demostenesjr
28/11/2005
Bem lembrado ... Resolvido !!!!
GOSTEI 0
Juarezber
28/11/2005
Na minha tabela não deu certo. De onde vem o SQL.Text?
Abraços
Juarez
Abraços
Juarez
GOSTEI 0
Juarezber
28/11/2005
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;
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;
GOSTEI 0