Подсчет проданных мест за определенную выборку дат (SQL запрос)

@OLEHb · Регистрация: 15.06.2019

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

Доброе утро, день и вечер, многоуважаемые форумчане.
Делаю курсовой и встал очень серьезный вопрос, который никто не может решить, нужна ваша помощь.
Есть задание: Определить количество проданных мест за месяц (выборку дат). Есть Edit1 и Edit2 и в первый я ввожу начало сортировки даты, а во второй, соответственно, конец. Например начало 06/12/2019 и конец 06/15/2019 (мой делфи принимает дату в mm/dd/yyyy, но не суть). И мне нужно чтобы в промежуток этих дат высчитало сколько было продано мест или если нельзя сделать через промежуток или это тяжело, то уже хотя бы за целый месяц, тоже будет очень и очень гуд.
Попереспрашивал уже всех, обыскал все что мог, не могу додуматься как это сделать. Выручайте.
Вот моя таблица. (Таблица Access подключенная через DBGrid с помощью ADOQuery).

Кликните здесь для просмотра всего текста

Подсчет проданных мест за определенную выборку дат (SQL запрос)

@Пытливый · 15.06.2019, 16:51

Не зная точно наименования вашей таблицы и полей в ней получается примерно так:

Delphi
1
2
3
4
AdoQuery1.SQL.Text := 'select summ([Кол-во проданных мест]) from Вылеты where Вылет between :BDate and :EDate';
AdoQuery1.Parameters.ParamValue['BDate'] := StrToDate(Edit1.Text);
AdoQuery1.Parameters.ParamValue['EDate'] := StrToDate(Edit2.Text);
AdoQuery1.Open;

@OLEHb · 15.06.2019, 17:05 **[ТС]**

А что такое BDate и EDate?
Наименование таблицы - tabl
И можно ли сделать как то вывод в Label или Edit?

@OLEHb · 15.06.2019, 20:13 **[ТС]**

Сообщение от Пытливый

Не зная точно наименования вашей таблицы и полей в ней получается примерно так:

Delphi
1
2
3
4
AdoQuery1.SQL.Text := 'select summ([Кол-во проданных мест]) from Вылеты where Вылет between :BDate and :EDate';
AdoQuery1.Parameters.ParamValue['BDate'] := StrToDate(Edit1.Text);
AdoQuery1.Parameters.ParamValue['EDate'] := StrToDate(Edit2.Text);
AdoQuery1.Open;

Ругается так

@OLEHb · 15.06.2019, 20:45 **[ТС]**

Вообщем я разобрался в коде, подправил его

Delphi
1
2
3
4
5
AdoQuery2.SQL.Text := 'SELECT sum ([Кол-во проданных мест]) from tabl where Вылет between :BDate and :EDate';
AdoQuery2.Parameters.ParamValues['BDate'] := StrToDate(Edit1.Text);
AdoQuery2.Parameters.ParamValues['EDate'] := StrToDate(Edit4.Text);
AdoQuery2.Open;
Label4.Caption:=ADOQuery2.Fields[0].asString;

Но теперь проблема такая, что не происходит ровным счетом ничего. Ни ошибки, ни изменений в таблице (DBGrid), ни вывода числа в Label. Ничего.

@Пытливый · 15.06.2019, 21:48

Если DBGrid не завязан на AdoQuery2, то там ничего и не будет изменятся. Ну а что-бы красиво проверить, работает или нет запрос, сделать можно так:

Delphi
1
2
3
4
5
6
7
AdoQuery2.SQL.Text := 'SELECT sum([Кол-во проданных мест]) as Sum1 from tabl where Вылет between :BDate and :EDate';
AdoQuery2.Parameters.ParamValues['BDate'] := StrToDate(Edit1.Text);
AdoQuery2.Parameters.ParamValues['EDate'] := StrToDate(Edit4.Text);
AdoQuery2.Open;
if AdoQuery2.IsEmpty 
then Label4.Caption:='Ничего не продано'
else Label4.Caption:=ADOQuery2['Sum1'];

Ну и наконец остается узкое место - даты в Акцесе. Если формат даты в Акцесе и в параметрах не совпадают, то результат не вернется. Кроме того, надо иметь ввиду еще один нюанс с датам в Акцесе. Дата в Акцесе всегда содержит время, поэтому если вы передаете дату как 01.01.2019, то Акцесс ее воспримет как 01.01.2019 00:00:01 и следовательно период за сутки должен быть передан либо с учетом времени 01.01.2019 00:00:01 - 01.01.2019 23:59:59, либо 01.01.2019-02.01.2019

@OLEHb · 15.06.2019, 22:44 **[ТС]**

Сообщение от Пытливый

Если DBGrid не завязан на AdoQuery2, то там ничего и не будет изменятся. Ну а что-бы красиво проверить, работает или нет запрос, сделать можно так:

