Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.10.08;
Скачать: CL | DM;

Вниз

количество строк таблицы DBGrid   Найти похожие ветки 

 
Klever ©   (2006-08-04 19:13) [0]

Здравствуйте! как подсчитать количество строк таблицы DBGrid и вывести это числовое значение в StatusBar1?.Заранее благодарен.


 
Ega23 ©   (2006-08-04 19:47) [1]

DBGrid.DataSource.DataSet.RecordCount

Примечание: для разных потомков TDataSet работает по-разному.


 
Dok   (2006-08-04 19:55) [2]


var
 RecordsCount: TADODataSet;
begin
 RecordsCount := TADODataSet.Create(nil);
 try
   RecordsCount.CommandText := "select count(*) from Table1 ";
   RecordsCount.Open();
   StatusBr1.Items[0].Text := Format("Records count: %d",    [RecordsCount.Fields[0].AsInteger]);
 finally
   FreeAndNil(RecordsCount);
 end;
end;


 
Klever ©   (2006-08-05 14:01) [3]

Извиняюсь, но как записать это в StatusBar1?


 
Dok   (2006-08-05 14:41) [4]


> Извиняюсь, но как записать это в StatusBar1?

[2]


 
Klever ©   (2006-08-05 16:39) [5]

to Dok
Протупил :O)


 
Klever ©   (2006-08-05 16:50) [6]

to Dok
Подождите
StatusBr1.Items[0].Text
В статус баре нет Items, во всяком случае может это у меня нет  - D7


 
Dok   (2006-08-05 17:12) [7]

Писал просто так. Прочитайте справку Using TStatusBar.


 
Klever ©   (2006-08-05 17:37) [8]

Значит написал так
procedure TForm1.FormCreate(Sender: TObject);
var
RecordsCount: TADODataSet;
begin
RecordsCount := TADODataSet.Create(nil);
try
  RecordsCount.CommandText := "select count(*) from BookTable ";
  RecordsCount.Open();
  StatusBar1.simpleText := Format("Records count: %d",    [RecordsCount.Fields[0].AsInteger]);
finally
  FreeAndNil(RecordsCount);
end;
end;

Компилится нормально, но не запускается. Выдает ошибку
EDATABaseError : Mising Connection or ConnectionString.


 
Dok   (2006-08-05 17:47) [9]


> try
>   RecordsCount.CommandText := "select count(*) from BookTable
> ";

а подумать?

try
  RecordsCount.Connection := ADOConnection1;
  RecordsCount.CommandText := "select count(*) from BookTable ";
...


 
Johnmen ©   (2006-08-05 22:11) [10]


> а подумать?


Тут не думать надо, а букварь читать. С первой страницы...



Страницы: 1 вся ветка

Текущий архив: 2006.10.08;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.053 c
15-1158309048
boriskb
2006-09-15 12:30
2006.10.08
Ядерная программа Ирана


2-1158355786
Strate
2006-09-16 01:29
2006.10.08
Функция, возвращающая путь к экзешнику


3-1154770856
_RusLAN
2006-08-05 13:40
2006.10.08
Передача 3-мерного масива строк в ХП. D7. Firebird. IBX.


15-1158413367
Yegorchic
2006-09-16 17:29
2006.10.08
Что это за композиция?


15-1158492850
ArtemESC
2006-09-17 15:34
2006.10.08
MASM