¿como saber cuantos registros devuelve un select?

[JXJ]

hola.

comop puedo hacer pasa conocer cuantos registros obtengo en un select en un stored procedure

en delphi hago una consulta

Código Delphi [-]
select * from tabla where alumno = 'jxj'
//y con un 
for i := o to query1.recordcount - 1 do 
begin
// aqui hago algo
end;


// o solo con el recordCount  obtengo la cantidad de registros

¿en firebird como se puede hacer lo mismo?
¿un bucle por los registros devuelto y obtener la cantidad de registros?


gracias

[Ñuño Martínez]

Si preguntas cómo obtenerlo vía SQL, es fácil:

Código SQL [-]
SELECT COUNT (*) AS num_registros FROM tabla WHERE blablabla;

[Neftali [Germán.Estévez]]

Imagino que los motores hacen esto mismo cuando ejecutas la SQL que te ha puesto Ñuño, pero yo por costumbre suelo hacer una cosa asi:

Código SQL [-]
SELECT COUNT (campo_clave_primaria) FROM TABLA WHERE 'blablabla'

[[duilioisola]]

Creo que preguntas como hacer lo que ejemplificas dentro de un Stored Procedure en Firebird.

Código SQL [-]
for select campo1, campo2, ... from alumnos
    where alumno = 'jxj'
    into :var1, :var2
begin
    /* hago algo */
end

Si fuera en Delphi, en casos como el que presentas y no averiguo cuantos hay. Recorro hasta llegar al final con un WHILE

Código Delphi [-]
while not Query1.EOF do
begin
   // Hago algo
   Next;
end;

[[duilioisola]]

Código SQL [-]
/* Ejemplo para sacar un promedio de notas de un alumno */
create procedure promedio (
    alumno varchar(10))
returns (
    promedio double precision)
as
declare variable cantidad integer;
declare variable total_nota double precision;
begin
    /* Averiguo cuantas notas hay */
    select count(*)
    from notas_alumnos
    where
    alumno = :alumno
    into :cantidad;

    /* Sumo las notas */
    totalnota = 0;
    for select nota
        from notas_alumnos
        where
        alumno = 'jxj'
        into :nota
    do
    begin
        totalnota = totalnota + nota;
    end

    /* Calculo el promedio */
    promedio = totalnota / cantidad;

    suspend;
end

[Casimiro Notevi]

Empezado por duilioisola

Si fuera en Delphi, en casos como el que presentas y no averiguo cuantos hay. Recorro hasta llegar al final con un WHILE

Código Delphi [-]
while not Query1.EOF do 
begin    
  // Hago algo    
  Next; 
end;

No recuerdo ahora, de memoria, pero para hacer eso será mejor algo así:

Código Delphi [-]
Query1.Last
Query1.RecordCount

[roman]

Empezado por Casimiro Notevi

No recuerdo ahora, de memoria, pero para hacer eso será mejor algo así:

Código Delphi [-]
Query1.Last
Query1.RecordCount

Ya, pero eso es poco práctico. Mejor el count(*).

// Saludos