| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

количество строк таблицы DBGrid [D7, Access ]

Klever ©   (2006-08-04 19:13:00) 

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

---

Johnmen   (2006-08-05 22:11:00) [1]

> а подумать?


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

---

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

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

а подумать?

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


---

Klever   (2006-08-05 17:37:00) [3]

Значит написал так
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:12:00) [4]

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

---

Klever   (2006-08-05 16:50:00) [5]

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

---

Klever   (2006-08-05 16:39:00) [6]

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

---

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

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

[2]

---

Klever   (2006-08-05 14:01:00) [8]

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

---

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


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;


---

Ega23   (2006-08-04 19:47:00) [10]

DBGrid.DataSource.DataSet.RecordCount

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

---

Наверх