Delphi
1
2
3
4
5
6
7
AdoQuery2.SQL.Text := 'SELECT sum([Кол-во проданных мест]) as Sum1 from tabl where Вылет between :BDate and :EDate';
AdoQuery2.Parameters.ParamValues['BDate'] := StrToDate(Edit1.Text);
AdoQuery2.Parameters.ParamValues['EDate'] := StrToDate(Edit4.Text);
AdoQuery2.Open;
if AdoQuery2.IsEmpty 
then Label4.Caption:='Ничего не продано'
else Label4.Caption:=ADOQuery2['Sum1'];

Ну и наконец остается узкое место - даты в Акцесе. Если формат даты в Акцесе и в параметрах не совпадают, то результат не вернется. Кроме того, надо иметь ввиду еще один нюанс с датам в Акцесе. Дата в Акцесе всегда содержит время, поэтому если вы передаете дату как 01.01.2019, то Акцесс ее воспримет как 01.01.2019 00:00:01 и следовательно период за сутки должен быть передан либо с учетом времени 01.01.2019 00:00:01 - 01.01.2019 23:59:59, либо 01.01.2019-02.01.2019

Я дико извиняюсь, я только сейчас заметил, что у меня лейбл 14, а не 4, тот первый код заработал))
Но попробовал второй, он тоже заработал, но специально вбил даты которых нет, чтобы получить Caption "Ничего не продано" но выдает ошибку

Скандербег · 16.06.2019, 00:18

Лучше набор данных проверять на пустоту так:

Delphi
1
2
3
4
  if AdoQuery2.EOF then 
    Label14.Caption:='Ничего не продано'
  else 
    Label14.Caption:=ADOQuery2['Sum1'];

@Пытливый · 16.06.2019, 03:44

Анекдот мне тут вспомнился.

Не по теме:

Грузины луче чем Армяне!
Чем?
Чем Армяне.

Скандербег · 16.06.2019, 07:22

Сообщение от Пытливый

Анекдот мне тут вспомнился.

Действительно, что в лоб, что по лбу.

Функция sum всегда принесет строку. Другое дело, какую.
Отсюда, "исправленному верить":

Delphi
1
2
3
  if ADOQuery2['Sum1'] = NULL
  then lbl1.Caption:='Ничего не продано'
  else lbl1.Caption:=ADOQuery2['Sum1'];

@Пытливый · 16.06.2019, 10:14

А ведь действительно, агрегаты что-то обязаны вернуть. Тормознул.

@OLEHb · 17.06.2019, 02:27 **[ТС]**

Огромнейшее спасибо Вам!!!

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@OLEHb 0 / 0 / 0 Регистрация: 15.06.2019 Сообщений: 6

	Delphi 6-7 Подсчет проданных мест за определенную выборку дат (SQL запрос) 15.06.2019, 16:12. Показов 2419. Ответов 11 Метки access, delphi 7, sql (Все метки) Доброе утро, день и вечер, многоуважаемые форумчане. Делаю курсовой и встал очень серьезный вопрос, который никто не может решить, нужна ваша помощь. Есть задание: Определить количество проданных мест за месяц (выборку дат). Есть Edit1 и Edit2 и в первый я ввожу начало сортировки даты, а во второй, соответственно, конец. Например начало 06/12/2019 и конец 06/15/2019 (мой делфи принимает дату в mm/dd/yyyy, но не суть). И мне нужно чтобы в промежуток этих дат высчитало сколько было продано мест или если нельзя сделать через промежуток или это тяжело, то уже хотя бы за целый месяц, тоже будет очень и очень гуд. Попереспрашивал уже всех, обыскал все что мог, не могу додуматься как это сделать. Выручайте. Вот моя таблица. (Таблица Access подключенная через DBGrid с помощью ADOQuery). Кликните здесь для просмотра всего текста 0

@OLEHb 0 / 0 / 0 Регистрация: 15.06.2019 Сообщений: 6
	15.06.2019, 17:05 [ТС]
	А что такое BDate и EDate? Наименование таблицы - tabl И можно ли сделать как то вывод в Label или Edit? 0

@Пытливый 3763 / 2267 / 705 Регистрация: 29.05.2013 Сообщений: 9,622
	16.06.2019, 03:44
	Анекдот мне тут вспомнился. Не по теме: Грузины луче чем Армяне! Чем? Чем Армяне. 0

@Пытливый 3763 / 2267 / 705 Регистрация: 29.05.2013 Сообщений: 9,622
	16.06.2019, 10:14
	А ведь действительно, агрегаты что-то обязаны вернуть. Тормознул. 0

@OLEHb 0 / 0 / 0 Регистрация: 15.06.2019 Сообщений: 6
	17.06.2019, 02:27 [ТС]
	Огромнейшее спасибо Вам!!! 0

Подсчет проданных мест за определенную выборку дат (SQL запрос)

Решение