Выбор диапазона дат. БД access в C++ Builder

@SAnatoliy · Регистрация: 08.12.2017

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

на форуме нашел пример работы с выбором по диапазону дат.

C++
1
2
3
4
5
6
DataModule1->ADOQuery1->Close();
DataModule1->ADOQuery1->SQL->Clear();
DataModule1->ADOQuery1->SQL->Add("select * from Journal Where datarow Between :datastart and :datastop ");
DataModule1->ADOQuery1->Parameters->ParamByName("datastart")->Value =FormatDateTime("dd/mm/yyyy",DateTimePicker1->Date);
DataModule1->ADOQuery1->Parameters->ParamByName("datastop")->Value = FormatDateTime("dd/mm/yyyy",DateTimePicker2->Date);
DataModule1->ADOQuery1->Open();

Выбор почему то работает если указать на день больше искомого.
Работает так: DateTimePicker1 - ставлю 01-02-2025 в DateTimePicker2 - ставлю 02-01-2025.
Если в DateTimePicker2 поставить 01-02-2025, то записей нет.

Verevkin · 08.02.2025, 22:59

Возможно, перепутаны дни и месяцы. Попробуй сделать запрос, например, с 29 мая 2023 по 13 января 2024.

@D1973 · 08.02.2025, 23:50

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

на форуме нашел пример работы с выбором по диапазону дат.

Это кривой пример.
1. Нет ни малейшей необходимости сначала очищать значение свойства SQL, а потом добавлять новый текст запроса. Достаточно сразу менять свойство SQL->Text
2. Поля, содержащие дату - они и должны быть типа Дата/Время, а не текстовыми. В Вашем примере параметры принимают текстовое значение.

@SAnatoliy · 09.02.2025, 14:18 **[ТС]**

Формат поля в БД "Дата и Время". значения хранятся в виде "09.02.2025 14:13:42"

Можете привести пример кода для ADOQuery1 поиска в диапазоне дат. БД access?

@didgik · 09.02.2025, 14:21

SAnatoliy, попробуй задавать в формате "yyyy-mm-dd" ну или вообще без формата, там же параметры.

@SAnatoliy · 09.02.2025, 15:39 **[ТС]**

При изменении формата на другой отображение нет. Без указания формата тоже самое как в первом топике ( чтоб посмотреть за 9 число, нужно ставить диапазон с 08 по 10 числа).

@didgik · 09.02.2025, 17:25

SAnatoliy, а если с временем? 2025-02-01 00:00:00 по 2025-02-01 23:59:59

@SAnatoliy · 09.02.2025, 19:44 **[ТС]**

Вот так проверил все работает.

C++
1
2
DataModule1->ADOQuery1->Parameters->ParamByName("datastart")->Value = "04/02/2025 00:00:00"; 
DataModule1->ADOQuery1->Parameters->ParamByName("datastop")->Value = "04/02/2025 23:59:00";

Пробую изменить вот так:

C++
1
2
DataModule1->ADOQuery1->Parameters->ParamByName("datastart")->Value = FormatDateTime("dd/mm/yyyy hh:mm:ss",DTP1->DateTime);
DataModule1->ADOQuery1->Parameters->ParamByName("datastop")->Value = = FormatDateTime("dd/mm/yyyy hh:mm:ss",DTP2->DateTime);

а время ввожу в форме вручную, время не меняется и поиск не работает.

как с помощью этого компонента вводить время?

@didgik · 09.02.2025, 21:26

сделай так "dd/mm/yyyy 23:59:59" и, кстати, минуты кажись nn

@SAnatoliy · 10.02.2025, 07:32 **[ТС]**

поправил код так:

C++
1
2
    DataModule1->ADOQuery1->Parameters->ParamByName("datastart")->Value = FormatDateTime("dd/mm/yyyy 00:00:00",DTP1->Date);
    DataModule1->ADOQuery1->Parameters->ParamByName("datastop")->Value = FormatDateTime("dd/mm/yyyy 23:59:59",DTP2->Date);

показывает все требуемые записи.

Огромное спасибо за помощь.

@D1973 · 10.02.2025, 08:23

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

