QSLite+Lazarus фильтрация Dataset

[wofs]

Подскажите плиз, почему имея в таблице 1000 записей я фильтрую датасет:

Код: Выделить всё

      DbGrid1.DataSource.DataSet.Filtered := False;
      DbGrid1.DataSource.DataSet.Filter := 'Field=''true''';
      DbGrid1.DataSource.DataSet.Filtered := True;


в DbGrid1у меня (после фильтрации) пять строк(записей), а

Код: Выделить всё

DbGrid1.DataSource.DataSet.RecordCount;

имеет значение 1000 ? Разве после фильтрации он не должен принять значение "5" ?

БД: SQLite
Lazarus 0.9.29 win

[Padre_Mortius]

Dataset.RecordCount это количество записей в выборке, а не в фильтре... для правильного отображения используйте выборки через язык запросов SQL

[wofs]

Dataset.RecordCount это количество записей в выборке, а не в фильтре...

простите.. но разве Dataset.RecordCount это не количество записей в датасете? ведь если я его фильтрую, то и количество записей в нем изменяется, я же не смотрю сколько записей в квери - оно и есть 1 000, мне нужно кол-во записей в датасете...

для правильного отображения используйте выборки через язык запросов SQL

исключено, нужно фильтровать именно датасет, так как именно с ним и ведется работа локально - проставляются отметки в строках и тп. квери при этом трогать нельзя.

Добавлено спустя 46 минут 45 секунд:
в общем задача решена, выкладываю свое решение.
пошел по проверенному пути - проверить работоспособность кода в Delphi дабы не расшибать лоб.
приведенный в первом сообщении код оказался полностью работоспособен и помятуя о разнице между делфи и лазарус, а так же молодости лазарус принял решение найти обходной путь и нашел

Код: Выделить всё

procedure TFmMain.Button1Click(Sender: TObject);
var
  cnt: Integer;
  bmk: TBookmark;
begin
  inherited;
  DbGrid1.DataSource.DataSet.DisableControls; // Это - датасет грида
  cnt := 0;
  bmk := DbGrid1.DataSource.DataSet.GetBookmark; // Запомнили позицию
  try // Считаем
    DbGrid1.DataSource.DataSet.First;
    while not FmMain.ListKvit.DataSource.DataSet.Eof do
    begin
      Inc(cnt);
      DbGrid1.DataSource.DataSet.Next;
    end;
    DbGrid1.DataSource.DataSet.GotoBookmark(bmk); // Вернулись
  finally
    DbGrid1.DataSource.DataSet.FreeBookmark(bmk);
    DbGrid1.DataSource.DataSet.EnableControls;
  end;
  ShowMessage('Всего записей = ' + IntToStr(cnt));
end;                 

приведенное решение нашел на просторах форума сайта http://www.sql.ru

[Vadim]

простите.. но разве Dataset.RecordCount это не количество записей в датасете?

Совершенно верно.

ведь если я его фильтрую, то и количество записей в нем изменяется

А вот это Ваша логическая ошибка. В Датасете сколько было записей, столько и осталось, никуда они не делись. Прсто видимых записей становится столько, сколько попало под условие фильтра.

[wofs]

А вот это Ваша логическая ошибка. В Датасете сколько было записей, столько и осталось, никуда они не делись. Прсто видимых записей становится столько, сколько попало под условие фильтра.

тогда почему компиляция этого кода в Delphi дает логически ожидаемый результат? при условии фильтрации как в посте №1 а не через "Accept".

[Vadim]

тогда почему компиляция этого кода в Delphi дает логически ожидаемый результат?

А я Борланд, я знаю?

[wofs]

Причем на лицо ошибка назначени RecordCount, так как циклом

Код: Выделить всё

while not FmMain.ListKvit.DataSource.DataSet.Eof do
    begin
      Inc(cnt);
      DbGrid1.DataSource.DataSet.Next;
    end;

мы пробегаем именно все фильтрованные записи.
тему же можно считать закрытой, вопрос решенным, остальное уже в багтрекер..