Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Кол-во записей в таблице?? [D6, IB6.x, dBase, FoxPro]

beginnn © (2005-02-03 11:34:00)
Здравствуйте господа!

? такого плана. Всем надоевший :((.
Как подсчитать кол-во запесей в таблице ?

Есть запрос: select count (*) from mybaza

Как вывести результат хотя бы на label1 ?
Или это не возможно.
Если Да, то как ? Может быть есть другие варианты!?

Соловьев (2005-02-04 10:43:00) [1]

> IntToStr(Query1.FieldByName('cnt').AsInteger);

все более просто:
Query1.Fields[0].AsString;

Rob (2005-02-04 10:26:00) [2]
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('select count(*) as "cnt" from my_table');
Query1.Open;

Label1.Caption:='Всего записей: '+
IntToStr(Query1.FieldByName('cnt').AsInteger);

Danilka (2005-02-04 09:21:00) [3]
[11] ЮЮ © (04.02.05 09:16)
Ну, я вообще-то смайлик там нарисовал. :)
А если серьезно, то не помю что-бы была какая-то нужда на форме в лабелы кол-во записей выводить.
Она может быть (нужда) в отчетах, в статистике, еще где, но в лабеле, зачем?
:)

ЮЮ (2005-02-04 09:16:00) [4]
>а если в этот момент кто-то другой запись какую добавит, или, упаси боже, убъет насовсем? Ведь врать будет этот лабел. Что-же делать-то?

Не работать со всей таблицей целиком, а только с частью, выбранной запросом. Тогда лэйбл не врёт, а отображает состояние миенно для датасета, полученного этим клиентом. Для полцчения свежайшей информации следует обновить датасет.

Danilka (2005-02-04 09:10:00) [5]
[9] Lelik (04.02.05 08:06)
Увы, нет такого :)
Есть, правда, RecordCount, но он, в определенных случаях, будет возвращать -1.
И вапще, [4] ЮЮ © (03.02.05 11:42) а если в этот момент кто-то другой запись какую добавит, или, упаси боже, убъет насовсем? Ведь врать будет этот лабел. Что-же делать-то?
:))

Lelik (2005-02-04 08:06:00) [6]
А Свойство RowCount не пробовал?

Anatoly Podgoretsky (2005-02-03 22:19:00) [7]
ЮЮ © (03.02.05 11:42) [4]
Думаешь у него BDE

beginnn (2005-02-03 11:57:00) [8]
Reindeer Moss Eater - ты Первый !

Соловьев (2005-02-03 11:46:00) [9]

> Рискнуть!

предварительно сделав образ диска С 8)

ЮЮ (2005-02-03 11:42:00) [10]
Рискнуть!
Label1.Caption := Query1.Fields[0].AsString

Соловьев (2005-02-03 11:42:00) [11]

> Какой есть Вариант ?

Label1.Caption := Format('кол-во записей = %d',[ramdom(1000)]);
есть вероятность что когда-то попадет куда надо.

Reindeer Moss Eater (2005-02-03 11:41:00) [12]
45 калибр к виску или в рот.

beginnn (2005-02-03 11:38:00) [13]
Какой есть Вариант ?

Соловьев (2005-02-03 11:37:00) [14]

> Или это не возможно.

невозможно это еще мягко сказано. Если ты попытаешся вбруг обратится к свойтсву Query1.Fields[0].AsString, то Делфи автоматом запускает format c:

Наверх

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