Дублирующиеся строки в DBGrid

[Talemir]

Сообщение от Talemir

Я у же испробовал ни чего, все та же ошибка!!!
Когда я убираю все эти функции Запрос работает в старом режиме, выбирает с повторяющиеся строками

С Вашего позволения я прикреплю БД может так будет яснее

[Talemir]

Сообщение от Talemir

С Вашего позволения я прикреплю БД может так будет яснее

Седесь тот промежуток программы

[Talemir]

Сообщение от Talemir

Седесь тот промежуток программы

Первая часть архива БД

[Talemir]

Сообщение от Talemir

Первая часть архива БД

2-я часть архива БД ACcess

[Talemir]

Не много мучение и результат. Получилась выборка которая отображает в DBGrid 2-е и более записи ПРИМЕР ЗАПРОСА:
DM.ADOQuery2.Close;
DM.ADOQuery2.SQL.Clear;
DM.ADOQuery2.SQL.Add('SELECT ol.Number, ol.Name, ');
DM.ADOQuery2.SQL.Add('ol.Address, et.Name, et.Name,');
DM.ADOQuery2.SQL.Add('el.Info, pr.Status FROM');
DM.ADOQuery2.SQL.Add('EvList el, EvType et, ObjList ol, Person pr WHERE');
DM.ADOQuery2.SQL.Add(' el.EvId=et.ID AND el.ObjId=ol.ID AND');
DM.ADOQuery2.SQL.Add('el.OperatorID =pr.ID AND et.ID=2621 group by ol.Number,');
DM.ADOQuery2.SQL.Add('ol.Name, ol.Address, et.Name, el.Info, pr.Status HAVING COUNT(*)>1');
DM.ADOQuery2.Open;

[Talemir]

Возможно ли в этом же DBGrid создать столбец который будет напротив каждой записи указывать колличество повторений

[soleil@mmc]

все так же это будет оно

COUNT(*)

[Talemir]

Сообщение от soleil@mmc

все так же это будет оно

COUNT(*)

Да оно, но есть НО COUNT(*) AS Cnt. Когда прописал AS и начался просчет повторяющихся строк.

[Talemir]

Сообщение от Talemir

Да оно, но есть НО COUNT(*) AS Cnt. Когда прописал AS и начался просчет повторяющихся строк.

Вот мой полный код:
DM.ADOQuery2.Close;
DM.ADOQuery2.SQL.Clear;
DM.ADOQuery2.SQL.Add('SELECT ol.Number, ol.Name, ');
DM.ADOQuery2.SQL.Add('ol.Address, et.Name, Count(*) AS Cnt FROM');
DM.ADOQuery2.SQL.Add('EvList el, EvType et, ObjList ol, Person pr WHERE');
DM.ADOQuery2.SQL.Add(' 0=0 AND el.EvId=et.ID AND el.ObjId=ol.ID AND');
DM.ADOQuery2.SQL.Add('el.OperatorID =pr.ID AND et.ID=2621 group by ol.Number,');
DM.ADOQuery2.SQL.Add('ol.Name, ol.Address, et.Name HAVING Count(*)>1');
DM.ADOQuery2.Open;
ADOQuery1.Close;