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

← →
Руслан56 (2006-12-22 06:56) [0]

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

Нужно выбрать из БД (стандартным драйвером), допустим 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.

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

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

← →
ЮЮ © (2006-12-22 07:44) [1]

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

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

← →
Руслан56 (2006-12-22 08:56) [2]

Да но мне не SQL надо. Спасибо конечно !!!
"какие значения поля statys встречаются в таблице и сколько раз "

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

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

← →
Sergey13 © (2006-12-22 09:02) [3]

> [2] Руслан56 (22.12.06 08:56)

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

← →
ЮЮ © (2006-12-22 09:05) [4]

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

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

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

← →
Sergey13 © (2006-12-22 09:09) [5]

> [4] ЮЮ © (22.12.06 09:05)

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

← →
ЮЮ © (2006-12-22 09:10) [6]

Тогда у него всё есть. Чего ему ещё надо?

← →
Виталий Панасенко (2006-12-22 09:46) [7]

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.

← →
Руслан56 (2006-12-22 12:29) [8]

Всем спасибо Всем !!!

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

> [2] Руслан56 (22.12.06 08:56)
> Да но мне не SQL надо. Спасибо конечно !!!

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

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