Поиск в интервале времени

[Aleksandr]

посмотрите пожалуйста код

ADOQuery1.SQL.Text := 'select * from base where Time_posting BETWEEN (Time_posting Like'+QuotedStr('%'+RzDateTimeEdit1.Text+'%')+') and (Time_posting Like'+QuotedStr('%'+RzDateTimeEdit2.Text+'%')+')'  ;

[Yurk@]

и к чему такие грабли?
что требуется добиться этим кодом?

[Aleksandr]

вывести значения в интервале времени (где RzDateTimeEdit1 начальное значение времени RzDateTimeEdit2 конечное значение времени).

[eval]

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

[Serge_Bliznykov]

Aleksandr, поймите, что Вы пытаетесь смешать несмешиваемое!!

есть оператор LIKE. Он позволяет отбирать данные по совпадению строк (в том числе, используя подстановочные знаки)

есть оператор BETWEEN

  что-то BETWEEN Значение1 and Значение2

выбирает все данные, которые попадают в диапазон от значения1 до значения2

Так, как Вы их хотите смешать, так НЕ ПОЛУЧИТСЯ!

Ещё раз формализуйте то, что Вы хотите добится, после этого напишите корректный код, который формирует корректный SQL запрос.

вам, как уже было написано неоднократнейше, нужно что-то вроде:

ADOQuery1.SQL.Text := 'select * from base where Time_posting BETWEEN :param1 and :param2';
ADOQuery1.Params.ParamByName('param1').Value := RzDateTimeEdit1.Date; {или RzDateTimeEdit1.DateTime}
ADOQuery1.Params.ParamByName('param2').Value := RzDateTimeEdit2.Date; {или RzDateTimeEdit2.DateTime}

интересно, сколько ещё раз надо повторить этот код, чтобы Вы на него обратили внимание?!

[Aleksandr]

Выходит мне лучше всего делать через параметры и каким-то образом убрать из времени дату.
получается в RzDateTimeEdit1.Date указывать сразу и дату и время
У меня время в базе хранится в виде 1899-12-30 19:22:25

[eval]

убрать из времени дату

задаётся джентльмены это комедия

[Aleksandr]

Сделал вот таким образом

 DateRep :='1899-12-30 '+TimeToStr(RzDateTimeEdit1.Time);
   DateRep2 := '1899-12-30 '+TimeToStr(RzDateTimeEdit2.Time);

  ADOQuery1.SQL.Text := 'select * from base where Time_posting BETWEEN :date1 AND :date2';
  ADOQuery1.Params.ParamByName('date1').Value:=DateRep;
  ADOQuery1.Params.ParamByName('date2').Value:=DateRep2;

[Serge_Bliznykov]

не обижайтесь, но Вы плохо сделали...
гарантирую, что работать будет, но совсем не так, как Вы того ожидаете!

[Aleksandr]

А как лучше? Сделал еще вот так.

 
case Combobox2.ItemIndex of
    0: s:=  ' where Massa= "'+RzEdit1.text+'"';
   1: s:=  ' where Massa<> "'+RzEdit1.text+'"';
   2: s:=  ' where Massa> "'+RzEdit1.text+'"';
   3: s:=  ' where Massa>= "'+RzEdit1.text+'"';
   4: s:=  ' where Massa< "'+RzEdit1.text+'"';
   5: s:=  ' where Massa<= "'+RzEdit1.text+'"';
 //  6: s:=  ' where Massa "'+RzEdit1.text+'"'+'%';
   //7: s:=  ' where Massa Like % "'+RzEdit1.text+'"'+'%';
   7: s:=  ' where Massa Like '+QuotedStr('%'+RzEdit1.Text+'%');
 //  8: s:=  ' where Massa BETWEEN '+RzEdit1.text+' and '+RzEdit2.text;
    end;


ADOQuery1.SQL.Text := 'select * from base' +s+ 'AND Date_posting BETWEEN :date1 AND :date2'+' and Time_posting BETWEEN :time1 AND :time2';

    DateRep :='1899-12-30 '+TimeToStr(RzDateTimeEdit1.Time);
   DateRep2 := '1899-12-30 '+TimeToStr(RzDateTimeEdit2.Time);

//  ADOQuery1.SQL.Text := 'select * from base where Time_posting BETWEEN :time1 AND :time2';
  ADOQuery1.Params.ParamByName('time1').Value:=DateRep;
  ADOQuery1.Params.ParamByName('time2').Value:=DateRep2;

    d1:=Trunc(DateTimePicker1.Date);
  d2:=Trunc(DateTimePicker2.Date);
  ADOQuery1.Params.ParamByName('date1').Value:=d1;
  ADOQuery1.Params.ParamByName('date2').Value:=d2;