ParamByName("datastop")->Value = = FormatDateTime("dd/mm/yyyy hh:mm:ss",DTP2->DateTime);

SAnatoliy, Вы вообще читаете, что Вам пишут? Я же еще когда написал, что не надо приводить тип TDate к типу String, а Вы до сих пор чушь лепите!

Вот пример, где все работает:

@SAnatoliy · 10.02.2025, 14:50 **[ТС]**

Загрузил Ваш пример. Скомпилировал exe. Поиск не работает, показывает только "Все записи" и все.

У себя пока сделал так и проверил по разным диапазонам все записи отображаются корректно, в чем ошибка в коде? По сути время мне не нужно в поиске.

Не пойму где я привожу дату в текст?

P.S.
по сути сформированный запрос для ADOQuery и есть строка...

C++
1
2
3
4
5
6
7
    DataModule1->ADOQuery->Close();
    DataModule1->ADOQuery->SQL->Clear();
    DataModule1->ADOQuery->SQL->Add("create_record from Log Where create_record Between :datastart and :datastop");
    DataModule1->ADOQuery->Parameters->ParamByName("datastart")->Value = FormatDateTime("dd/mm/yyyy 00:00:00",DTP1->Date);
    DataModule1->ADOQuery->Parameters->ParamByName("datastop")->Value = FormatDateTime("dd/mm/yyyy 23:59:59",DTP2->Date);
 
    DataModule1->ADOQuery->Open();

@D1973 · 10.02.2025, 19:01

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

Поиск не работает

Вот Вам видео, как это работает у меня.
RUTUBE

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

Не пойму где я привожу дату в текст?

Вот здесь.

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

DataModule1->ADOQuery->Parameters->ParamByName("datastart")->Value = FormatDateTime("dd/mm/yyyy 00:00:00",DTP1->Date);

функция FormatDateTime() преобразует значение типа TDateTime в тип String

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

по сути сформированный запрос для ADOQuery и есть строка...

Да, но не значения параметров, которые движок СУБД преобразует из типов Билдера в аналогичные типы СУБД.

@didgik · 10.02.2025, 19:29

SAnatoliy,

C++
1
2
3
4
5
6
7
8
9
10
11
12
   
 
   // тут или где то выше или сразу в дизайнере проставить минуты:
   DTP1->Time = 0;
   DTP2->Time = 0.99999;
DataModule1->ADOQuery->Close();
    DataModule1->ADOQuery->SQL->Clear();
    DataModule1->ADOQuery->SQL->Add("create_record from Log Where create_record Between :datastart and :datastop");
    DataModule1->ADOQuery->Parameters->ParamByName("datastart")->Value =DTP1->Date);
    DataModule1->ADOQuery->Parameters->ParamByName("datastop")->Value = DTP2->Date);
 
    DataModule1->ADOQuery->Open();

@SAnatoliy · 10.02.2025, 19:53 **[ТС]**

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

с исправлением DTP1->Time = 0; и DTP2->Time = 0.99999; Поиск не работает.

последний вариант как код у меня стал работать нельзя использовать?

@D1973 · 10.02.2025, 20:34

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

Но на моих пк с билдером и офисом

Ну, с этого, скорее всего, и надо начинать. Какой билдер и какой офис.

Добавлено через 1 минуту

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

DataModule1->ADOQuery->SQL->Add("create_record from Log Where create_record Between :datastart and :datastop");

У Вас тут, по моему, как минимум, SELECT пропущен...

@SAnatoliy · 10.02.2025, 21:10 **[ТС]**

RadStudio 10.2 Tokyo (C++Builder 10.2)
Microsoft.Office.2021x64.v2022.05

Кликните здесь для просмотра всего текста

C++
1
2
3
4
5
6
7
8
9
10
  DTP1->Date = Now();
  DTP2->Date = Now();
 
    DataModule1->ADOQuery1->Close();
    DataModule1->ADOQuery1->SQL->Clear();
    DataModule1->ADOQuery1->SQL->Add("select create_record  from JournalLog Where create_record Between :datastart and :datastop");
    DataModule1->ADOQuery1->Parameters->ParamByName("datastart")->Value = FormatDateTime("dd/mm/yyyy 00:00:00",DTP1->Date);
    DataModule1->ADOQuery1->Parameters->ParamByName("datastop")->Value = FormatDateTime("dd/mm/yyyy 23:59:59",DTP2->Date);
 
    DataModule1->ADOQuery1->Open();

