Count. Firebird

[artemavd]

Ээм..как то так:

  Form11.pFIBQuery2.SQL.Clear;
  Form11.pFIBQuery2.SQL.Text:='SELECT FAMILIY,COUNT(FAMILIY) AS cnt_count FROM SPISOK GROUP BY FAMILIY';
  Form11.pFIBQuery2.ExecQuery;

  with Form11.SG12 do
  begin
    Form11.SG12.Cells[1,1]:=Form11.pFIBQuery2.FieldByName('cnt_count').AsString;
  end;

Но почему в результате выводится 1??? Это что, так и должно быть? Я просто логику результата не могу понять. Я специально сейчас сделал в БД две одинаковые фамилии. А результат показывается как 1. Или под результатом 1 понимается следущее: в БД 1 раз встречается одинаковые фамилии. Так что ли?

[Stilet]

Так что ли?

Нет не так.
Ты
1. уверен что ExecQuery открывает набор а не просто выполняет его? Может нужно метод Open применить7

2. Этот запрос вернет тебе несколько строк, так что цикла я у тя не вижу. Посмотри мой пример - там в цикле я прохожу по записям набора.

[artemavd]

Виталий, в Вашем коде:

with StringGrid do begin
 RowCount:=pFIBQuery1.RecordCount+1;
 for i:=1 to pFIBQuery1.RecordCount-1 do begin
// Это количество повторов
  cells[0,i]:=pFIBQuery1.FieldByName('кол-во_фамилия').AsString;
// Это сама фамилия
  cells[1,i]:=pFIBQuery1.FieldByName('фамилия').AsString;
 end;
end;

Меня вгоняют в непонятки эти две строчки:

// Это количество повторов
  cells[0,i]:=pFIBQuery1.FieldByName('кол-во_фамилия').AsString;
// Это сама фамилия
  cells[1,i]:=pFIBQuery1.FieldByName('фамилия').AsString;

а в частности это:

cells[0,i]
cells[1,i]

Это что получается, что у меня в нулевой столбец, начиная с первой строки и до последней записи выводится результат запроса или я неправильно понял?

[quit]

Это что получается, что у меня в нулевой столбец, начиная с первой строки и до последней записи выводится результат запроса или я неправильно понял?

В первый(нулевой) столбец все записи из запроса

SELECT FAMILIY,COUNT(FAMILIY) AS cnt_count FROM SPISOK GROUP BY FAMILIY

вы записываете поле cnt_count, а во второй столбец того же запроса вы записываете поле familiy

[artemavd]

Как тогда будет правильно код то?). Я уже запутался.

[quit]

подредактирую код Stilet
Вот так

with StringGrid do begin
 RowCount:=pFIBQuery1.RecordCount+1;
 pFIBQuery1.First;
 for i:=1 to pFIBQuery1.RecordCount-1 do begin
// Это количество повторов
  cells[0,i]:=pFIBQuery1.FieldByName('кол-во_фамилия').AsString;
// Это сама фамилия
  cells[1,i]:=pFIBQuery1.FieldByName('фамилия').AsString;
  pFIBQuery1.Next;
 end;
end;

по идее должен заполнять

[soleil@mmc]

для отображения можно выбрать много вариантов
и самый простой - дбгрид (минимальное кол-во кода)

[artemavd]

Не получается сделать проверку. Нужно, чтобы считалось количество данных по столбцу NUMBER_LS которые не равны "0".

 Form1.pFIBQuery4.SQL.Clear;
 Form1.pFIBQuery4.SQL.Text:='SELECT COUNT(NUMBER_LS) cnt4 FROM ARCHIVE';
 Form1.pFIBQuery4.ExecQuery;
 if Form1.pFIBQuery4.FieldByName('cnt4').AsInteger <> 0 then
 begin
  Form1.RzStringGrid3.Cells[1,4]:='       ' + Form1.pFIBQuery4.FieldByName('cnt4').AsString;
 end;

Помогите?

[Yurk@]

условие забыл:

Form1.pFIBQuery4.SQL.Clear;
Form1.pFIBQuery4.SQL.Text:='SELECT COUNT(NUMBER_LS) FROM ARCHIVE WHERE number_ls !=0';
Form1.pFIBQuery4.ExecQuery;
if Form1.pFIBQuery4.Fields[0].AsInteger <> 0 
   then Form1.RzStringGrid3.Cells[1,4]:='       ' + Form1.pFIBQuery4.Fields[0].AsString;

[artemavd]

Спасибо . А что это значит?

!=