Select registros master según nº de líneas de detalle

[fidel]

Hola.

Win XP
Delphi 7
FireBird 1.5 enlazado con IBX

Tengo una tabla Master llamada ALUMNOS con su detalle FALTAS de disciplina.

Quiero seleccionar los alumnos que tengan un numero determinado de faltas, comprendido entre dos números cogidos de dos Edits.

Por ej. que me liste todos los alumnos con un número de faltas comprendido entre 5 y 10.

No se como hacerlo.

¿ Alguna idea o sitio donde encontrar ayuda sobre esto ?

Muchas gracias.

Un saludo.

[[poliburro]]

Código SQL [-]
       Select Maestro.CveAlumno, Count(*)
         From TablaMaestro As Maestro
    Left Join TablaFallas As Fallas
           On Maestro.CveAlumno = Fallas.CveAlumno
   Group By Maestro.CveAlumno
      Having Count(*) > 5 And
              Count(*) < 10

[roman]

¿Qué no podemos ahorrarnos el join?

Código SQL [-]
select CveAlumno, count(CveAlumno)
from Fallas
group by CveAlumno
having count(CveAlumno) between 5 and 10

// Saludos

[fidel]

Muchas gracias, Poliburro y Román, voy a probarlo.

Un saludo.

[fidel]

Me da este error:

Token Unknown -line 2, char 15 As

Código SQL [-]
  DM.IBDSAlumnos.SelectSQL.Add('Select Maestro.CODIALUMNO, Count(*)');
  DM.IBDSAlumnos.SelectSQL.Add(' From ALUMNOS As Maestro');
  DM.IBDSAlumnos.SelectSQL.Add(' Left Join FALTAS As Faltas');
  DM.IBDSAlumnos.SelectSQL.Add(' On Maestro.CODIALUMNO = Faltas.CALUMNO');
  DM.IBDSAlumnos.SelectSQL.Add(' Group By Maestro.CODIALUMNO');
  DM.IBDSAlumnos.SelectSQL.Add(' Having Count(*) between ESDE and :HASTA');

  DM.IBDSAlumnos.ParamByName('DESDE').AsInteger := StrToInt('0' + EDesde.Text);
  DM.IBDSAlumnos.ParamByName('HASTA').AsInteger := StrToInt('0' + EHasta.Text);

¿Qué está mal?

Gracias.

[[poliburro]]

Empezado por roman

¿Qué no podemos ahorrarnos el join?
Código SQL [-]
select CveAlumno, count(CveAlumno)
from Fallas
group by CveAlumno
having count(CveAlumno) between 5 and 10
// Saludos

Si nos lo ahorraramos que sucedería con aquellos alumnos del maestro que no tuvieran faltas? (Detalle de faltas)?. Pues estos no aparecerían. y el reporte sería erroneo, a menos que explicitamente quisieran solo a los que tienen faltas. :P

Prueba con esto amigo.

[delphi]

Código Delphi [-]
With DM.IBDSAlumnos Do
  Begin
    SelectSQL.Text := 
      '    Select Maestro.CODIALUMNO, Count(*) ' +
      '      From ALUMNOS As Maestro ' +
      ' Left Join FALTAS As Faltas   ' +
      '        On Maestro.CODIALUMNO = Faltas.CALUMNO ' + 
      '  Group By Maestro.CODIALUMNO ' +
      ' Having Count(*) between ESDE and :HASTA';
    ParamByName('DESDE').AsInteger := StrToInt('0' + EDesde.Text);
    ParamByName('HASTA').AsInteger := StrToInt('0' + EHasta.Text);
  End;

Suerte

[roman]

Empezado por poliburro

Si nos lo ahorraramos que sucedería con aquellos alumnos del maestro que no tuvieran faltas?

Empezado por fidel

Quiero seleccionar los alumnos que tengan un numero determinado de faltas, comprendido entre dos números

Claro que tienes razón, pero entiendo de la pregunta original que sólo interesan alumnos con faltas. Pero ciertamente, si se trata de una especie de reporte general, el join es necesario.

// Saludos

[fidel]

Hola:

Lo que me indicas es lo mismo que tengo pero puesto en vez de con add en varias líneas con Text en una sola línea, por lo que da el mismo error, en el As, solo que ahora está en la linea 1 Char 60 .

Lo he cambiado así

Código SQL [-]
  DM.IBDSAlumnos.SelectSQL.Add('Select ALUMNOS.CODIALUMNO, Count(*)');
  DM.IBDSAlumnos.SelectSQL.Add(' From ALUMNOS');
  DM.IBDSAlumnos.SelectSQL.Add(' Left Join FALTAS');
  DM.IBDSAlumnos.SelectSQL.Add(' On ALUMNOS.CODIALUMNO = FALTAS.CALUMNO');
  DM.IBDSAlumnos.SelectSQL.Add(' Group By ALUMNOS.CODIALUMNO');
  DM.IBDSAlumnos.SelectSQL.Add(' Having Count(*) between ESDE and :HASTA');

  DM.IBDSAlumnos.ParamByName('DESDE').AsInteger := StrToInt('0' + EDesde.Text);
  DM.IBDSAlumnos.ParamByName('HASTA').AsInteger := StrToInt('0' + EHasta.Text);

  DM.IBDSAlumnos.Open;

y ahora pasa sin error pero al abrir la tabla alumnos me da
IBDSAlumnos: campo 'NOMBRE' no encontrado.

Si en el select le añado el campo NOMBRE (Select ALUMNOS.CODIALUMNO, ALUMNOS.NOMBRE, Count(*)) me da otro error en Group By:

Invalid expression in the select list (not contained in either an agregate function or the GROUP BY clause)

Un saludo.

[[poliburro]]

Entonces pruebalo así

Código SQL [-]


 
With DM.IBDSAlumnos Do  Begin    
    SelectSQL.Text :=
      '    Select Maestro.CODIALUMNO, Count(*) ' +
      '      From ALUMNOS As Maestro ' +      ' Left Join FALTAS As Faltas   ' +
      '        On Maestro.CODIALUMNO = Faltas.CALUMNO ' +
      '  Group By Maestro.CODIALUMNO ' +
      ' Having Count(*) between ' + EDesde.Text + ' And ' + EHasta.Text;  
End;

[d-hugo]

El problema que yo veo es que no se especifica lo que se está contando. Yo usaría esto:

Código SQL [-]
SELECT alumnos.codialumno, COUNT(faltas.calumno) AS numfaltas
  FROM alumnos
  LEFT JOIN faltas ON alumnos.codialumno=faltas.calumno
GROUP BY alumnos.codialumno
HAVING (COUNT(faltas.calumno) BETWEEN [:desde] AND [:hasta]);