[Dux]

Собственно сабж. Есть база Access, состоит из десятка таблиц. Необходимо посчитать количество всех записей. Работаю с базой через ADO. Есть идеи?

[Aristarh Dark]

А что, тут какие-то особые идеи нужны? Выбираешь имена пользовательских таблиц из MSysObjects, затем считаешь в них кол-во записей. Там 10 строк кода

[Dux]

Сообщение от Aristarh Dark

А что, тут какие-то особые идеи нужны? Выбираешь имена пользовательских таблиц из MSysObjects, затем считаешь в них кол-во записей. Там 10 строк кода

Aristarh, если не сложно, поделитесь знаниями...

[vinni]

Может быть в цикле посчитать запросом количество записей в каждой таблице, а потом их сложить?

[Dux]

Уже выложил здесь

[mik]

Код:

...
  //Запрос для получения списка таблиц
  SQL := 'SELECT Name FROM MSysObjects ' +
         'WHERE ParentId=(SELECT ID FROM MSysObjects ' +
         'WHERE NAME='Tables') AND Flags In (0,8)';
  ListTables.CommandText := SQL;
  ListTables.Open;
  //Перебираем список таблиц и в каждой из них считаем записи
  while not ListTables.Eof do
  begin
    SQL := 'SELECT Count(*) FROM ' + ListTables.Fields[0].AsString;
    ADODataSet.CommandText := SQL;
    ADODataSet.Open;
    CountAllRec := CountAllRec + ADODataSet.Fileds[0].AsInteger;
    ADODataSet.Close;
    ListTables.Next;
  end;
...

ЗЫ. Не забывайте про обработку исключений.