Deplhi 7 база данных, работа с датой

@alexey.exe · Регистрация: 23.01.2010

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

Есть база access, подключенная к delphi 7 через ADO.
В в таблице есть поле дата рождения формата 01.01.2010
Мне нужно сделать запрос , который смотрит текущую дату и выводит ближайший день рождения.
Возможно я ошибаюсь и это можно сделать не в запросе ADOQUERY а прямо в delphi 7 в виде цикла.
Хотелось бы по возможности посмотреть на несколько вариантов реализации данной задачи.

@slayer · 03.03.2010, 11:02

получи даты с таблицы, найди ближайшую к текущей потом select день рождения с той где эта дата..
текущая дата с помощью now
количество дней между датами с помощью DaysBetween(now, дата из таблицы)
где кол-во дней меньше там и ближайший день рождения

@alexey.exe · 03.03.2010, 11:53 **[ТС]**

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

получи даты с таблицы, найди ближайшую к текущей потом select день рождения с той где эта дата..
текущая дата с помощью now
количество дней между датами с помощью DaysBetween(now, дата из таблицы)
где кол-во дней меньше там и ближайший день рождения

Можно код плз. Не знаю как реализовать.

@НикоН · 04.03.2010, 10:47

alexey.exe, пробуй так:
Select Min(DTR) From Table Where DTR>vDate;
Здесь:
Table - Имя твоей таблицы
DTR - Колонка с датами
vDate - Дата в формате #mm/dd/yyyy#

@Lord_Voodoo · 04.03.2010, 10:50

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

@НикоН · 04.03.2010, 11:01

Lord_Voodoo, еще раз спасибо, не знал про такую фишку

Просвети чуток
Если в свойство ADOQuery.SQL.Text записать запрос Select FIO From Table Where FIO=:vFIO; он тоже будет работать?

@alexey.exe · 04.03.2010, 12:48 **[ТС]**

SQL
1
2
3
4
SELECT top 1 датар, фамилия FROM справочник 
WHERE      (MONTH(датар)>MONTH(DATE()) AND DAY(датар)<>0) OR
(MONTH(датар)=MONTH(DATE()) AND DAY(датар)>DAY(DATE())   )
ORDER BY MONTH(датар)    ASC

я сделал так. в итоге у меня выдает все даты которые есть в ближайшем месяце.
т.е.
05.03.2010
27.03.2010
Отсюда мне нужна та запись у которой число меньше.
пробовал делать под запрос

SQL
1
2
3
4
5
6
7
8
SELECT датар FROM справочник 
WHERE EXISTS 
(
SELECT top 1 датар, фамилия FROM справочник 
WHERE      (MONTH(датар)>MONTH(DATE()) AND DAY(датар)<>0) OR
(MONTH(датар)=MONTH(DATE()) AND DAY(датар)>DAY(DATE())   )
ORDER BY MONTH(датар)    ASC )
ORDER BY DAY(датар)    ASC

Я думал , что он отсортирует их в порядке увеличения по дню, тогда проблем не было бы, но
этот запрос все даты из всей таблицы сортирует по дню даты, а не те записи которые нашлись в под запросе.

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

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

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

имеете в виду на в компоненте ADOTable1 (который подключен к таблице )
создать New Field?

Я на словах мало пока что, что понимаю. И с связи с этим прошу подробней описать ваш способ реализации

@Lord_Voodoo · 04.03.2010, 13:01

НикоН, не работает только с BLOB и иже с ними, все остальное работает отлично...

alexey.exe, учите агрегатные функции sql - жить будет проще...

@alexey.exe · 04.03.2010, 13:12 **[ТС]**

Сообщение от НикоН

alexey.exe, пробуй так:
Select Min(DTR) From Table Where DTR>vDate;
Здесь:
Table - Имя твоей таблицы
DTR - Колонка с датами
vDate - Дата в формате #mm/dd/yyyy#

у сеня в таблице года 90ые.
Если так делать то не одной даты не выберет.

Select Min(DTR) From Table Where DTR>Date();
Date() - как системная дата

@НикоН · 04.03.2010, 14:02

alexey.exe, логично.
Может попробовать привести даты рождения в запросе к текущему году?

@alexey.exe · 04.03.2010, 15:07 **[ТС]**

Много лазил по форумам, в поисках решения поставленной задачи.
В итоге реализовать то, что мне было необходимо я могу с помощью
запроса SQL.

SQL
1
2
3
4
5
6
SELECT top 1 фамилия, датар FROM (
SELECT top 1 датар, фамилия FROM справочник 
WHERE      (MONTH(датар)>MONTH(DATE()) AND DAY(датар)<>0) OR
(MONTH(датар)=MONTH(DATE()) AND DAY(датар)>DAY(DATE())   )
ORDER BY MONTH(датар)    ASC )
ORDER BY DAY(датар)    ASC

всем спс. вопросов нет

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@alexey.exe 3 / 3 / 1 Регистрация: 23.01.2010 Сообщений: 45

	Deplhi 7 база данных, работа с датой 02.03.2010, 16:36. Показов 4351. Ответов 10 Метки нет (Все метки) Есть база access, подключенная к delphi 7 через ADO. В в таблице есть поле дата рождения формата 01.01.2010 Мне нужно сделать запрос , который смотрит текущую дату и выводит ближайший день рождения. Возможно я ошибаюсь и это можно сделать не в запросе ADOQUERY а прямо в delphi 7 в виде цикла. Хотелось бы по возможности посмотреть на несколько вариантов реализации данной задачи. 0

@slayer 45 / 45 / 7 Регистрация: 28.05.2009 Сообщений: 87
	03.03.2010, 11:02
	получи даты с таблицы, найди ближайшую к текущей потом select день рождения с той где эта дата.. текущая дата с помощью now количество дней между датами с помощью DaysBetween(now, дата из таблицы) где кол-во дней меньше там и ближайший день рождения 0

@НикоН 23 / 22 / 3 Регистрация: 21.01.2010 Сообщений: 95
	04.03.2010, 10:47
	alexey.exe, пробуй так: Select Min(DTR) From Table Where DTR>vDate; Здесь: Table - Имя твоей таблицы DTR - Колонка с датами vDate - Дата в формате #mm/dd/yyyy# 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	04.03.2010, 10:50
	используйте параметры, тогда сам компонент подстроит данные под требования СУБД 1

@НикоН 23 / 22 / 3 Регистрация: 21.01.2010 Сообщений: 95
	04.03.2010, 11:01
	Lord_Voodoo, еще раз спасибо, не знал про такую фишку Просвети чуток Если в свойство ADOQuery.SQL.Text записать запрос Select FIO From Table Where FIO=:vFIO; он тоже будет работать? 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	04.03.2010, 13:01
	НикоН, не работает только с BLOB и иже с ними, все остальное работает отлично... alexey.exe, учите агрегатные функции sql - жить будет проще... 1

@НикоН 23 / 22 / 3 Регистрация: 21.01.2010 Сообщений: 95
	04.03.2010, 14:02
	alexey.exe, логично. Может попробовать привести даты рождения в запросе к текущему году? 0