Подсчет количества фильмов по жанрам

@Vaaleraa · Регистрация: 01.05.2011

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

Доброго времени суток.
Есть небольшой вопрос, его суть такова: существует БД видеопроката, в базу вносятся фильмы, которые имеются. Хочу посчитать кол-во фильмов в каждом жанре. Написал код

Delphi

for i:=1 to ADOTable1.RecordCount do
  begin
  if ADOTable1.Locate('Æàíð','Áîåâèê',[]) = true then
  Inc(a);
  if ADOTable1.Locate('Æàíð','Ôàíòàñòèêà',[]) = true then
  Inc(b);
  if ADOTable1.Locate('Æàíð','Äðàìà',[]) = true then
  Inc(c);
  if ADOTable1.Locate('Æàíð','Èñòîðè÷åñêèé',[]) = true then
  Inc(d);
  if ADOTable1.Locate('Æàíð','Êîìåäèÿ',[]) = true then
  Inc(e);
  if ADOTable1.Locate('Æàíð','Ìåëîäðàìà',[]) = true then
  Inc(f);
  if ADOTable1.Locate('Æàíð','Óæàñû',[]) = true then
  Inc(g);
  if ADOTable1.Locate('Æàíð','Äåòåêòèâ',[]) = true then
  Inc(h);
   end;

Но вот в чем беда: если у меня, например, один фильм жанра "Боевик" и один фильм жанра "Комедия", в конечном итоге программа выдает мне, что боевиков - 2 и комедий 2, т.е. кол-во записей в БД.
Помогите разобраться, пожалуйста.

@Fedor82 · 07.09.2012, 07:59

Надо както так:

Delphi

 ADOTable1.First;
while not dm.ADOTable1.Eof do
       begin
  if ADOTable1.fieldByName('Жанр').Value='Боевик' then
  Inc(a);
ADOTable1.Next;
end;

@zremas · 07.09.2012, 09:15

Надо использовать средства самого движка базы.
Я не знаю, какая у тебя база, но вот, например, если таблица примерно такая:
Id|Title|Genre
На движке проверяешь как сработает такой скрипт:

T-SQL

1
2
3

select Genre, count(Genre) as MyCounter
from MyTable
group by Genre

потом в datamodule или на форму бросаешь ADOQuery и в его SQL строке прописываешь этот скрипт.
И будет тебе щассе - готовый датасет со статистикой!

@Vaaleraa · 07.09.2012, 19:31 **[ТС]**

всем спасибо!

@Vaaleraa 4 / 4 / 2 Регистрация: 01.05.2011 Сообщений: 98
	07.09.2012, 19:31 [ТС]	4
	всем спасибо! 0

Опции темы