Форум программистов, компьютерный форум, киберфорум
Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.72/18: Рейтинг темы: голосов - 18, средняя оценка - 4.72
0 / 0 / 1
Регистрация: 03.12.2012
Сообщений: 9

Сортировка в БД Delphi по датам

03.12.2012, 11:32. Показов 3528. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Всем привет! Люди добрые очень нужна ваша помощь. Есть база данных в которую я заношу данные через Delphi. (рис.1) При нажатии на кнопку «Статистика» появляется модальное окно(рис.2) и в нём у меня показана статистика по каждому заказчику, кто сколько раз заказывал картридж, но проблема в том что он мне показывает данные за всё время. Подскажите пожалуйста как можно сделать чтоб при выборе например диапазон С 12.10.12 ПО 30.11.12 и нажатии на кнопку ОК , он мне выводил статистику строго за этот период.
Миниатюры
Сортировка в БД Delphi по датам   Сортировка в БД Delphi по датам   Сортировка в БД Delphi по датам  

Сортировка в БД Delphi по датам  
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
03.12.2012, 11:32
Ответы с готовыми решениями:

Сортировка по датам
Всем привет! Нужно сделать сортировку по датам. Как это можно сделать? Вывод на странице: <div...

сортировка по датам
Добрый день! Подскажите пожалуйста как правильно отсортировать список "работников". Колонок много (не в этом суть) есть 2 поля с...

Сортировка структуры по датам
в радиоателье храняться квитанции о сданных в ремонт телевизорах. каждая квитанция содержит следующую информацию: марка телевизора, дата...

3
105 / 104 / 29
Регистрация: 15.01.2011
Сообщений: 515
03.12.2012, 15:57
Попробуйте в запросе после FROM my_table добавить строку
SQL
1
WHERE DATE >= '12.10.12' AND DATE <= '30.11.12'
Ну, в коде даты, естественно, нужно будет подставлять, как переменные.
Кстати, а DATE,случаем, не зарезервированное слово? Я бы это поле переименовал от греха подальше. Например, order_date
1
0 / 0 / 1
Регистрация: 03.12.2012
Сообщений: 9
03.12.2012, 17:05  [ТС]
Цитата Сообщение от WoodHead Посмотреть сообщение
Попробуйте в запросе после FROM my_table добавить строку
SQL
1
WHERE DATE >= '12.10.12' AND DATE <= '30.11.12'
Ну, в коде даты, естественно, нужно будет подставлять, как переменные.
Кстати, а DATE,случаем, не зарезервированное слово? Я бы это поле переименовал от греха подальше. Например, order_date
решил проблему так

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
ADOQuery1.Active:=False;
DBGrid1.Visible:=True;
ADOQuery1.SQL.Clear;
ADOQuery1.Close;
ADOQuery1.SQL.Add('SELECT Zakazchik,model,  count(model) as ACount');
ADOQuery1.SQL.Add('FROM roo_kaliningrad');
ADOQuery1.SQL.Add('WHERE (date >:SDate) AND (date<:FDate)');
ADOQuery1.SQL.Add('group by Zakazchik, model');
ADOQuery1.SQL.Add('order by count(model) desc');
 ADOQuery1.Parameters.ParamByName('SDate').DataType:= ftDateTime;
ADOQuery1.Parameters.ParamByName('FDate').DataType:= ftDateTime;
ADOQuery1.Parameters.ParamValues['SDate']:= DateTimePicker1.Date;
ADOQuery1.Parameters.ParamValues['FDate']:= DateTimePicker2.Date;
ADOQuery1.Open;
0
105 / 104 / 29
Регистрация: 15.01.2011
Сообщений: 515
03.12.2012, 17:23
У меня тут несколько вопросов по коду.
Цитата Сообщение от triamera977 Посмотреть сообщение
Delphi
1
ADOQuery1.Active:=False;
Думаю, это лишнее. Ведь вы пользуетесь "ADOQuery1.Open;", значит в начале достаточно "ADOQuery1.Close;". Разве нет?
Цитата Сообщение от triamera977 Посмотреть сообщение
Delphi
1
ADOQuery1.SQL.Add('WHERE (date >:SDate) AND (date<:FDate)');
А почему не используете знак >= и <=? Ведь в вашем случае даты не будут включаться в отчет. А по заданию, насколько я понял, нужно С *дата*... ПО *дата* включительно.

Цитата Сообщение от triamera977 Посмотреть сообщение
Delphi
1
2
3
4
ADOQuery1.Parameters.ParamByName('SDate').DataType:= ftDateTime;
ADOQuery1.Parameters.ParamByName('FDate').DataType:= ftDateTime;
ADOQuery1.Parameters.ParamValues['SDate']:= DateTimePicker1.Date;
ADOQuery1.Parameters.ParamValues['FDate']:= DateTimePicker2.Date;
Вот здесь не понял, что вы делаете. Разве не достаточно только двух строк?
Delphi
1
2
ADOQuery1.Parameters.ParamByName('SDate').Value:= DateTimePicker1.Date;
ADOQuery1.Parameters.ParamByName('FDate').Value:= DateTimePicker2.Date;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
03.12.2012, 17:23
Помогаю со студенческими работами здесь

Сортировка данных по датам
Доброго времени суток. Уважаемые помогите. читал Ваши советы народу и написал запрос к базе Access результатом должна быть сортировка...

Сортировка строк в memo по датам
возникла проблемка, необходимо отсортировать строки в memo такого типа 23.12.2014;ручка;паркер, 12.6.1995;карандаш;паркер....только по...

Запрос на отбор по датам Delphi+Accses
Добрый вечер. Возникла проблема отбора данных по датам. Нужно отобрать с 1 даты по 2 дату. Обе даты выбираются в DateTimePicker. Есть...

Сортировка и суммирование данных списка по датам
Привет народ! Есть таблица с данными. В ней фиксируются продажи(сумма и дата продажи) Есть форма со списком в которой отображены все...

Форум: сортировка тем по датам последних сообщений
Здравствуйте. Прошу прощения за ламерский вопрос, но знания mysql не дальше базовых, и я даже не могу понять в каких разделах мануалов...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США.
Programma_Boinc 26.12.2025
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Нашел на реддите интересную статью под названием «Кто-нибудь знает, где получить бесплатный компьютер или. . .
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка.
Programma_Boinc 23.12.2025
Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru