Фильтрация по дате и иному полю

@greendoom · Регистрация: 13.03.2011

Студворк — интернет-сервис помощи студентам

Есть база данных в Access, есть Dbgrid, Datasource, Adotable. База соединена с оболочкой. В базе есть поле Дата_рождения, и поле №_сада. Хочу сделать фильтрацию по этим полям. Кинул на форму 1 ComboBox, и 2 datetimepicker. В ComboBox выбираем сад, в между datetimepicker ами выставляет период для фильтрации, от и до.
Вот код кнопки:

Delphi
1
2
3
Form1.DataSource2.DataSet.Filtered :=False;
Form1.DataSource2.DataSet.Filter:='[№_сада]='+ (ComboBox8.Text) +  '[Дата_рождения]>=' + DateToStr(DateTimePicker1.Date) + ' AND [Дата_рождения]<=' + DateToStr(DateTimePicker2.Date) ;
Form1.DataSource2.DataSet.Filtered :=true;

Помогите исправить.
Имеем вот такую ошибку:

@Bit_Man · 22.05.2012, 17:54

Не работает поиск в БД здесь посмотри

@greendoom · 22.05.2012, 18:43 **[ТС]**

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

Не работает поиск в БД здесь посмотри

здесь ничего нету, только поиск))))

@xxbesoxx · 23.05.2012, 02:04

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

Есть база данных в Access, есть Dbgrid, Datasource, Adotable. База соединена с оболочкой. В базе есть поле Дата_рождения, и поле №_сада. Хочу сделать фильтрацию по этим полям. Кинул на форму 1 ComboBox, и 2 datetimepicker. В ComboBox выбираем сад, в между datetimepicker ами выставляет период для фильтрации, от и до.
Вот код кнопки:

Delphi
1
2
3
Form1.DataSource2.DataSet.Filtered :=False;
Form1.DataSource2.DataSet.Filter:='[№_сада]='+ (ComboBox8.Text) +  '[Дата_рождения]>=' + DateToStr(DateTimePicker1.Date) + ' AND [Дата_рождения]<=' + DateToStr(DateTimePicker2.Date) ;
Form1.DataSource2.DataSet.Filtered :=true;

Помогите исправить.
Имеем вот такую ошибку:

1. Поля Дата должен бить Дата/время
2. кидаешь на форму С: DateTimePicker1 и До: DateTimePicker2
3. Кнопка Button или SpeedButton или BitBtn какой тебя нравится и пишешь

Delphi
1
2
3
ADOTable1.Filtered:=false;
ADOTable1.Filter:='[Дата]>='+QuotedStr(DateToStr(DateTimePicker1.DateTime))+'and [Дата]<='+QuotedStr(DateToStr(DateTimePicker2.DateTime))+'';
ADOTable1.Filtered:=true;

@greendoom · 23.05.2012, 09:44 **[ТС]**

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

1. Поля Дата должен бить Дата/время
2. кидаешь на форму С: DateTimePicker1 и До: DateTimePicker2
3. Кнопка Button или SpeedButton или BitBtn какой тебя нравится и пишешь

Delphi
1
2
3
ADOTable1.Filtered:=false;
ADOTable1.Filter:='[Дата]>='+QuotedStr(DateToStr(DateTimePicker1.DateTime))+'and [Дата]<='+QuotedStr(DateToStr(DateTimePicker2.DateTime))+'';
ADOTable1.Filtered:=true;

Согласен, а как сюда добавить чтобы фильтрация еще и по полю №_сада шла, плюс к фильтрации к этим датам.

@ikage · 15.01.2013, 21:22

всем доброе время суток.пытаюсь сделать поиск по диапазону дат.база ацесса;связка ADOConnection,DataSource,ADOQuery.измене ния в базу добавляются,но при поиске по датам выдаёт такую ошибку "ADOQuery : parameter 'dat2' not found".параметры в ADOQuery для "dat1" и "dat2" одинаковые.в ацессе столбец "дата"-дата/время.вот сам код

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
dat1:TdateTime;
dat2:TdateTime;
begin
DataModule2.ADOQuery1.Active:=false;
DataModule2.ADOQuery1.SQL.Clear;
DataModule2.ADOQuery1.SQL.Add('SELECT*');
DataModule2.ADOQuery1.SQL.Add('FROM îáìåí');
DataModule2.ADOQuery1.SQL.Add('Where äàòà between :dat1 and: dat2');
dat1:=DateTimePicker1.Date;
dat2:=DateTimePicker2.Date;
DataModule2.ADOQuery1.Parameters.ParamByName ('dat1').Value:= dat1;
DataModule2.ADOQuery1.Parameters.ParamByName ('dat2').Value:= dat2;
DataModule2.ADOQuery1.Active:=true;

помогите разобраться в чем я туплю

@ikage · 17.01.2013, 13:02

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

Delphi
1
2
3
var
dat1:TdateTime;
dat2:TdateTime;

нужно

