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

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

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

Немогу написать код для посчета и вывода результатов. [D6]

Руслан56 © (2006-12-22 06:56:00)
Немогу написать код для посчета и вывода результатов.

Нужно выбрать из БД (стандартным драйвером), допустим RRR, с поля ( statys) выбирать строки с одинаковыми полями(цифрами) подсчитать количество и результат вывести на Форму.

подобный код такой
var i, N, M: Integer;
begin
N:=0
M :=DataModule2.Table1.RecordCount;
DataModule2.Table1.First;
for i := 1 to M do
begin
if DataModule2.Table1.FieldByName('SOC STATUS').Asboolean
then ins(N);
DataModule2.Table1.Next;
end;
Unit3.Form3.Label1.Caption:=IntToStr(N);

end.

как переделать ?

Есть кто небудь кто помочь может ?

evvcom (2006-12-22 15:41:00) [1]
> [2] Руслан56 (22.12.06 08:56)
> Да но мне не SQL надо. Спасибо конечно !!!

Учись отделять, мухи отдельно, котлеты отдельно.
Если тебе надо "какие значения поля statys встречаются в таблице и сколько раз ?", то тебе нужен именно SQL. Если же тебе надо "Нужен был код только для одного конкретного значения поля", то так и нужно спрашивать, и тогда SQL вообще не важно какой, достаточно только знать, что НД уже вернултакие-то поля и такие-то значения.

Руслан56 (2006-12-22 12:29:00) [2]
Всем спасибо Всем !!!

Нужен был код только для одного конкретного значения поля.

Виталий Панасенко (2006-12-22 09:46:00) [3]
var N: Integer;
begin
N:=0
DataModule2.Table1.First;
while not DataModule2.Table1.Eof do
begin
inc(N, Integer(DataModule2.Table1.FieldByName('SOC STATUS').Asboolean));
DataModule2.Table1.Next;
end;
Unit3.Form3.Label1.Caption:=IntToStr(N);
end.

ЮЮ (2006-12-22 09:10:00) [4]
Тогда у него всё есть. Чего ему ещё надо?

Sergey13 (2006-12-22 09:09:00) [5]
> [4] ЮЮ © (22.12.06 09:05)

Я так понял, судя по коду, что ему надо только для одного конкретного значения (true) поля.

ЮЮ (2006-12-22 09:05:00) [6]

> Unit3.Form3.Label1.Caption:=IntToStr(N);

Тогда по-русски объясни, как в одной переменной N можно отразить такую информацию: 5 записей имеют значение 1, а 35 - 0 ?

Или твой код просто для красного словца? Особенно, учитывая in s(N) ?

Sergey13 (2006-12-22 09:02:00) [7]
> [2] Руслан56 (22.12.06 08:56)

А твой код не работает что-ли? Он конечно "дубовый", но на первый взгляд вроде работоспособный.

Руслан56 (2006-12-22 08:56:00) [8]
Да но мне не SQL надо. Спасибо конечно !!!
"какие значения поля statys встречаются в таблице и сколько раз "

Мжно мне тот бред превратить в че нибудь напоминающе код !!!

Составлена форма, мне нужно что бы одинаковые значения поля STATYS и выводил их на форму.

ЮЮ (2006-12-22 07:44:00) [9]

> с поля ( statys) выбирать строки с одинаковыми полями(цифрами)

Если этот бред означает "какие значения поля statys встречаются в таблице и сколько раз ?", то
SELECT statys, COUNT(statys) FROM RRR GROUP BY statys

Наверх

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