Помогите сделать запрос с параметром-датой

[Herly]

Сам написал вот такой код:

var n:Variant;
begin
Mpr.Query1.DatabaseName:='SE';
Mpr.Query1.Close;
Mpr.Query1.SQL.Clear;
Mpr.Query1.SQL.Add('Delete from TableName Date <=: n');
Mpr.Query1.ParamByName('n').Value:= List.DTDate.Date;
Mpr.Query1.ExecSQL;
end;

Вылетает ошибка: 'Query1:Parameter 'n' not found'
(Бд Paradox 7, формат поля Date в базу данных Date)

[psycho-coder]

Может проще написать так?

begin
Mpr.Query1.DatabaseName:='SE';
Mpr.Query1.Close;
Mpr.Query1.SQL.Clear;
Mpr.Query1.SQL.Add('Delete from TableName Date');
Mpr.Query1.SQL.Add('Where Date <= '+List.DTDate.Date);
Mpr.Query1.ExecSQL;
end;

Ммм...

[Herly]

Так я пробовал, только когда начинаешь прописывать List.DTDate. в вылетающей после точки менюшке нету Date, значит так не правильно.
Чтобы в этом убедиться я специально писал List.DTDate.Date и прога даже не запускалась, выделяя всю строку красным.

[Serge_Bliznykov]

psycho-coder, категорически с Вами не согласен!!
К сожалению, формат даты такая мерзкая штука, зависящая от региональных настроек, что просто ужас.
Поэтому, использовать параметер в запросе — это чуть ли не единственный способ избежать глюков при передачи даты в запрос!!


Herly, двоеточие и название параметра должны быть БЕЗ ПРОБЕЛОВ.
А у Вас, если мне не показалось, пробел перед n?


p.s. так, как предложил psycho-coder можно (НО НЕ НУЖНО!) делать - только нужно дату переводить в строку в нужном формате....

[SERG1980]

  SQL.Clear;
  Parameters.Clear;
  Parameters.AddParameter.Name:='n';
  Parameters.ParamByName('n').DataType:=ftDateTime;
  Parameters.ParamByName('n').Value:=List.DTDate.Date;

[Serge_Bliznykov]

SERG1980, +1
написанный код абсолютно правилен!
есть два замечания.
1) насколько мне известно, если в Query включено свойство prepared - то введённая строка парсится и параметры и так будут доступны.
2) главное: чтобы использовать этот параметер, в строке SQL запроса, собственно, должен быть параметер n (именно в виде:

:n

[SERG1980]

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

2) главное: чтобы использовать этот параметер, в строке SQL запроса, собственно, должен быть параметер n (именно в виде:

:n

Дык вроде вот здесь этот параметр

Mpr.Query1.SQL.Add('Delete from TableName Date <=: n');

[Serge_Bliznykov]

Mpr.Query1.SQL.Add('Delete from TableName Date <=:_n'

а что, пробел в имени параметра разве допускается?!!

[Herly]

Если убрать пробел, то выдаёт новую ошибку: Invalid use of keyvord.
Token : date
По поводу вашего поста Serg1980
У компонента TQuery найти свойства Parametrs мне не удалось(
Если прописать вот так:

var n:Variant;
Begin
Mpr.Query1.DatabaseName:='SE';
Mpr.Query1.Close;
Mpr.Query1.SQL.Clear;
Mpr.Query1.SQL.Add('Delete from TableName Where Date <=:n');
Mpr.Query1.ParamByName('n').DataTyp e:=FtDateTime;
Mpr.Query1.ParamByName('n').Value:= List.DTDate.Date;
Mpr.Query1.ExecSQL;
end;

Вылетает опять ошибка Invalid use of keyvord.
Token : date

Пробовал и так

var n:Variant;
Begin
Mpr.Query1.DatabaseName:='SE';
Mpr.Query1.Close;
Mpr.Query1.SQL.Clear;
Mpr.Query1.SQL.Add('Delete from TableName Where Date <=:n');
Mpr.Query1.Params.AddParam(n);
Mpr.Query1.Params.ParamByName('n'). DataType:=FtDate;
Mpr.Query1.Params.ParamByName('n'). Value:=List.DTDate.Date;
Mpr.Query1.ExecSQL;

Но выдаётся тож ошибка(

[Herly]

После долгих и упорных скитаний по просторам рунета...
Я выяснил что вся моя беда в том что нельзя называть поле зарезервированным словом... В моём случае это слово Date.
Вот что у меня получилось:

var n:String;
begin
n:=DateTostr(List.DTDate.Date);
Mpr.Query1.DatabaseName:='SE';
Mpr.Query1.Close;
Mpr.Query1.SQL.Clear;
Mpr.Query1.SQL.Add('Delete from TableName Where DateB <='''+n+'''');
Mpr.Query1.ExecSQL;
end;

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