SQL Запрос по дате

[SERG1980]

Делаю запрос вызовов за определённый период времени

procedure TMainForm.Button1Click(Sender: TObject);
begin
 With DataModule.AdressQuery do
 begin
  Close;
  Parameters.ParamByName('Data_Start').Value:=MainForm.DateEdit1.Date;
  Parameters.ParamByName('Data_End').Value:=MainForm.DateEdit2.Date;
  SQL.Add('Select * from Адрес where (Дата_вызова >= :Data_Start) AND (Дата_вызова <= :Data_End)');
  Open;
 end;
  if TaxiDataModule.AdressQuery.RecordCount<>0 then
  TaxiDataModule.AdressDataSource.DataSet:=TaxiDataModule.AdressQuery;
end;

В св-ве Parameters Query создал два параметра типа ftDateTime;
Поле Дата_вызова тоже типа TDateTime;
Если запрос создать в редакторе SQL то работает нормально а если сформировать его время работы программы (как в моём случае) то происходит следущее
при первом нажатии работает нормально, но при втором выдаёт ошибку
Неправильно определён объект Parameter. Предоставлены несовместимые или неполные данные

[mihali4]

Было уже и не раз. Когда начнете поиском пользоваться?
http://programmersforum.ru/showthread.php?t=16579

[Serge_Bliznykov]

Михалыч, я думаю, что тут банально пропущена очистка текста запроса (DataModule.AdressQuery.SQL.Clear; или, если с With ... - просто SQL.Clear; )

[SERG1980]

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

Михалыч, я думаю, что тут банально пропущена очистка текста запроса (DataModule.AdressQuery.SQL.Clear; или, если с With ... - просто SQL.Clear; )

Да так и было. Спасибо всем разобрался.

[mihali4]

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

Михалыч, я думаю, что тут банально пропущена очистка текста запроса (DataModule.AdressQuery.SQL.Clear; или, если с With ... - просто SQL.Clear; )

Именно поэтому я всегда ратую за SQL.Text:=...