VPF::Чётность. - Форум программистов

Fast

Дата 23.10.2006, 18:44 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 76
Регистрация: 21.3.2006
Где: Санкт-Петербург

Репутация: 1
Всего: 1

Как мне узнать число записей в таблице чётное или нечётное ???

Vas

Дата 24.10.2006, 07:03 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 830
Регистрация: 29.6.2005
Где: Stavropol region

Репутация: 23
Всего: 28

Код


Result:=odd(TQuery.RecordCount); //если True значит нечетное число, иначе четное, можно также использовать EVEN (работает с точностью наоборот)

--------------------

И опыт, сын ошибок трудных, И гений, парадоксов друг, И случай, бог изобретатель. ... (А.С. Пушкин)

Akella

Дата 24.10.2006, 10:38 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329

сначалу нужно сделать FetchAll

Добавлено @ 10:39
а то получишь число записей (например 200) в кэше "ответа", а не фактическое, хранящееся на сервере.

SergeBS

Дата 24.10.2006, 11:14 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1111
Регистрация: 10.6.2005
Где: Владимир

Репутация: 11
Всего: 22

Akella,
Vas,
Нельзя так. Из-за 1 цифры тащить на клиента всю таблицу - нехорошо. Поэтому правильно:
запросом SQL получить на клиента цифирку=количеству записей, а потом определить: чет или нечет. А еще есть TDataSet.RecordCount.

Akella

Дата 24.10.2006, 11:29 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329

SergeBS, можно по всякому. А если у него уже датасет открыт и нужно просто получить кол-во записей....

тогда вот ещё вариант:

Код


Query.close;
Query.sql.clear;
Query.sql.add('select count(*) from MyTable');
Query.open;
Result:=odd(Query.Fields[0].Value);
Query.close;

SergeBS

Дата 24.10.2006, 12:24 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1111
Регистрация: 10.6.2005
Где: Владимир

Репутация: 11
Всего: 22

Akella,
smile

. А я что проедлагал?

Цитата

А если у него уже датасет открыт и нужно просто получить кол-во записей....

есть TDataSet.RecordCount.

А запрос ты за меня написал smile

. Но с ошибкой. Не

Код


Result:=odd(Query.Fields[0].Value);

Код


Result:=odd(Query.Fields[0].AsInteger);

Akella

Дата 24.10.2006, 12:29 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329

Цитата(SergeBS @ 24.10.2006, 12:24

)

Но с ошибкой. Не

это не ошибка, проверь сам

SergeBS

Дата 24.10.2006, 14:27 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1111
Регистрация: 10.6.2005
Где: Владимир

Репутация: 11
Всего: 22

Akella,
Проверил. Не ошибка. Ты прав. Зато AsInteger в списке подсказок ближе smile

Akella

Дата 24.10.2006, 14:39 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329

ну блин, да о чём спорим, это ж мелочи smile

можно сказать...

Добавлено @ 14:41
тогда уж лучше так

Код


Var
 v:variant;
begin
...
Query.close;
Query.sql.clear;
Query.sql.add('select count(*) from MyTable');
Query.open;
v := Query.Fields[0].Value;
Query.close;
If (VarIsNull(v)) or (V = 0 )then
  Result :=0 
else
  Result:=odd(v);

Добавлено @ 14:42
а перед всем этим можно и наличие таблицы проверить smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »