Количество записей в таблице.

@ZaxarPal · Регистрация: 18.01.2011

Author24 — интернет-сервис помощи студентам

Как узнать количество записей в таблице. Посоветовали использовать свойство объекта TADOQuery ExecSQL. Но он возвращает 0. При этом если заменить AQ.ExecSQL на количество записей в таблице, то все работает. Вот код. Как исправить?

Delphi

  AQ.Close;
  AQ.SQL.Clear;
  AQ.SQL.Text := 'select name, ID from test';
  AQ.Open;
  //for i := 0 to AQ.ExecSQL-1 do
  for i := 0 to 7 do
  begin
    SetLength(A, i+1);
    A[i].ID := AQ.FieldValues['id'];
    A[i].Name := AQ.FieldValues['name'];
    AQ.Next;
  end;

@nVz · 24.08.2011, 21:59

всё просто

Delphi

1	caption := IntToStr(ADOQuery1.RecordCount);

	24.08.2011, 21:59