Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: -0.973 c