Contar filas de un DBGrid y comparar un campo especifico

[roman]

En el ciclo que pones, sisne, realmente no estás recorriendo los registros (fíjate que el contador del ciclo, i, no interviene para nada) y siempre tomas el mismo valor. Como lo hace eficsa es correcto.

Por otra parte, creo más conveniente usar una consulta SQL especial para el conteo:

Código SQL [-]
select calificacion, count(calificacion)
from materias
group by calificacion

De esta manera, no tienes que hacer un ciclo pues la consulta te trae todos los resultados de una sentada.

// Saludos

[ecfisa]

Si roman, toda la razón, es mucho más eficiente con la consulta.
Pero eran las 2:30 de la mañana y tenia pocas luces... .
Como verás, también cometí un error: Me olvidé de incrementar Total y se le iba a poner difícil promediar sin esa línea...

Saludos.

[sisne]

Hola!
Les cuento que solucioné ese detalle.
ecfisa, segui tu ayuda y coloqué este código:

    TMateria.First;
    while not TMateria.Eof do
      begin
        Kon:=Kon+1;
        If Facademico.TmateriaCalificacionM.Text='Aprobado' then inc(A);
        If Facademico.TmateriaCalificacionM.Text='Reprobado' then inc(R);
        If Facademico.TmateriaCalificacionM.Text='Ninguno' then inc(N);
        TMateria.Next;
      end;

El bendito Next me faltaba....Gracias ecfisa.
Roman, si fuese el caso de usar sql como seria su implementacion en delphi? usando un query en sql colocaria ese codigo? y para llamar como tendria que hacerlo? por favor pautas..para no hacer un ciclo como dices.
Gracias Roman.

[ecfisa]

De nada sisne, un gusto haber servido de algo.

[*Caro*]

Empezado por sisne

Hola!
Roman, si fuese el caso de usar sql como seria su implementacion en delphi? usando un query en sql colocaria ese codigo? y para llamar como tendria que hacerlo? por favor pautas..para no hacer un ciclo como dices.
Gracias Roman.

Hola sisne, debes utilizar un query para ejecutar la consulta.

Código Delphi [-]
var
 ind : Integer;
begin
  Query.Close;
  Query.Sql.Text := 'select calificacion, count(calificacion) As Cant from materias '+
                           'group by calificacion order by calificacion';
  Query.Open;
  
  ind :=0;
  Query.First;
  While Not Query.Eof do
   begin
    Inc(ind);
    Case ind of
     1: A := Query.FieldByName('Cant').AsInteger;
     2: R := Query.FieldByName('Cant').AsInteger;
     3: N := Query.FieldByName('Cant').AsInteger;
    end;         
    Query.Next 
   end;
  Total := A+R+N;

Saluditos

[sisne]

Hola!
Caro gracias por el código, tengo aun dudas (soy una aprendiz) quisiera aprender sobre los Querys en los Form en Delphi (mas ayuda por favor).
La pregunta es el iconito o boton "Query" lo coloco en el form o DataModule (da igual) Osea que debo colocar ese iconito y en sus propiedades de este Query (SQL|(TStrings)) coloco también el codigo de color naranja que me dejaste?:

select calificacion, count(calificacion) As Cant 
from materias 
group by calificacion order by calificacion

O tan solo colooco una simple seleccion

Select *
From materias

Por que hice como me dijiste y coloque el 1er codigo q menciono aqui arribita y no me sale el resultado.... (Select calificacion, count(calificacion)......)
Help, como deberia hacerlo? Por que lo demás si lo coloque y solo me sale un solo resultado repetido para varias personas.
Graaacias

[*Caro*]

Empezado por sisne

La pregunta es el iconito o boton "Query" lo coloco en el form o DataModule (da igual) Osea que debo colocar ese iconito y en sus propiedades de este Query (SQL|(TStrings)) coloco también el codigo de color naranja que me dejaste?:

