Выборка по времени в FireBird

[Lokos]

Здравствуйте.
Пытаюсь сделать так

procedure TVahtaMainForm.poiskClick(Sender: TObject);
var
   zapr:string;
begin
    zapr:='SELECT * FROM NEW_TABLE WHERE';
   if (radiobutton2.Checked=true) and(checkbox1.Checked=false)  then
      zapr:=zapr+' "ВРЕМЯ ПРИБЫТИЯ"='+
      QuotedStr(TimeToStr(datetimepicker2.Time))+' and "ВРЕМЯ УБЫТИЯ" is not null'; 
   DM.FIBDS.Close;
   DM.FIBDS.SQLs.SelectSQL.Text:=zapr;
   DM.FIBDS.Open;
end;

Запрос выполняется без ошибок но вот записи не выводятся как будто их нет в таблице.

[artemavd]

А если вместо * указать какое-нибудь поле? То тогда как?

[Lokos]

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

А если вместо * указать какое-нибудь поле? То тогда как?

тот же результат.
Поле имеет тип TIME. Возможно в этом проблема. Еще есть тип TIMESTAMP каково различие между ними
или возможно время указывается не в апострафах ('')

[artemavd]

А если такой выполнить запрос, то будут ли записи какие-нибудь выдаваться:

 DM.FIBDS.Close;
 DM.FIBDS.SQLs.SelectSQL.Text:='select * from new_table where "Время прибытия"=' + QuotedStr(TimeToStr(DateTimePicker1.Time)) + ' and "Время убытия" is not null';
 DM.FIBDS.Open;

[Lokos]

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

А если такой выполнить запрос, то будут ли записи какие-нибудь выдаваться:

 DM.FIBDS.Close;
 DM.FIBDS.SQLs.SelectSQL.Text:='select * from new_table where "Время прибытия"=' + QuotedStr(TimeToStr(DateTimePicker1.Time)) + ' and "Время убытия" is not null';
 DM.FIBDS.Open;

эфект тот же 0 записей. Менял даже так

 DM.FIBDS.Close;
 DM.FIBDS.SQLs.SelectSQL.Text:='select * from NEW_TABLE where "ВРЕМЯ ПРИБЫТИЯ"=15:15:57';
 DM.FIBDS.Open;

ошибка
Менял так

 DM.FIBDS.Close;
 DM.FIBDS.SQLs.SelectSQL.Text:='select * from NEW_TABLE where "ВРЕМЯ ПРИБЫТИЯ"=' + QuotedStr('15:15:57');
 DM.FIBDS.Open;

0 записей

[artemavd]

Какой тип имеет поле "Время Прибытия"? Пробовали задавать английские имена полей и выполнять запрос?

[Lokos]

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

Какой тип имеет поле "Время Прибытия"? Пробовали задавать английские имена полей и выполнять запрос?

Тип поля TIME, имя полей точно не причем.
Запрос

 zapr:='SELECT ID FROM NEW_TABLE WHERE';
 if radiobutton1.Checked=true  then
      zapr:=zapr+' "ДАТА ПРИБЫТИЯ"='+
      QuotedStr(DateToStr(datetimepicker1.Date))+' and "ВРЕМЯ УБЫТИЯ" is not null';

Работает отлично

[artemavd]

Значит где-то Вы логически намудрили в этих условиях

 if radiobutton1.Checked=true  then ... и так далее

Кстати, а как Вы заносите время прибытия в БД?

[Lokos]

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

Значит где-то Вы логически намудрили в этих условиях

 if radiobutton1.Checked=true  then ... и так далее

Кстати, а как Вы заносите время прибытия в БД?

Вот так

 DM.FIBQ.SQL.Clear;
         DM.FIBQ.SQL.Text:='INSERT INTO NEW_TABLE (ID,"ФИО","ДАТА ПРИБЫТИЯ","ВРЕМЯ ПРИБЫТИЯ", '+
         '"ВРЕМЯ УБЫТИЯ","АГЕНСТВО","СОПРАВОЖДАЮЩИЙ","КУДА")'+
         ' VALUES(null,:FIO,:DPR,:TPR,null,:AG,:SOPR,:KUDA)';
         DM.FIBQ.ParamByName('FIO').Value:=memo1.text;
         DM.FIBQ.ParamByName('DPR').AsDate:=Date;
         DM.FIBQ.ParamByName('TPR').Value:=Time;
         DM.FIBQ.ParamByName('AG').Value:=combobox2.text;
         DM.FIBQ.ParamByName('SOPR').Value:=memo2.Text;
         DM.FIBQ.ParamByName('KUDA').Value:=memo3.Text;
         DM.FIBQ.ExecQuery;
         DM.FIBQ.Transaction.Commit;
         DM.FIBDS.Close;

[artemavd]

Точн не помню, но разве в FireBird нельзя так записать?

DM.FIBQ.ParamByName('TPR').AsDateTime:=Time;

Можете привести скрин таблицы БД с несколькими вставленными записями? Надо посмотреть как они там выглядят.