Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.08.2010, 13:25   #1
nervniy
Пользователь
 
Регистрация: 13.05.2009
Сообщений: 52
Лампочка ms access и delphi7

есть база данных в access в ней таблица "Клиенты" (ФИО,Дата рождения и т.д),на форме два edit'a "День рождения сегодня" и "День рождения завтра"...как можно сделать чтобы при открытии формы осуществлялся поиск по базе и вывод в edit Фамилии у кого день рождения сегодня или завтра??
nervniy вне форума Ответить с цитированием
Старый 10.08.2010, 13:28   #2
DIgorevich
Погулять вышел
Участник клуба
 
Аватар для DIgorevich
 
Регистрация: 17.05.2010
Сообщений: 1,573
По умолчанию

проходишь циклом по всем значениям поля ДР и сравниваешь с текущей датой, либо с текущей датой + 1 день. Если есть совпадения - выводишь в эдиты.

только без нервов
Никогда не знаешь, где тебе повезет... (Фрай)
DIgorevich вне форума Ответить с цитированием
Старый 10.08.2010, 13:29   #3
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Кидаешь на форму ADOQuery. Настраиваешь его свойство ConnectionString
И в свойстве SQL пишешь что-то вроде
Код:
 select ФИО from [Клиенты] where [Дата рождения]=now();
после чего
Код:
with ADOQuery do begin
 open;
 Edit1.Text:=Fields[0].AsString;
 close;
end;
Получишь именинника.
Цитата:
проходишь циклом по всем значениям поля
А если в БД миллиардов сто записей? Представляешь сколько придется ожидать? Лучше СУБД напрячь.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 11.08.2010, 15:06   #4
Sm1Le
Форумчанин
 
Аватар для Sm1Le
 
Регистрация: 31.10.2008
Сообщений: 500
По умолчанию

А если у тебя несколько клиентов с днем рождения сегодня, то что ? - будет Строка сост. из Нескольких фамилий ? Не логичней ли использовать некий ЛистБокс ... и что-то подобное ...
Skype : UASm1Le.
Sm1Le вне форума Ответить с цитированием
Старый 11.08.2010, 16:06   #5
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

Sm1Le +1


_________________________

Цитата:
Код:
select ФИО from [Клиенты] where [Дата рождения]=now();
Ну, Виталий, это не серьёзно. Если это было бы так, тогда у каждого человека в жизни был только ОДИН день рождения ) (Хотя, он реально один, но мы то Днём Рождения называем этот день КАЖДОГО года:
Нужно что-то вроде:
Код:
select ФИО from [Клиенты] 
  where DAY([Дата рождения])=DAY(now())
              AND MONTH([Дата рождения])=MONTH(now());
Serge_Bliznykov вне форума Ответить с цитированием
Старый 12.08.2010, 14:47   #6
nervniy
Пользователь
 
Регистрация: 13.05.2009
Сообщений: 52
По умолчанию

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
Код:
select ФИО from [Клиенты] 
  where DAY([Дата рождения])=DAY(now())
              AND MONTH([Дата рождения])=MONTH(now());
Спасибо большое!все работает
nervniy вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
связь главной и двух подчинённых таблиц access в delphi7 kelod БД в Delphi 9 11.07.2010 12:45
Как присоединить БД Access 2003 к Delphi7? lehius89 Общие вопросы Delphi 2 23.11.2009 22:28
Есть БД на Access 2.0, нужно открыть в Access 2003 Spirit_33 Microsoft Office Access 1 23.07.2009 07:59
Access 97, открыть базу данных Access alexhol Microsoft Office Access 0 27.04.2009 12:10
Delphy и Access.вводя инфу во вторичный файл Access, она отражалась в первом ADOTable Lev БД в Delphi 0 11.11.2007 12:14