SQL запрос между 2 датами

[Never74]

Приветствую всех, у меня сложная ситуация.

Задача: Сделать запрос с выполнением работ за какой-то определённый период времени (то есть по 2 дата...между 2 датами найти выполненые работы)...вот тока как сюда и условие про работы вписать даже не представляю....

Но данный запрос выдает ошибку и не работает
http://s017.radikal.ru/i425/1112/f4/99ad02838ba4.png

Data_Module_0.ADOQuery_Priem.Close;
Data_Module_0.ADOQuery_Priem.SQL.Clear;
Data_Module_0.ADOQuery_Priem.SQL.Add('SELECT * FROM Priem WHERE DatePay Between and '''+DateToStr(trunc(DateTimePicker1.Date))+''' and '''+DateToStr(trunc(DateTimePicker2.Date))+'''');
Data_Module_0.ADOQuery_Spr_Rabs.ExecSQL;
Data_Module_0.ADOQuery_Priem.Open;

Помоги пожалуйста решить данную проблему.
Заранее спасибо

[Аватар]

'SELECT * FROM Priem WHERE DatePay Between and '''+DateToStr

Выделенное красным что делает?

[rdama]

Параметры в запросах. Ваш вопрос обсасывается не меньше раза в неделю. На форуме есть поиск.

'SELECT * FROM Priem WHERE DatePay Between and '''+DateToStr

Так делать нельзя

[Never74]

Осталась тока одна проблема. Как добавить условие для поиска ещё по какому-нибудь полю в таблице.

С датами по диапазону получилось вот так и работает:

//Функция DateToSQLStr 
function DateToSQLStr(Date : TDate) : String ;
   var
      d, m, y : word ;
begin
   DecodeDate(Date, y, m, d) ;
   Result := IntToStr(d)+'/'+IntToStr(m)+'/'+IntToStr(y) ;
end ;

//Запрос на показ диапазона между 2 датами
Data_Module_0.ADOQuery_Priem.Close;
Data_Module_0.ADOQuery_Priem.SQL.Clear;
Data_Module_0.ADOQuery_Priem.SQL.Text := 'SELECT * FROM Priem WHERE Priem.Data_Priem between #' + DateToSQLStr(DateTimePicker1.Date) + '# and #' + DateToSQLStr(DateTimePicker2.Date) +'#';
Data_Module_0.ADOQuery_Priem.ExecSQL;
Data_Module_0.ADOQuery_Priem.Open;

Мне нужно добавить вот это условие, но как я не понимаю...

    with Data_Module_0 do Begin
 ADOQuery_Spr_Uslygi.Close;
 ADOQuery_Spr_Uslygi.SQL.Clear;
 ADOQuery_Spr_Uslygi.SQL.Add('Select * from Uslugas where Usluga like'''+'%'+Edit_Search.text+'%'+'''');
 ADOQuery_Spr_Uslygi.Open;
 end;

[Serge_Bliznykov]

С датами по диапазону получилось вот так и работает

ну и плохо получилось... Хотя, конечно, воля Ваша, но я бы очень рекомендовал использовать ПАРАМЕТРИЧЕСКИЙ запрос (это запрос, где даты передаются как параметры)
да. и строчку с ExecSQL надо ОБЯЗАТЕЛЬНО УБРАТЬ! Это ошибка!

Мне нужно добавить вот это условие, но как я не понимаю...

да очень просто.
Скорее всего, Вам нужно все записи, где дата попадает в диапазон И услуга имеет подстроку, совпадающую с заданной в Edit_Search...

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

Data_Module_0.ADOQuery_Priem.Close;
Data_Module_0.ADOQuery_Priem.SQL.Clear;
Data_Module_0.ADOQuery_Priem.SQL.Text := 'SELECT * FROM Priem WHERE Priem.Data_Priem between #' + DateToSQLStr(DateTimePicker1.Date) + '# and #' + DateToSQLStr(DateTimePicker2.Date) +'#';
if Trim(Edit_Search.text)<>'' then
    Data_Module_0.ADOQuery_Priem.SQL.Add(' and Usluga like '+QuotedStr('%'+Edit_Search.text+'%'));
Data_Module_0.ADOQuery_Priem.Open;

хотя, я бы всё таки даты передавал как параметры!

и подучите SQL - полезная штука, пригодится в жизни...

p.s. оп-с.. ничего не выйдет! Ведь у Вас выборка ИЗ РАЗНЫХ таблиц!
Нужно знать структуру таблиц и каким образом связаны таблицы Priem и Uslugas - иначе запрос выдаст ошибку. ведь в таблице Priem нет поля Usluga

[Never74]

Serge_Bliznykov, огромное тебе спасибо! +1.

Данный код работает на ура

Data_Module_0.ADOQuery_Priem.Close;
Data_Module_0.ADOQuery_Priem.SQL.Clear;
Data_Module_0.ADOQuery_Priem.SQL.Text := 'SELECT * FROM Priem WHERE Priem.Data_Priem between #' + DateToSQLStr(DateTimePicker1.Date) + '# and #' + DateToSQLStr(DateTimePicker2.Date) +'#';
if Trim(Edit_Search.text)<>'' then
    Data_Module_0.ADOQuery_Priem.SQL.Add(' and Usluga like '+QuotedStr('%'+Edit_Search.text+'%'));
Data_Module_0.ADOQuery_Priem.Open;

Извини, забыл исправить код. ADOQuery_Spr_Uslygi это вообще у меня справочник, а само поле Usluga в ADOQuery_Priem имеется

[rdama]

Специально для ТС

DateToSQLStr(DateTimePicker1.Date)

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