Hola de nuevo sisne, el Query es un componente de base de datos en este caso de BDE, puedes colocarlo en el form o DataModule, pero mejor que lo hagas en el segundo. Si ejecutas la consulta en diseño como lo estas haciendo, colocas en su propiedad "Sql" la consulta, ademas de colocar la propiedad "Active" a True. Para ver en dideño el resultado, puedes también colocar un DBGrid, un DataSource y los enlazas.

El ejemplo que te puse ejecuta la consulta en tiempo de ejecución.

Empezado por sisne

select calificacion, count(calificacion) As Cant 
from materias 
group by calificacion order by calificacion

O tan solo colooco una simple seleccion

Select *
From materias

Debes colocar la primera consulta, porque la segunda solo te va a devolver todos los registros de tu tabla materias.

Empezado por sisne

Por que hice como me dijiste y coloque el 1er codigo q menciono aqui arribita y no me sale el resultado.... (Select calificacion, count(calificacion)......)
Help, como deberia hacerlo? Por que lo demás si lo coloque y solo me sale un solo resultado repetido para varias personas.

No entiendo eso de que te sale un mismo resultado para varias personas, porque la consulta debería devolverte solo 3 registros, según el ejemplo que nos indicado:

Aprobados xx
Reprobados xx
SinhNota xx

donde xx es la cantidad.

Para poder ayudarte mejor escribe aquí el resultado que te sale al ejecutar la consulta.

Saluditos

[sisne]

Hola!
Como me dijeron mas antes coloqué y me sale el resultado. Solo que queria saber algo mas de sql en la programacion de delphi en su codigo y en sus propiedades del query de sql|strings. Es decir en ambos lugares se debe colocar el mismo codigo? este codigo en las propiedades del query (SQL|STRINGS):

Select calificacion, count(calificacion) As Cant 
from materias
group by calificacion order by calificacion

y lo demas como lo dejaste el codigo de naranja.
Pregunto:

Query.Close;
  Query.Sql.Text := 'select calificacion, count(calificacion) As Cant from materias '+
                           'group by calificacion order by calificacion';
  Query.Open;

En Query.close<--- se esta cerrando la consulta
En Query.open<---abriendo la consulta.
Query.Sql.Text<---esta haciendo la consulta???
Query.Sql.add<--vi en algunos q colocan eso tb...

Gracias!

[ecfisa]

Hola sisne.

No veo diferencia entre hacer:

Query.Clear;
Query.Add('...');

o:
Query.Text:='...'

Sólo que Query.Add te permite añadir sentencias a una consulta.

Pero eso desde mi pobre manejo de SQL...

Saludos.

[*Caro*]

Empezado por sisne

Hola!
Como me dijeron mas antes coloqué y me sale el resultado. Solo que queria saber algo mas de sql en la programacion de delphi en su codigo y en sus propiedades del query de sql|strings. Es decir en ambos lugares se debe colocar el mismo codigo? este codigo en las propiedades del query (SQL|STRINGS):

Hola de nuevo sisne, cualquier consulta sql que hagas, debes colocarlo en la propiedad Sql, si quieres lo haces en diseño o en ejecución, pero ya sea en diseño o ejecución es lo mismo.

Empezado por sisne

Pregunto:

Query.Close;
  Query.Sql.Text := 'select calificacion, count(calificacion) As Cant from materias '+
                           'group by calificacion order by calificacion';
  Query.Open;

En Query.close<--- se esta cerrando la consulta
En Query.open<---abriendo la consulta.
Query.Sql.Text<---esta haciendo la consulta???
Query.Sql.add<--vi en algunos q colocan eso tb...

Siempre que ejecutes una consulta van a ser los mismos pasos:

Query.Close; -> Cierra el Query
Query.Sql.Text o Query.Sql.Add -> Asignas la consulta sql que quieras
Query.Open -> Ejecuta la consulta que tienes en la propiedad Sql.

Y como te ha explicado ecfisa, si utilizas Query.Sql.Add, debes limpiar antes lo que tenías con Query.Clear.

También puedes ejecutar la consulta con la propiedad Active.

Código Delphi [-]
  Query.Active := False;
  Query.Sql.Text := 'tu consulta';
  Query.Active := True;

Saluditos