количество строк таблицы 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.

Значит написал так
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 "; ...

> а подумать?

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

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