Поиск:

Ответ в темуСоздание новой темы Создание опроса
> как отловить кто дату когда у человека день рожден, Paradox,BDE 
:(
    Опции темы
Berliner
Дата 20.8.2005, 14:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 803
Регистрация: 18.5.2005

Репутация: нет
Всего: 2



Извините если я задолбал. Мне сильно надо закончить эту программу smile
PM   Вверх
Berliner
Дата 20.8.2005, 15:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 803
Регистрация: 18.5.2005

Репутация: нет
Всего: 2



пытаюсь....
Вот так не работает smile
Код

SELECT * from "people.db"  
WHERE День_Рождения Str(Dat) Like 'Edit1.Text'%

PM   Вверх
offline
Дата 20.8.2005, 21:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 474
Регистрация: 7.2.2005

Репутация: 7
Всего: 7



очень просто есть ракая функция как DecodeDate(Date,Year,Month,Day) разбивает дату Date на год - Year, месяц - Month и день - Day
вот и все
DecodeDate(StrToDate(Edit1.Text),Year1,Month1,Day1);
DecodeDate(StrToDate(Edit2.Text),Year2,Month2,Day2);

Это сообщение отредактировал(а) kirilllius - 21.8.2005, 13:24
PM MAIL   Вверх
Berliner
Дата 20.8.2005, 22:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 803
Регистрация: 18.5.2005

Репутация: нет
Всего: 2



Спасибо только прежде всего у меня SQL запрос не работает

Код

SELECT * from "people.db"  
WHERE День_Рождения Str(Dat) Like 'Edit1.Text'%


Если что то не правильно

как надо?
PM   Вверх
offline
Дата 20.8.2005, 23:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 474
Регистрация: 7.2.2005

Репутация: 7
Всего: 7



тач что, в Парадоксе есть Str()?
PM MAIL   Вверх
Berliner
Дата 20.8.2005, 23:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 803
Регистрация: 18.5.2005

Репутация: нет
Всего: 2



Напиши подробнее как надо и что я неправильно делаю
PM   Вверх
offline
Дата 20.8.2005, 23:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 474
Регистрация: 7.2.2005

Репутация: 7
Всего: 7



ну есле там есть Str()

то попробуй так

Код

SELECT * FROM Таблица1
WHERE (((Str([Поле с датой])) Like "*.12.*"))



Код

ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM Таблица1');
ADOQuery1.SQL.Add('WHERE (((Str([Поле с датой])) = '+ QuotedStr(Edit1.Text) +'))');
ADOQuery1.Open;


Это сообщение отредактировал(а) kirilllius - 20.8.2005, 23:30
PM MAIL   Вверх
Berliner
Дата 20.8.2005, 23:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 803
Регистрация: 18.5.2005

Репутация: нет
Всего: 2



Вот кто0нить логику полностью раскрыл и написал что я неправильно делаю

И как надо плиз а если можно то вместе с кодом и пояснити пожалуста что куда ставить пожалуста
PM   Вверх
offline
Дата 20.8.2005, 23:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 474
Регистрация: 7.2.2005

Репутация: 7
Всего: 7



Дай базу на мыло

Это сообщение отредактировал(а) kirilllius - 20.8.2005, 23:23
PM MAIL   Вверх
Berliner
Дата 21.8.2005, 00:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 803
Регистрация: 18.5.2005

Репутация: нет
Всего: 2



спаиб мыло напиши а ио форумойскими примочками я плохо пользуюсь я тебе со своего мэйла вышлю
PM   Вверх
offline
Дата 21.8.2005, 12:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 474
Регистрация: 7.2.2005

Репутация: 7
Всего: 7



Код

Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('SELECT * from people.db');
Query1.SQL.Add('WHERE Дата_рождения = "' + Edit1.Text + '"');
Query1.Open;

PM MAIL   Вверх
Guest
Дата 21.8.2005, 12:34 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











мне надо в текстовое поле чтобы ввести период с и по

а в этом запросе без ПЕРИОДА надо два текстовых попя( с и по)
  Вверх
Guest
Дата 21.8.2005, 12:35 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











тут типа between нужен
  Вверх
Berliner
Дата 21.8.2005, 12:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 803
Регистрация: 18.5.2005

Репутация: нет
Всего: 2



два предыдущих поста были мои
PM   Вверх
offline
Дата 21.8.2005, 13:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 474
Регистрация: 7.2.2005

Репутация: 7
Всего: 7



через две минуты все будет smile

Добавлено @ 13:28
Из справки Paradox
Цитата

Local SQL supports the EXTRACT() function for isolating a single numeric field from a date/time field on retrieval using the following syntax:

EXTRACT (extract_field FROM field_name)

For example, the following statement extracts the year value from a DATE field:

SELECT EXTRACT(YEAR FROM HIRE_DATE)
FROM EMPLOYEE

You can also extract MONTH, DAY, HOUR, MINUTE, and SECOND using this function.

Note: EXTRACT does not support the TIMEZONE_HOUR or TIMEZONE_MINUTE clauses.



Код

procedure TForm1.Button1Click(Sender: TObject);
var
 Year1,Month1,Day1,Year2,Month2,Day2 : Word;
begin
DecodeDate(StrToDate(Edit1.Text),Year1,Month1,Day1);
DecodeDate(StrToDate(Edit2.Text),Year2,Month2,Day2);
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('SELECT * from people.db');
Query1.SQL.Add('WHERE (EXTRACT(DAY FROM Дата_рождения) BETWEEN ' + IntToStr(Day1) +  ' AND ' + IntToStr(Day2) +')');
Query1.SQL.Add('and (EXTRACT(MONTH FROM Дата_рождения) BETWEEN ' + IntToStr(Month1) +  ' AND ' + IntToStr(Month2) +')');
Query1.Open;
end;


Это опробованно на твоей базе 100% гарантия smile

Это сообщение отредактировал(а) kirilllius - 22.8.2005, 10:44
PM MAIL   Вверх
Страницы: (3) Все 1 [2] 3 
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Базы данных и репортинг"
Vit
Петрович

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


Обязательно указание:

1. Базы данных (Paradox, Oracle и т.п.)

2. Способа доступа (ADO, BDE и т.д.)


  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • Вопросы по SQL и вопросы по базам данных не связанные с Дельфи задавать здесь

FAQ раздела лежит здесь!


Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Vit, Петрович.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Базы данных и репортинг | Следующая тема »


 




[ Время генерации скрипта: 0.0912 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.