Somar Campos
15/02/2003
0
Ola Pessoal ,
Estou desenvolvendo um sisteminha para cadastrar resultados da Lotomania, tenho uma tabela onde cadastro os resultados e gostaria de fazer um estudo de quantas vezes cada dezena saiu e não estou conseguindo encontrar uma maneira de fazer a soma das vezes que saiu cada dezena. Se fosse possivel somar todas as dezenas de so vez e mostrar em Edits, se não for possivel pode ser de outra forma.
Exemplo:
Dezena Nº Vezes
01 35
02 56
03 71
... ...
Se alguem puder ajudar ficarei muito grato.
Estou desenvolvendo um sisteminha para cadastrar resultados da Lotomania, tenho uma tabela onde cadastro os resultados e gostaria de fazer um estudo de quantas vezes cada dezena saiu e não estou conseguindo encontrar uma maneira de fazer a soma das vezes que saiu cada dezena. Se fosse possivel somar todas as dezenas de so vez e mostrar em Edits, se não for possivel pode ser de outra forma.
Exemplo:
Dezena Nº Vezes
01 35
02 56
03 71
... ...
Se alguem puder ajudar ficarei muito grato.
Anonymous
Curtir tópico
+ 0
Responder
Posts
15/02/2003
Anonymous
SQL da QryContador:
SELECT Count(*)
FROM Tabela
WHERE Dezena1 = :NrDezena
OR Dezena2 = :NrDezena
OR Dezena3 = :NrDezena
OR Dezena4 = :NrDezena
OR ...
procedure TForm1.Button1Click(Sender: TObject);
var
I: Word;
begin
for I := 0 to 99 do
begin
TEdit(FindComponent(´Edit´ + IntToStr(I + 1))).Text :=
GetNrVezes(I);
end;
end;
function TForm1.GetNrVezes(Value: Word): String;
begin
with QryContador do
begin
ParamByName(´NrDezena´).AsInteger := Value;
Open;
try
if IsEmpty then
Result := ´0´
else
Result := Fields[0].AsString;
finally
Close;
end;
end;
SELECT Count(*)
FROM Tabela
WHERE Dezena1 = :NrDezena
OR Dezena2 = :NrDezena
OR Dezena3 = :NrDezena
OR Dezena4 = :NrDezena
OR ...
procedure TForm1.Button1Click(Sender: TObject);
var
I: Word;
begin
for I := 0 to 99 do
begin
TEdit(FindComponent(´Edit´ + IntToStr(I + 1))).Text :=
GetNrVezes(I);
end;
end;
function TForm1.GetNrVezes(Value: Word): String;
begin
with QryContador do
begin
ParamByName(´NrDezena´).AsInteger := Value;
Open;
try
if IsEmpty then
Result := ´0´
else
Result := Fields[0].AsString;
finally
Close;
end;
end;
Responder
Clique aqui para fazer login e interagir na Comunidade :)