Удаление и добавление в Access

[Fireblade-fan]

Доброго всем времени суток! У меня есть база MS Access, в ней есть поле data. Нужно, чтобы при запуске приложения изменялась БД, т.е. удалялись все строки с прошедшей датой и добавлялись строки с новой датой. Промежуток дат 3 недели (например от 01.04.2013 до 21.04.2013). Поле data имеет тип дата/время.
Начал сначала реализовывать удаление, написал код, но не пойму почему выдает ошибку "несоответствие типов данных в выражении условия отбора".
Вот код

procedure TForm1.izmenenie_BD;
var str:string; id:integer; data1,data2:TDateTime;
begin
  data1:=date;
  data2:=date-2; //для примера написал так
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('DELETE FROM raspisanie WHERE data BETWEEN ''data2'' AND ''data1''');
  Form1.ADOQuery1.Open;
end;

[eval]

что не понятно в ошибке?

[Fireblade-fan]

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

что не понятно в ошибке?

все понятно, но типы данных везде одинаковые. Пробовал удалять по id, выскакивает та же ошибка, хотя и там и там тип числовой

[Аватар]

И что это за константы такие 'data1' и 'data2'? И в таблице данные в этом поле в таком виде

[eval]

гдеж одинаковые? гиворите что -

Поле data имеет тип дата/время

, а подаете ему какие-то странные строки 'data1' и 'data2'... вот вас и обругало

[Fireblade-fan]

Сообщение от Аватар

И что это за константы такие 'data1' и 'data2'? И в таблице данные в этом поле в таком виде

а что, в коде не видно что это за константы? ))
Если есть ошибка, то скажи, где я ошибся. Это мое первое приложение с БД, так что не надо сильно издеваться ))

[Fireblade-fan]

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

гдеж одинаковые? гиворите что -
, а подаете ему какие-то странные строки 'data1' и 'data2'... вот вас и обругало

Да, я подозревал на это, но и с числовыми типами такая же фигня
вот:

procedure TForm1.izmenenie_BD;
var str:string; data1,data2:integer;
begin
  data1:=1;
  data2:=3; //äëÿ ïðèìåðà íàïèñàë òàê
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('DELETE FROM raspisanie WHERE id BETWEEN ''data1'' AND ''data2''');
  Form1.ADOQuery1.Open;
end;

Не в запросе случайно ошибка? И если тип TDateTime не совместим с Access, тогда как сделать? Может в таблице полю data задать тип "текстовый" и в программе, в цикле, сравнивать со значением текущей даты, и если они не равны, то удалять запись

[eval]

но и с числовыми типами такая же фигня

какая такая? вам уже в ошибке все сказали, я еще и разжевал, что не понятно до сих пор?
сравниваются только однотипные данные, либо с возможностью внутреннего преобразования, иначе всегда будет ошибка...

[Аватар]

Для умника, не видящего константы в коде

  ADOQuery1.Active:=False; //На всякий случай, вдуг ранее открывался
  ADOQuery1.SQL.Text:='DELETE FROM raspisanie WHERE [data] BETWEEN :data2 AND :data1';
  ADOQuery1.Parameters.ParamByName('data1').Value:=data1;
  ADOQuery1.Parameters.ParamByName('data2').Value:=data2;
  ADOQuery1.ExecSQL;

[Fireblade-fan]

Сообщение от Аватар

Для умника, не видящего константы в коде

  ADOQuery1.Active:=False; //На всякий случай, вдуг ранее открывался
  ADOQuery1.SQL.Text:='DELETE FROM raspisanie WHERE [data] BETWEEN :data2 AND :data1';
  ADOQuery1.Parameters.ParamByName('data1').Value:=data1;
  ADOQuery1.Parameters.ParamByName('data2').Value:=data2;
  ADOQuery1.ExecSQL;

Я уже понял, что у меня константа в запросе была )) Спасибо Вам