SQL запросы.

[polarity]

Здраствуйте.

Есть база данных на парадоксе. Нужно написать запросы :
1) Удалить записи лиц со стажем > 20 лет.
2) Показать записи лиц, принятых на работу в определенный период.

1* Стаж - calculated поле. SQL на него ругается =\
2* Ругается на непонятный формат даты наверное.

Посмотрите, пожалуйста, что не так.

[rdama]

модуль DateUtils

'DELETE FROM General WHERE datepost <=' + QuotedStr(IntToStr(Dayof(Now)) + '.' + IntToStr(MonthOf(Now)) + '.' + IntToStr(YearOf(Now) - 20))

Единственное день и месяц возвращаются одной цифрой. Т.е. формат даты как 'd.m.yyy'. Может понадобиться добавление 0 в начало. Для приведения к формату 'dd.mm.yyyy'.

[polarity]

Сообщение от rdama

модуль DateUtils

'DELETE FROM General WHERE datepost <=' + QuotedStr(IntToStr(Dayof(Now)) + '.' + IntToStr(MonthOf(Now)) + '.' + IntToStr(YearOf(Now) - 20))

Единственное день и месяц возвращаются одной цифрой. Т.е. формат даты как 'd.m.yyy'. Может понадобиться добавление 0 в начало. Для приведения к формату 'dd.mm.yyyy'.

Что-то удаляет вообще все записи.

[rdama]

Собери вот такой запрос.

SELECT * FROM General WHERE datepost <=' + QuotedStr(IntToStr(Dayof(Now)) + '.' + IntToStr(MonthOf(Now)) + '.' + IntToStr(YearOf(Now) - 20))

Что он возвращает? Все записи? Если да то надо смотреть почему условие не отрабатывает. Может BDE не принимает дату в таком формате. Посмотри в каком формате необходимо передать дату. И поправь запрос чтоб выбрал только то что надо.

[Serge_Bliznykov]

Посмотри в каком формате необходимо передать дату

ну взрослые, опытные люди, а до сих пор ещё не запомнили:
Чтобы в запросах не было проблем с датами, надо использовать параметрические запросы (дату в запрос передавать в виде параметра).
Это корректно работает со всеми СУБД!
Все остальные способы - глючные по определению! (даже если они и нормально работают - любое изменение формата локали, хоть на сервере, хоть на клиенте - и получаются отличные, трудновоспроизводимые и труднообнаруживаемые косяки!

(да, ещё вполне допустимым исключением является способ использования функций СУБД, когда передаётся строка в нужном формате и уже СУБД ещё приобразовывает в указанный явно в запросе формат (например, в Oracle это to_date(... ). Так тоже можно. Но это уже способ, который напрямую зависит от используемой СУБД )

[polarity]

with DataModule2.Query1 do
   try
    SQL.Text := 'delete from General where Datapost<:dt';
    ParamByName('dt').AsDateTime := StrToDateTime(QuotedStr(IntToStr(Dayof(Now))+ '.' + IntToStr(MonthOf(Now)) + '.' + IntToStr(YearOf(now)-20)));
    Open;
   except
     ShowMessage('Ошибка удаления');
   end;

Ничего не изменилось, тоже ошибки и удаляет все записи =\

[rdama]

взрослые, опытные люди

Не занимаются секасом с BDE. Так как знают что это грозит болезнями кормовой части.
А так да конечно параметром. В запрос параметр а дату для запроса можно так получить.

var a : Tdate;
begin
  a := Now - (20*365+5)

20*365 - 20 лет в днях
+5 - потерянные 5 дней (високосные года)
Пятница, конец рабочего дня. Голова вообще не варит.

[polarity]

procedure TForm1.Button1Click(Sender: TObject);
var a : Tdatetime;
begin
  with DataModule2.Query1 do
   try
   a := Now - (20*365+5);
    SQL.Text := 'delete from General where Datapost<'+datetostr(a);
   // ParamByName('dt').AsDateTime := StrToDateTime((IntToStr(Dayof(Now))+'.' + IntToStr(MonthOf(Now)) + '.' + IntToStr(YearOf(now)-20)));
    Open;
   except
     ShowMessage('Ошибка удаления');
     end;
  end;

Теперь ругается на то, что поле 'a' неизвестного формата.

А если так -

Datapost<'+datetostr(a);

То получается - DataPost<24.06 и опять ругается. Ппц какой-то)

[rdama]

procedure TForm1.Button1Click(Sender: TObject);
var date1:tdatetime;
begin
  date1:=now - (20 * 365 + 5);
  DataModule2.Query1.Close;
  DataModule2.Query1.SQL.Clear;
 // DataModule2.Query1.SQL.Add('delete');
  DataModule2.Query1.SQL.Add('delete from General where DataPost < :dt');
//  DataModule2.Query1.SQL.Add('where General.Check>20');
  DataModule2.Query1.Params.ParamByName('dt').AsDate := date1;
  DataModule2.Query1.ExecSQL;
  DBGrid1.DataSource.DataSet.Refresh;
end;

Вот залез и поправил в твоём исходнике.
Но для вида лучше так

procedure TForm1.Button1Click(Sender: TObject);
var date1:tdatetime;
begin
  date1:=now - (20 * 365 + 5);
  with DataModule2.Query1 do   
  begin
     Close;
     SQL.Clear;
     SQL.Add('delete from General where DataPost < :dt');
     Params.ParamByName('dt').AsDate := date1;
     ExecSQL;
  end;
  DBGrid1.DataSource.DataSet.Refresh;
end;

[Аватар]

date1:=now - (20 * 365 + 5);

Не совсем корректно, что делать если не 20 а 19 или 17? Лучше

date1:=IncMonth(now,-240)