Удалить записи из таблицы, если дата в записи старше 30 дней

[Aleksandr]

Как удалить записи базы если запись была создана более 30 дней.

if Optionform.RzEdit3.Text<>'' then
 begin
 data_system := Date;
s1:=strtoInt(Optionform.RzEdit3.Text);
mainform.ADOQuery2.Active:=false;
mainform.ADOQuery2.SQL.Clear;
mainform.ADOQuery2.SQL.Text := 'select Date_posting from base';

 mainform.ADOQuery2.Open;

 While not mainform.ADOQuery2.Eof do
  begin
     mainform.ADOQuery2.Next;
end;

  if  data_system-s>s1 then
begin
mainform.ADOQuery2.SQL.Clear;
mainform.ADOQuery2.SQL.Text := 'DELETE FROM base WHERE Date_posting>'
    end;

[Sciv]

Рассчитать в какую-нибудь переменную дату "30 дней назад" и передать ее как параметр в запрос.

[Yurk@]

не уверен что подойдет к какой-то конкретной СУБД, но для Firebird примерно:

DELETE FROM base WHERE 'now' - date_posting > 30

now - можно заменить каким-либо параметром и подойдет под любую БД

[Aleksandr]

Сделал вот так, но выдает ошибку.

var

data_system: TDate;
s:TDate;
begin
if Optionform.RzEdit3.Text<>'' then
 begin
data_system := Date;
mainform.ADOQuery2.Active:=false;
mainform.ADOQuery2.SQL.Clear;
mainform.ADOQuery2.SQL.Text := 'DELETE FROM base WHERE ''data_system'' - date_posting >' +Optionform.RzEdit3.Text;
mainform.ADOQuery2.Open;
mainform.ADOQuery2.Post;
    end;

[Serge_Bliznykov]

та ошибка (её очень просто устранить) которую Вы получаете,
ничто, по сравнению с ошибкой в реализации подхода!!

Вы получаете ошибку потому как пытаетесь "ОТКРЫТЬ" (Open) набор данных.
Это допустимо только в том случае, если запрос возвращает набор данных (команда SELECT ... )
в случаях выполнения команды надо вызывать метод .ExecSQL;

mainform.ADOQuery2.ExecSQL;

метод .Post вообще не из этой "оперы" и вызывать его в данном месте вообще не надо!

НО! Это всё технические детали.
Ваш запрос всё равно работать НЕ БУДЕТ!

давайте начнём с того, что Вы нам скажете, какая у Вас СУБД ?

И потом, Вы точно уверены, что записи нужно из таблицы УДАЛЯТЬ?
Подумайте, что будет, если кто-то переведёт время на год вперёд и запустит Вашу программу?
Ведь намного удобнее и проще НЕ ВЫБИРАТЬ ненужные записи (добавить условие в select, например)
Откатить удаление пользователю уже не удастся, записи будут удалены безвозратно!

[Aleksandr]

База у меня сделана на MySQL. Данные мне все таки нужно удалять так как у меня каждую секунду записываются данные из com порта. И поэтому база очень сильно растет. Я в Optionform.RzEdit3 указываю количество дней по истичении которых я удаляю записи.

[Аватар]

Согласен в какой-то мере с Сергеем, но удалять иногда приходится. И если очень сильно хочется удалить, то сделал бы так

var s: String;
    d: TDateTime;

  ADOQuery1.SQL.Text:='DELETE FROM base WHERE date_posting<=:CalcDate';
  d:=Trunc(DateTimePicker1.DateTime); //если плясать от заданной даты
//или
  d:=Date-30; //если плясать от системной за минусом 30 дней
  ADOQuery1.Parameters.ParamByName('CalcDate').Value:=d;
  ADOQuery1.ExecSQL;

Что касается системной даты, то можно запросить её и с SQL-сервера. Понадежней будет, хотя тоже не истина в последней инстанции

[Aleksandr]

Всем огромное спасибо.

[Serge_Bliznykov]

Что касается системной даты, то можно запросить её и с SQL-сервера. Понадежней будет, хотя тоже не истина в последней инстанции

угу. а ещё лучше будет, если в запросе прописать работу с датами прямо в запросе (тогда и будет браться дата с сервера).
К сожалению, не владею MySQL в нужном объёме.

ну, согласно доке это будет примерно так:

 ADOQuery1.Close;  {необязательно, на всякий случай...}

 ADOQuery1.SQL.Text:='DELETE FROM base '+
     '   WHERE TO_DAYS(NOW()) - TO_DAYS(date_posting) > 30';
 ADOQuery1.ExecSQL;

[Aleksandr]

А как сделать так чтобы делать эту проверку каждый день?