Вывести в label текущее число записей таблицы (DBGrid) <Ответ найден!>

[koudelka]

Всем привет. Ребятки, не получается вывести в label ( а конкретно в label2.text) сколько в данный момент отображено записей в таблице. Волнует кол-во записей, которое получается ПОСЛЕ различных фильтраций таблицы, это число должно обновляться после применения фильтрации или после удаления записи, т.е. всякий раз, когда кол-во записей таблицы уменьшается или увеличивается, поэтому код, который представлен ниже не подошел ( т.к. он всегда показывает одно и тоже число записей в Table, а не число текущего кол-ва записей):

label2.Caption:='Отображено записей: ' + IntToStr(datamodule2.table1.RecordCount );

пробовала и 2 вариант:

datamodule2.Query1.Active:= false;
datamodule2.Query1.SQL.Clear;
datamodule2.Query1.SQL.Add('SELECT COUNT (*) AS ''COUNT'' FROM [ABONENT]');
datamodule2.Query1.Active:= TRUE;
label2.caption := IntToStr(datamodule2.Query1.RecordCount);

- во 2ом варианте вылетает ошибка Invalid use of keyword. Token: FROM.

Преподаватель предложил создать цикл и в нем посчитать сумму отобразившихся полей таблицы, которая открыта, как лучше это сделать? Или все-таки доработать эти варианты?
------------------Ответ найден! спасибо Аватар'у------------------

procedure TDataModule2.DataSource1DataChange(Sender: TObject;
  Field: TField);
begin
if DataSource1.DataSet.RecNo<>-1 then Form1.Label2.Caption:=Format('Записей: %d',[DataSource1.DataSet.RecordCount]);
end;

[Stilet]

Token: FROM.

Правильно вылезает AS ''COUNT'' убери совсем.
Кстати этот запрос не решает твою задачу учитывая требование:

число должно обновляться после применения фильтрации

Это запрос покажет кол-во всех записей.
Обьясни зачем тебе это нужно и скорее всего другой выход будет найден.

[Аватар]

А так

procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
  if DataSource1.DataSet.RecNo<>-1 then Label1.Caption:=Format('Записей: %d',[DataSource1.DataSet.RecordCount]);
end;

Преподаватель предложил создать цикл и в нем посчитать сумму отобразившихся полей таблицы

У-у-у. Совсем плохой. И так после каждой операции обновления или переустановки фильтра?

[koudelka]

Необходимо, чтобы значение этого label менялось по мере того, какие фильтры я применяю, если перед применением фильтра число 22 ( 22 записи мы видим) , то после применения у нас остается всего 3 записи, к примеру, значит и в label 'е тоже должна быть цифра 3.
По поводу обновления - я думаю, если код будет правильным, то проканает вариант с label2.update;

[Аватар]

проканает вариант с label2.update

Ну ка подробней, что это даст?

[koudelka]

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

AS ''COUNT'' убери совсем.

Убрала вот так оставила:

datamodule2.Query1.SQL.Add('SELECT COUNT (*) FROM [ABONENT]');

Но вылезла та же ошибка только теперь с Token: FROM[ABONENT] ,ставила и [TableName] вместо [ABONENT], все-равно ругается, именно на значение в скобках

[koudelka]

Сообщение от Аватар

Ну ка подробней, что это даст?

label обновит свое значение, если оно изменилось ,или я ошибаюсь?

[Аватар]

Ошибаетесь. Попробуйте все таки, что в посте #3 предложено. Повесте на событие DataSource.OnDataChange

[koudelka]

Сообщение от Аватар

Ошибаетесь. Попробуйте все таки, что в посте #3 предложено. Повесте на событие DataSource.OnDataChange

Я Вам соврала! работает!! именно с первой таблицей , а я по-ошибке другую тестировала. Спасибо огромное!! Вы просто чудо! =*

[Аватар]

Что-то не то делаете. У меня работает. Специально проверил на ClientDataSet