ADOQuery1.RecordCount показывает неверное количество записей

[Женя32]

Подскажите пожалуйста, почему, после выполнения ниже приведенного кода, ADOQuery1.RecordCount возвращает единицу? Хотя в таблице 15 записей.

procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOQuery1.Close;
  ADOQuery1.Open;

  label1.Caption:=inttostr(ADOQuery1.RecordCount);

end;

[Stilet]

Потому что ADOQuery далеко не всегда может правильно заставить провайдер вернуть кол-во запрошенного, особенно если работает буфферизация, и подкачкой записей по мере необходимости занимается сам провайдер.
Можно попробовать выполнить метод Last, возможно тогда RecordCount пересчитается как полагается, но без гарантии.

[Женя32]

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

Потому что ADOQuery далеко не всегда может правильно заставить провайдер вернуть кол-во запрошенного, особенно если работает буфферизация, и подкачкой записей по мере необходимости занимается сам провайдер.
Можно попробовать выполнить метод Last, возможно тогда RecordCount пересчитается как полагается, но без гарантии.

А причем здесь провайдер, если проект находится на локальном компьютере?

[Stilet]

А при том что слово provider многозначимое.
ADO работает с СУБД не само по себе, а посредством передачи команд через некую DLL, называемую "провайдером СУБД". Собственно в настройках ODBC можно подсмотреть список этих DLL.

[Женя32]

Я извиняюсь, но, я не правильно изложил проблему.

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

PHP код:

      ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('Select MAX(НДата)  from счет');
  ADOQuery1.Open; 


Естественно что после этого кода будет одна запись, как вернуть исходное состояния?

[Stilet]

как вернуть исходное состояния?

Никак. Либо заново внести запрос в этот компонент, и переоткрыть, либо создать еще один Query и такие вспомогательные запросы делать в нем.
В принципе есть еще один способ - UNION.
Но наверное я не буду о нем рассказывать.

[Женя32]

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

Никак. Либо заново внести запрос в этот компонент, и переоткрыть, либо создать еще один Query и такие вспомогательные запросы делать в нем.
В принципе есть еще один способ - UNION.
Но наверное я не буду о нем рассказывать.

Все, спасибо, работает!

[xxbesoxx]

Естественно что после этого кода будет одна запись, как вернуть исходное состояния?

MAX

procedure TfrmMain.Button1Click(Sender: TObject);
begin
  with ADOQueryAgregat do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT MAX(UnitPrice) FROM Order_Details');
    Open;
    Label1.Caption :=  ADOQueryAgregat.Fields.Fields[0].AsString;
  end;
end;

или COUNT

procedure TfrmMain.Button1Click(Sender: TObject);
begin
  with ADOQueryAgregat do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT COUNT(UnitPrice) FROM Order_Details');
    Open;
    Label1.Caption := 'Количество: '+ ADOQueryAgregat.Fields.Fields[0].AsString;
  end;
end;

Но скажу что DBGridEh все это умеет делать без запроса

[Аватар]

Но скажу что DBGridEh все это умеет делать без запроса

Умеет, но просто элементарным перебором всех записей датасета. Поэтому и без запроса