Delphi
1
2
3
var
dat1:String;
dat2:String;

а также перевести dat1 и dat2 из string в dat чтоб 10 и 11 строки не ругались

@andrew-worm · 23.01.2013, 14:11

greendoom, я для фильтра использовал оператор Like

@Geeskel · 23.01.2013, 14:42

не проще ли делать запрос по типу такого?

SQL
1
SELECT * FROM Название_таблицы_в_БД ORDER BY имя_поля_для_сортировки

Добавлено через 5 минут
попробуй запрос наподобие

SQL
1
SELECT * FROM имя_таблицы WRERE DATE BETWEEN datevalue('+#39+datetostr(date_from.Date)+#39+') AND datevalue('+#39+datetostr(date_to.Date)+#39+'))

(просьба предыдущее сообщение проигнорировать

)

@rdama · 25.01.2013, 06:09

А вы пробел перед and ставить не пробовали?

Delphi
1
ADOTable1.Filter:='[Дата]>='+QuotedStr(DateToStr(DateTimePicker1.DateTime))+' and [Дата]<='+QuotedStr(DateToStr(DateTimePicker2.DateTime))+'';

А то вот почему то мне кажется что ваш фильтр выглядит как "[Дата]>=дата1and [Дата]<=дата2"
Данное решение в принципе ошибочно ибо.
1. Переносим программу на комп с другими региональными настройками и ловим ошибки.
2. Меняем региональные настройки на сервере и опять ошибки.
Тоже касается преложенного ikage

Логичнее использовать запрос с параметрами.
1. Объем передаваемыхданных уменьшается
2. С меньшим объемом данных удобнее работать пользователю.
3. Нахрена вам вся таблица при открытии программы?
4. Раз уж так не хочется показывать пустой грид сделайте при запуске отображение данных за неделю/2/месяц, а дольше пусть пользовательрешает что он хочет видеть.

SQL
1
SELECT * FROM имя_таблицы WRERE [Дата] BETWEEN :date1 AND :date2

Далее

Delphi
1
Parameters.ParamByName('date1').Value := DateTimePicker1.Date

Как все вместе скрестить разберетесь?

@Andrys74 · 25.01.2013, 08:30

rdama, позвольте капельку Вас подправить: вместо WRERE надо писать WHERE, а то "чайники" потом вопросами об ошибках замучают

@Kamazok · 28.05.2013, 08:55

Фильтр между двумя датами
Здравствуйте, у меня похожая ситуация, тоже нужно сделать фильтр между датами, но если делать через запрос, то придётся всё переделывать. Прошу помощи.

Сама программа. https://disk.yandex.ru/public/... YINVXMQ%3D

В программе есть уже готовый фильтр, но я ни знаю сможет ли он высчитывать промежутки дат. Если можно прямо там в коде напишите пример, чтобы фильтр полностью работал.
Учится_с и Учится_по

@Andrys74 · 28.05.2013, 09:14

Если не ошибаюсь, то как-то так:

Delphi
1
2
3
Form1.DataSource2.DataSet.Filtered :=False;
Form1.DataSource2.DataSet.Filter:=(первое условие) and (второе условие) ;
Form1.DataSource2.DataSet.Filtered :=true;

@Kamazok · 28.05.2013, 09:17

Перейдите в мою тему, и ответте там, там иначе условие

"Сопоставление двух дат, в определённом промежутке времени"

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .

@Bit_Man 480 / 393 / 113 Регистрация: 24.04.2012 Сообщений: 1,632 Записей в блоге: 3
	22.05.2012, 17:54
	Не работает поиск в БД здесь посмотри 0

@andrew-worm 2 / 2 / 0 Регистрация: 18.01.2013 Сообщений: 14
	23.01.2013, 14:11
	greendoom, я для фильтра использовал оператор Like 1

@Andrys74 217 / 81 / 6 Регистрация: 23.04.2012 Сообщений: 340
	25.01.2013, 08:30
	rdama, позвольте капельку Вас подправить: вместо WRERE надо писать WHERE, а то "чайники" потом вопросами об ошибках замучают 2

@Kamazok 1 / 1 / 0 Регистрация: 04.04.2012 Сообщений: 17
	28.05.2013, 08:55
	Фильтр между двумя датами Здравствуйте, у меня похожая ситуация, тоже нужно сделать фильтр между датами, но если делать через запрос, то придётся всё переделывать. Прошу помощи. Сама программа. https://disk.yandex.ru/public/... YINVXMQ%3D В программе есть уже готовый фильтр, но я ни знаю сможет ли он высчитывать промежутки дат. Если можно прямо там в коде напишите пример, чтобы фильтр полностью работал. Учится_с и Учится_по 1

@Kamazok 1 / 1 / 0 Регистрация: 04.04.2012 Сообщений: 17
	28.05.2013, 09:17
	Перейдите в мою тему, и ответте там, там иначе условие "Сопоставление двух дат, в определённом промежутке времени" 0