VPF::Помогите составить запрос - Форум программистов

ALEXPLUS

Дата 8.7.2005, 20:12 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 21
Регистрация: 8.7.2005
Где: Солнечный Узбекис тан

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

Доброе время суток всем!
Помогите пожалуйста составить запрос. Есть база данных, в которой дата содержится в трёх полях - Day, Month, Year. Как сделать написать запрос так, чтобы он выбирал записи только в заданном диапазоне даты?

Alex

Дата 8.7.2005, 21:01 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

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

А в типе Date не проще хранить? Тогда было бы что-то на подобии

Код


where k.datezakl BETWEEN :speriod and :fperiod

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

ALEXPLUS

Дата 8.7.2005, 22:29 (ссылка)

(нет голосов)

Загрузка ...

Я бы с огромным удовольствием переделал это в тип Date, но, к сожалению, нельзя smile

Alex

Дата 8.7.2005, 22:45 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

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

Ну тогда, делай вот так:

Код


WHERE ((p.god*1000) + (p.mes*100) + p.day) BETWEEN ((:ngod_param*1000) + (:nmes_param*100) + :nday_param) and ((:fgod_param*1000) + (:fmes_param*100) + :nday_param)

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

ALEXPLUS

Дата 8.7.2005, 23:28 (ссылка)

(нет голосов)

Загрузка ...

Извини, но я не понял. Прокомментируй пожалуйста свой код. Почему ты умножаешь на 1000, 100?

offline

Дата 9.7.2005, 00:00 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

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

Для сбора даты в одно пле в запросе используй просто DateSerial(Year;Month;Day), а затем сравнивай эту дату, т.е. установи критерий отбора, вот и все дела

Alex

Дата 9.7.2005, 00:02 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

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

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

Я не притендую на то, что этот метод самый красивый и правильный, но в одном проекте такая схема работает уже второй год и пока сбоев не давала
Добавлено @ 00:05
Ой, немного ошибся, нужно вот так

Код


WHERE ((p.god*10000) + (p.mes*100) + p.day) BETWEEN ((:ngod_param*10000) + (:nmes_param*100) + :nday_param) and ((:fgod_param*10000) + (:fmes_param*100) + :nday_param)

Добавлено @ 00:07
kirilllius, и где кроме Access вы видели DateSerial?

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

offline

Дата 9.7.2005, 00:25 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

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

Да, я делал как-то что-то похожее с базай Access но правда через DateValue(Day+'/'+Month+'/'+Year) и все работало отлично

ALEXPLUS

Дата 9.7.2005, 20:02 (ссылка)

(нет голосов)

Загрузка ...

Код


SELECT * FROM DbData WHERE (IDR='5') AND (DateValue('DayP/MonthP/YearP') BETWEEN '05/07/2005' AND '09/07/2005')

Скажите, где тут ошибка?? smile

Говорит, что "Несоответствие типов данных в выражении условия отбора".
Все поля в БД текстового типа. Сама база была сделана через Access

offline

Дата 9.7.2005, 20:16 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

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

DateValue('DayP/MonthP/YearP')
Может так DateValue(DayP+'/'+MonthP+'/'+YearP)

ALEXPLUS

Дата 9.7.2005, 20:22 (ссылка)

(нет голосов)

Загрузка ...

DateValue(DayP+'/'+MonthP+'/'+YearP)
не получается. smile

Delphi в таком случае DayP, MonthP, YearP понимает как переменные и, соответственно говорит "нету таких переменных". DayP, MonthP, YearP - поля в моей базе, где соответственно хранятся день, месяц и год

Это сообщение отредактировал(а) ALEXPLUS - 9.7.2005, 20:23

offline

Дата 9.7.2005, 20:29 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

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

Сейчас создал базу, подключил к Delphi и выполнил запрос

Код


SELECT * FROM Таблица1
WHERE (IDR='5') AND (DateValue(DayP+'/'+MonthP+'/'+YearP) Between '05/07/2005' And '09/07/2005')

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

ALEXPLUS

Дата 9.7.2005, 20:50 (ссылка)

(нет голосов)

Загрузка ...

НЕ ПОЛУЧАЕТСЯ.
Я делаю так
TADOQuery связываю с TADOConnection
Драйвер - Microsoft.Jet.OLEDB.4.0

Код


Query.SQL.Clear;
sql:='SELECT * FROM DbData WHERE (IDR='+k+IntToStr(i)+k+') 
AND (DateValue('+k+'DayP/MonthP/YearP'+k+')
BETWEEN '+k+DateToString(DateTimePicker1.Date)+k+' AND '+k+DateToString(DateTimePicker2.Date)+k+')';
Query.SQL.Add(sql);
Query.Open;

переменная k - типа string и равна символу одинарная кавычка. Просто так удобней
переменная sql - текстовая

offline

Дата 9.7.2005, 21:46 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

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

Может это наведет тебя на мысль

Код


ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM DbData');
ADOQuery1.SQL.Add('WHERE (IDR='+QuotedStr(IntToStr(i))+')');
ADOQuery1.SQL.Add('AND (DateValue(DayP +''/''+ MonthP+''/''+YearP)' );
ADOQuery1.SQL.Add('BETWEEN '+ QuotedStr(DateToStr(DateTimePicker2.Date)));
ADOQuery1.SQL.Add('AND '+ QuotedStr(DateToStr(DateTimePicker2.Date))+')');
ADOQuery1.Open;

ALEXPLUS

Дата 9.7.2005, 22:12 (ссылка)

(нет голосов)

Загрузка ...

полоностью скопировал твой запрос, но результат тот же - несоответствие типов.
Я разобрался немного с DateValue. Этой функции без разницы как я напишу дату. Она понимает и 09/07/2005,
и 09.07.2005, и 09-07-2005. Вся проблема состоит в том, чтобы представить в качестве параметра этой функции три текстовых поля из БД.
Если тебе несложно, пришли мне на почту свою базу данных и дельфийский проект. Если будешь посылать, то шли на alexplyus [собака] mail.ru

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