Помогите. Delphi 7!!!

Question

Напишите пожалуйста код, чтобы в лэйб выводило количество строк в базе данных. база подключена через DBGrid.

Валентин · Accepted Answer

допустим 
 q наследник Tdataset 
и соответственно сетка подключена к q 
 
procedure UpdCount; 
 Label.caption:= q.RecordCount; 
end;

Елена Кашкавал · Answer

Возможно так, давно не писал, потому по памяти просто.
Сам поищи в хелпе и инетом надо уметь пользоваться и хелпом тож.

Label.Captiop := DBGrid.DateSet.RecordCount;

У меня база подключена через ADOQuery - можно запросом SQL спросить сколько строк в таблице однако, а не в базе.

Паша Юдин · Answer

DbGrid - это лишь средство отображения DataSet, с которым этот грид связан и количество строк в нем будет равно количеству строк набора данных... RecordCount, однако...

Катерина Милая*** · Answer

Для базы 
label1.caption:=inttostr(Table1.RecordCount); 
 
Для грида. 
label1.caption:=inttostr(DBGrid.RowCount); 
 
но значения будут одинаковые, потому что TdbGrid отображает поля TTable