Посчитать количество записей в БД ACCESS

[Dux]

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

[Serge_Bliznykov]

select count(*) from Tablica1 - и так для всех таблиц. результаты просуммировать...

[Dux]

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

select count(*) from Tablica1 - и так для всех таблиц. результаты просуммировать...

С SQL не работал, можно ли пример?

[Serge_Bliznykov]

Вы на чём программу пишите, на дельфи?
Подключаетесь к БД через что - через ADOConnection ?
Сколько таблиц в БД (и имена этиих таблиц) известны, или программа сама должна получить?

а SQL нужно записать в соответствующее свойство ADOQuery, можно прямо ручками в design-time - в инспекторе объектов найти проперть SQL и двойной щелчок на ней...

[Dux]

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

Вы на чём программу пишите, на дельфи?
Подключаетесь к БД через что - через ADOConnection ?
Сколько таблиц в БД (и имена этиих таблиц) известны, или программа сама должна получить?

а SQL нужно записать в соответствующее свойство ADOQuery, можно прямо ручками в design-time - в инспекторе объектов найти проперть SQL и двойной щелчок на ней...

Подключаюсь через ADO, база data.mdb, в ней 3 таблицы: work1, work2, work3. Необходимо посчитать количество всех записей..

[Dux]

Что-то ничего не выходит, где ошибка?

procedure TForm1.Button1Click(Sender: TObject);
var line:string;
begin
adoquery1.close;
adoquery1.sql.clear;
line:='Select count(*) from work1,work2,work3';
adoquery1.sql.add(line);
adoquery1.open;
end;

[Serge_Bliznykov]

пишу прямо здесь, поэтому прошу за ошибки извинить..
не сможете исправить - пишите, вместе отладим.
на форму бросайте ADOConnection и ADOQuery - в нём connection := ADOConnection1 (к примеру);

var
  allRecord : Integer;
begin
  allRecord := 0;
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select count(*) as Cnt1 from work1');
  ADOQuery1.Open;
  allRecord := allRecord + ADOQuery1.FieldsByName('Cnt1').AsInteger;
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select count(*) as Cnt1 from work2');
  ADOQuery1.Open;
  allRecord := allRecord + ADOQuery1.FieldsByName('Cnt1').AsInteger;
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select count(*) as Cnt1 from work3');
  ADOQuery1.Open;
  allRecord := allRecord + ADOQuery1.FieldsByName('Cnt1').AsInteger;
  ADOQuery1.Close;
  ShowMessage('In work1,work2,work3 '+IntToStr(allRecord)+' records.');
end;

[Dux]

В строке

allRecord := allRecord + ADOQuery1.FieldsByName('Cnt1').AsInteger;

выдает ошибку

[DCC Error] Unit1.pas(74): E2003 Undeclared identifier: 'FieldsByName'

Что такое Cnt1?

[Serge_Bliznykov]

нет, можно и одним запросом (через SQL черта лысого можно сделать, а не то, чтобы записи подсчитать), но, я не знаю, MS ACCESS вложенные запросы допускает или нет.
и проверять нет ни времени, ни желания.
попробуйте, для общего развития, выполнить такой запрос:

 select sum(cnt1) from
   (select count(*) as Cnt1 from Work1
    union all 
    select count(*) as Cnt1 from Work2
    union all 
    select count(*) as Cnt1 from Work3) as AllWork

это точно сработает в Oracle и (на 99.9% в MS SQL)
насчёт ACCESS - я не уверен. попробуйте....

[Serge_Bliznykov]

FieldByName
без s