@D1973 · 11.02.2025, 05:03

Билдер нормальный, не самый свежий, но вполне себе актуальный...

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

Microsoft.Office.2021x64

Про это чудо вообще ничего сказать не могу - в глаза не видел. Но, если учитывать общую тенденцию, что Access становится хуже от версии к версии - боюсь даже предположить, что там.

А сама БД какого формата? MDB или ACCDB?

@SAnatoliy · 11.02.2025, 08:02 **[ТС]**

Более свежий билдер не находил леченный, но в принципе и не искал.

БД в формате "mdb".
Офис Microsoft Office LTSC профессиональный плюс 2021.

@D1973 · 11.02.2025, 08:29

MDB - и формат и провайдер не меняются с 2000 года, должно работать... Что произойдет, если Вы просто запустите программу и нажмете на кнопку "Диапазон"?

Новые блоги и статьи Все статьи Все блоги /
Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	1С: Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git
1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .

Verevkin Злостный нарушитель 10358 / 5778 / 1275 Регистрация: 12.03.2015 Сообщений: 26,697
	08.02.2025, 22:59
	Возможно, перепутаны дни и месяцы. Попробуй сделать запрос, например, с 29 мая 2023 по 13 января 2024. 0

@SAnatoliy 0 / 0 / 0 Регистрация: 08.12.2017 Сообщений: 206
	09.02.2025, 14:18 [ТС]
	Формат поля в БД "Дата и Время". значения хранятся в виде "09.02.2025 14:13:42" Можете привести пример кода для ADOQuery1 поиска в диапазоне дат. БД access? 0

@didgik 42 / 45 / 6 Регистрация: 21.10.2022 Сообщений: 584 Записей в блоге: 2
	09.02.2025, 14:21
	SAnatoliy, попробуй задавать в формате "yyyy-mm-dd" ну или вообще без формата, там же параметры. 0

@SAnatoliy 0 / 0 / 0 Регистрация: 08.12.2017 Сообщений: 206
	09.02.2025, 15:39 [ТС]
	При изменении формата на другой отображение нет. Без указания формата тоже самое как в первом топике ( чтоб посмотреть за 9 число, нужно ставить диапазон с 08 по 10 числа). 0

@didgik 42 / 45 / 6 Регистрация: 21.10.2022 Сообщений: 584 Записей в блоге: 2
	09.02.2025, 17:25
	SAnatoliy, а если с временем? 2025-02-01 00:00:00 по 2025-02-01 23:59:59 0

@didgik 42 / 45 / 6 Регистрация: 21.10.2022 Сообщений: 584 Записей в блоге: 2
	09.02.2025, 21:26
	сделай так "dd/mm/yyyy 23:59:59" и, кстати, минуты кажись nn 1

@SAnatoliy 0 / 0 / 0 Регистрация: 08.12.2017 Сообщений: 206
	10.02.2025, 19:53 [ТС]
	Видео не посмотрел, ссылка не доступна уже видимо. У меня нет причин не доверять и я уверен Ваш пример рабочий. Но на моих пк с билдером и офисом не работает поиск по дате без указания формата. Пробовал разные варианты. с исправлением DTP1->Time = 0; и DTP2->Time = 0.99999; Поиск не работает. последний вариант как код у меня стал работать нельзя использовать? 0

@SAnatoliy 0 / 0 / 0 Регистрация: 08.12.2017 Сообщений: 206
	11.02.2025, 08:02 [ТС]
	Более свежий билдер не находил леченный, но в принципе и не искал. БД в формате "mdb". Офис Microsoft Office LTSC профессиональный плюс 2021. 0

@D1973 Модератор 9924 / 6460 / 2457 Регистрация: 21.01.2014 Сообщений: 27,415 Записей в блоге: 3
	11.02.2025, 08:29
	MDB - и формат и провайдер не меняются с 2000 года, должно работать... Что произойдет, если Вы просто запустите программу и нажмете на кнопку "Диапазон"? 0