Фильтр по БД

[eval]

Qry1.SQL.Clear;

это лишнее
и еще, * в запросе - плохой стиль, надо указывать поля конкретно

[Аватар]

остаётся всего одна запись

Уверены что должно быть больше? Возможно время из dtp3.DateTime и dtp4.DateTime мешает, если оно есть там

с одним единственным столбцом

Если их действительно больше одного, то в проге нужно искать причину

[Dozent]

SELECT * FROM smart WHERE data_zd>=:d1 AND data_zd<=:d2

Вот так должно вывести всю вашу таблицу в диапазоне дат. Какую СУБД используете? Ну и покажите структуру таблицы...

[Liite]

спасибо Dozent, всё заработало, правда он плюёт на настройки полей, но это уже мелочи, Аватар, да колличество стобцов должно сотаваться тоже, а вот записи должны фильтроваться.
Dozent, СУБД - MS ACCES, просто база с кучей таблиц, зависимости задаются уже в делфях, мастер сорс итп...

[Dozent]

Вы бы таблицу показали сразу многое понятно стало... Тип поля покоторому фильтруете какой? Date или DateTime? Что вы имеете ввиду под зависимостями?

[Liite]

тип полей по которым фильтруется Date\Time, под зависимостями я имею в виду связи таблиц между собой, они в принципе живут отдельно друг от друга

[Dozent]

Ну тут я по крайней мере могу сказать, что если нет необходимости учитывать время то тип полей нужно сделать Date (впринципе не критично, просто параметр надо правильно передавать не просто дату а дату+время) ну и связи между таблиц нужно делать полюбому в СУБД, в акцесе там это всё очень удобно сделано, для чего вам замарочки со связами таблиц в делфи низнаю, никогда в делфи не делал связи между таблицами

[Liite]

просто знакомство с БД началось с парадокса, а там максимум можно было назначить мастер филды, а остольное приходилось доделывать в дельфи, ну потом уже так и повелось..
и учитывать при поиске нужно только дату, ибо время в поля не пишится, по крайне мере в эти , и большое спасибо за помощь, всем кто откликнулся ))

[xxbesoxx]

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

всем доброго дня, решил написать сюда, что бы не хламить на форуме.
собственно проблема в том что, решил тоже воспользоваться SQL-ом для фильтрации данных по диапазону дат, если точнее то взял процедуру отсюда и просто изменил имена полей. Но работает оно как то странно, в результате запроса у меня остаётся всего одна запись с одним единственным столбцом. вот текст исходника, хотя от вышеприведённого он отличается мало.

Qry1.Active := false;
Qry1.SQL.Clear;
Qry1.sql.text:='SELECT * FROM [smart] WHERE (data_zd>=:D1) AND (data_zd<=:D2)';
Qry1.Parameters.ParamByName('d1').value:=dtp3.DateTime;
Qry1.Parameters.ParamByName('d2').Value:=dtp4.DateTime;
{qry1.Open;
Qry1.Edit;
ds1.Edit;}
Qry1.Active := true;

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

Ваши запрос должен работать так ! Смотрите внимательно код

procedure TfrmPanel.btFilterClick(Sender: TObject);
var
 d1, d2 : TDatetime;
 begin
    Qry1.Active := false;
    Qry1.SQL.Clear;
    Qry1.sql.Add('SELECT *  FROM  Таблица  WHERE  data_zd  BETWEEN :first_date AND :last_date');
    d1 := trunc(DateTime1)
    d2 := trunc(DateTime2)
    Qry1.Parameters.ParamByName('first_date').value:=  d1;
    Qry1.Parameters.ParamByName('last_date').Value:= d2;
   Qry1.Active := true;
end;

[Liite]

Всем большое спасибо за помощь.
Всё заработало.
правда пришлось -1 день в начале диапазона, по скольку SQL почему то думает, что начальный день не попадает под диапазон фильтрации. В таком виде всё работает прекрасно.

ds1.DataSet :=qry1;
Qry1.Active := false;
dtp3.DateTime:=  (incday(dtp3.DateTime,-1)); // отнимаем день
Qry1.sql.text:='SELECT * FROM smart WHERE data_zd>=:d1  AND data_zd<=:d2';
Qry1.Parameters.ParamByName('d1').value:=dtp3.DateTime;
Qry1.Parameters.ParamByName('d2').Value:=dtp4.DateTime;
Qry1.Active := true;
dtp3.DateTime:=  (incday(dtp3.DateTime,+1)) // прибавляем его на маесто, что бы у пользователя не возникало лишних вопросов...

Хотя лучшее было бы все эти игры с плюсами и минусами делать в переменных...