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

[Aleksandr]

Делаю поиск в интервале времени, но не всегда работает

   ADOQuery1.Active:=false;
   ADOQuery1.SQL.Clear;
   ADOQuery1.SQL.Text := 'select * from base where Time_posting BETWEEN :time1 AND :time2';
  t1:=Trunc(DateTimePicker3.Time);
  t2:=Trunc(DateTimePicker4.Time);
  ADOQuery1.Params.ParamByName('time1').Value:=t1;
  ADOQuery1.Params.ParamByName('time2').Value:=t2;
  ADOQuery1.Open;

   if ADOQuery1.RecordCount <> 0 then
  begin
 Beep;
       ADOQuery1.Active:=true;
 ADOQuery1.Refresh;
 Screen.Cursor := crDefault;
   ResultForm.Show;

 end
 else
      begin
      Screen.Cursor := crDefault;
      Beep;
      ShowMessage('По данному запросу ничего не найдено.');
      end;
end;

[Аватар]

t1:=Trunc(DateTimePicker3.Time);
t2:=Trunc(DateTimePicker4.Time);

Это даст поиск не по интервалу времени, а по интервалу дат

[eval]

ADOQuery1.Active:=true;
ADOQuery1.Refresh;

это что такое?

[Serge_Bliznykov]

согласен с предыдущими форумчанинами.

Сообщение от Аватар

Это даст поиск не по интервалу времени, а по интервалу дат

теорертически (подчёркиваю, исключительно теоретически) может помочь выбрасывание trunc()

  ADOQuery1.Params.ParamByName('time1').Value := DateTimePicker3.Time;
  ADOQuery1.Params.ParamByName('time2').Value := DateTimePicker4.Time;

Но, на самом деле, надо смотреть, какого типа поле Time_posting в таблице и что там в поле хранится!

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

это что такое?

присоединяюсь к вопросу!

if ADOQuery1.RecordCount <> 0 then если есть записи в наборе данных
  begin
   Beep; {пискнуть}   

   ADOQuery1.Active:=true;   {открыть открытый запрос ещё раз??!!!!}
   ADOQuery1.Refresh;  {и ещё раз! Обновить содержимое набора данных??!!!!}
   ^^^^ ЗАЧЕМ ЭТИ ДВЕ СТРОКИ?!! ЧТО Вы ими добиваетесь?!?!
   

   Screen.Cursor := crDefault;
   ResultForm.Show;

 end

[Aleksandr]

procedure TFindForm.Button1Click(Sender: TObject);
var  d1,d2: TDateTime;
s:string;
begin
Screen.Cursor := crHourGlass;
case Rzcombobox1.ItemIndex of
 0: begin
 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+'"'+'%';
   8: s:=  ' where Massa BETWEEN '+RzEdit1.text+' and '+RzEdit2.text;
  end;
  end;
  1: begin
 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+'"'+'%';
   8: s:=  ' where Massa BETWEEN '+RzEdit1.text+' and '+RzEdit2.text;
  end;
  end;
2: begin
 case Combobox2.ItemIndex of
   0: s:=  ' where Massa= "'+RzEdit1.text+'"'+' AND Date_posting='+'"'+DateToStr(DateTimePicker1.date)+'"';
   1: s:=  ' where Massa<> "'+RzEdit1.text+'"'+' AND Date_posting='+'"'+DateToStr(DateTimePicker1.date)+'"';
   2: s:=  ' where Massa> "'+RzEdit1.text+'"'+' AND Date_posting='+'"'+DateToStr(DateTimePicker1.date)+'"';
   3: s:=  ' where Massa>= "'+RzEdit1.text+'"'+' AND Date_posting='+'"'+DateToStr(DateTimePicker1.date)+'"';
   4: s:=  ' where Massa< "'+RzEdit1.text+'"'+' AND Date_posting='+'"'+DateToStr(DateTimePicker1.date)+'"';
   5: s:=  ' where Massa<= "'+RzEdit1.text+'"'+' AND Date_posting='+'"'+DateToStr(DateTimePicker1.date)+'"';
   6: s:=  ' where Massa "'+RzEdit1.text+'"'+'%'+' AND Date_posting='+'"'+DateToStr(DateTimePicker1.date)+'"';
   7: s:=  ' where Massa Like % "'+RzEdit1.text+'"'+'%'+' AND Date_posting='+'"'+DateToStr(DateTimePicker1.date)+'"';
   8: s:=  ' where Massa BETWEEN '+RzEdit1.text+' and '+RzEdit2.text+' AND Date_posting='+'"'+DateToStr(DateTimePicker1.date)+'"';
  end;
  end;
  end;
   if  Combobox1.Text<>'' then
   begin
  memo1.Lines.Clear;
  memo1.Lines.Add('select * from base'+s+ 'AND Organization='+quotedstr(Combobox1.Text)) ;
  end
  else
 begin
  memo1.Lines.Clear;
  memo1.Lines.Add('select * from base'+s) ;
  end ;

 ADOTable1.Refresh;
 ADOQuery1.Active:=false;
 ADOQuery1.SQL.Clear;
 ADOQuery1.SQL.Text :=  memo1.Text;
 ADOQuery1.Open;

   if ADOQuery1.RecordCount <> 0 then
  begin
 Beep;
// ADOQuery1.Active:=true;
 //ADOQuery1.Refresh;
 Screen.Cursor := crDefault;
 ResultForm.Show;

 end
 else
      begin
      Screen.Cursor := crDefault;
      Beep;
      ShowMessage('По данному запросу ничего не найдено.');
      end;
   // end;
// end;
end;

Сделал поиск вот таким образом, но не работает поиск по дате, и не могу всунуть сюда поиск в интервале дат.

ADOQuery1.SQL.Text := 'select * from base' +
    s +quotedstr(RzEdit1.Text)+' AND Date_posting BETWEEN :date1 AND :date2';
   d1:=Trunc(DateTimePicker1.Date);
  d2:=Trunc(DateTimePicker2.Date);
  ADOQuery1.Params.ParamByName('date1').Value:=d1;
  ADOQuery1.Params.ParamByName('date2').Value:=d2;

[Aleksandr]

База MYSQL Time_posting типа DateTime хранится время формата hh:mm:ss

[eval]

Вы зачем дату и время отделили по разным полям?

[Yurk@]

  ADOQuery1.Close;
  ADOQuery1.SQL.Text := 'select * from base where Time_posting BETWEEN :time1 AND :time2';
  ADOQuery1.Params.ParamByName('time1').Value:=DateTimePicker3.Time;
  ADOQuery1.Params.ParamByName('time2').Value:=DateTimePicker4.Time;
  ADOQuery1.Open;

а так не?

[Aleksandr]

Выводит что по данному запросу ничего не найдено

[eval]

ADOTable1.Refresh;
ADOQuery1.Active:=false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text := memo1.Text;
ADOQuery1.Open;

читать читать читать ... как завещал маодзедун
вы что так не равнодушны к Refresh-у, спать спокойно не дает?