Ни как не хочет искать!!!
Project NalogProject.exe raised exception class EOleException with message ‘Ошибка синтаксиса (пропущен оператор) в выражении запроса ‘Кто LIKE’ООО ЛПК’ and Дата поступления в ИФНС between ? and ?”. Process stopped. Use Step or Run to continue.
В FindQuery в свойстве Parameters пусто, в свойстве SQL следующий запрос:
SELECT *
FROM ТаблицаГИБДД
А по кнопке Найти конкретизируем что надо найти:
Код:
procedure TForm3.SpeedButton5Click(Sender: TObject);
var
StartDate: TdateTime;
FinishDate: TdateTime;
begin
DataModule4.FindQuery.Active:=false;
DataModule4.FindQuery.SQL.Clear;
DataModule4.FindQuery.SQL.Add('SELECT *');
DataModule4.FindQuery.SQL.Add('FROM ТаблицаГИБДД
DataModule4.FindQuery.SQL.Add('WHERE Кто LIKE '''+FindEdit.Text+'''' );
DataModule4.FindQuery.SQL.Add('and Дата поступления в ИФНС between :StartDate and :FinishDate');
StartDate:=StrToDate(Edit1.Text);
FinishDate:=StrToDate(Edit2.Text);
DataModule4.FindQuery.Parameters.ParamByName('StartDate').Value := StartDate;
DataModule4.FindQuery.Parameters.ParamByName('FinishDate').Value := FinishDate;
DataModule4.FindQuery.Active:=true;
Form12.ShowModal;
end;
Admin: Не забываем про теги, иначе последуют санкции!