Как посчитать количество записей в таблице DBGrid

[Епгений]

у меня программа на ДЕЛФИ6 база Access состоит из одной таблицы 'Журнал' необходимо посчитать количество записей в таблице автоматчески или при нажатии кнопки. Результат посчета должна появится в компоненте Edit. Работаю с базой через ADO.
Ребята очень нужно, и если у кого есть какие идеи прошу помочь.
Заранее блогадарен

[artemavd]

procedure TForm1.Button1Click(Sender: TObject);
begin
 ADOQuery1.Active:=False;
 ADOQuery1.SQL.Text:='select count(ID) from table';
 ADOQuery1.Open;

 Edit1.Text:=IntToStr(ADOQuery1.FieldByName('ID').AsInteger);
end;

[quit]

artemavd, ошибка будет
тогда уж надо так

 Edit1.Text:=IntToStr(ADOQuery1.Fields[0].AsInteger);

[artemavd]

quit

, а в чем разница-то? Мне кажется, что особой разницы нет. Что у меня FieldByName, что у Вас Fields[0] означает одно и тоже. Суть в том, чтобы результат запроса перевести в строковое значение, чтобы затем присвоить Edit1

[quit]

ну хорошо, тогда если запрос будет вида

select count(ID) AS ID from table

то я тогда не буду спорить

[artemavd]

ну хорошо, тогда если запрос будет вида
Код:

select count(ID) AS ID from table

то я тогда не буду спорить

Я это и имел ввиду

[soleil@mmc]

я вас еще больше обрадую если напишу так?

Edit1.Text:=ADOQuery1.FieldByName('ID').AsString;

[quit]

soleil@mmc, ну это уже некрасиво

[soleil@mmc]

это уже лирика
ОФФ: это сокращает код - убирается лишнее преобразование, которое к тому же может привести к АВехе в общем случае (вот будет ТС копи-пастить свой код и будет использовать вашу нотацию Field[0] - точно будет путаница, а так прилада хотя бы будет работать и программера будет время безболезненно подправить ехе-шник)

[Епгений]

вот я так сделал
код:
DataModule1.FindQuery.Active:=False ;
DataModule1.FindQuery.SQL.Text:='se lect count(Key1) from справочник';
DataModule1.FindQuery.Open;
edit1.Text:=IntToStr(DataModule1.Fi ndQuery.Fields[0].AsInteger);
end;
программа без проблем запускается и при нажатии выдает ошибку и говорит что FinQuery:Field '№' not found почему то не находит я испробовал пару способов но все равно одно и то же показывает. Фуф измучался ваще