Procedure en Firebird lento o IbQuery lento

[capo979]

Hola, lo que tengo dentro del SP un for que recorre un select y dentro de este for hago algunos calculos, pero algo debe estar pasando porque 10000 registros es muy poco

[capo979]

lo que anda lento parece ser es que tengo dentro del for una consulta asi

select max(id) from tabla where (estab = :estab) and (doc = :doc)
into :maxid;

el problema es con el max me parece

que me pueden decir

[[egostar]]

Yo lo que creo es una combinacion de sentencias la que te hace lenta la consulta, he recreado tu select en una base con 20,000 registros y es de inmediata la respuesta tanto en IBExpert como en Delphi.

Yo insisto en que si no muestras tu SP completo es difícil ayudar, pero noto cierta renuencia de tu parte a hacerlo.

Salud OS.

[capo979]

este es mi SP

CREATE PROCEDURE GEN_ANIMALES (
ESTABLECIMIENTO INTEGER,
ACTUAL DATE,
CON_EVENTO VARCHAR (1) CHARACTER SET NONE)
RETURNS (
ANIMAL INTEGER,
RP VARCHAR (10) CHARACTER SET NONE,
SEXO INTEGER,
RAZA INTEGER,
RAZA_NOMBRE VARCHAR (50) CHARACTER SET NONE,
RODEO INTEGER,
CATEGORIA INTEGER,
CATEGORIA_NOMBRE VARCHAR (50) CHARACTER SET NONE,
CRONO_DENT INTEGER,
ESTADO_REPRO INTEGER,
NACIMIENTO DATE,
EDAD INTEGER,
POTRERO INTEGER,
ACTIVO VARCHAR (1) CHARACTER SET NONE,
COND_CORP INTEGER,
GDR INTEGER,
PESO INTEGER,
RECHAZADO VARCHAR (1) CHARACTER SET NONE,
FRAME FLOAT,
ESTADO_ACTUAL VARCHAR (50) CHARACTER SET NONE,
ULTIMO_EVENTO VARCHAR (255) CHARACTER SET NONE,
EDADCAPTION VARCHAR (12) CHARACTER SET NONE,
ESTADO_LACTACION INTEGER)
AS -- estado_actual, ultimo_evento, datos_eve se deben calcular
declare variable mensaje varchar(50);
declare variable ultimo_eve integer;
declare variable evento varchar(255);

BEGIN
for select ta.id_animal, ta.id_rp, cs.tipo, ta.raza, cr.nombre, ta.rodeo, ta.categoria, cc.nombre,
ta.cronologia_dentaria, ta.estado_reproductivo, ta.fecha_nacimiento, ta.potrero,
ta.activo, ta.condicion_corporal, ta.gdr, ta.peso, ta.rechazado, ta.frame, ta.estado_lactacion
from tab_animales ta, cod_sexos cs, cod_categorias cc, cod_razas cr
where (ta.establecimiento = :establecimiento) and (ta.sexo = cs.id_sexo)
and (ta.raza = cr.id_raza) and (ta.categoria = cc.id_categoria)
into :animal, :rp, :sexo, :raza, :raza_nombre, :rodeo, :categoria, :categoria_nombre, :crono_dent,
:estado_repro, :nacimiento, otrero, :activo, :cond_corp, :GDR, eso, :rechazado, :frame, :ESTADO_LACTACION
do
begin
if (eso is null) then
begin
select first 1 ep.peso from eve_eventos ee, eve_peso ep
where ee.id_evento = ep.id_evento
and ee.animal = :animal
and ee.establecimiento = :establecimiento
order by ee.fecha desc
into eso;
end

edad = (actual - nacimiento)/365;
if (edad < 2) then
EdadCaption = cast(((actual - nacimiento)/30) as varchar(6))||' meses';
else
EdadCaption = cast(edad as varchar(6))||' años';

-- recupero el estado actual desde el sp genereado para calcular el estado actual
select estado_actual from gen_estado_actual(:animal)
into :estado_actual;

--me fijo si tengo que generar_datos del evento
if (con_evento = 'S') then
begin
select max(id_evento) from eve_eventos where (establecimiento = :establecimiento) and (animal = :animal)
into :ultimo_eve;

select nombretipoevento, infoevento from get_datos_eventos_grupal(:ultimo_eve, null, :establecimiento)
into :evento, :ultimo_evento;

ultimo_evento = evento || ', '||ultimo_evento;
end
SUSPEND;
end
END

si yo comento esto

if (eso is null) then
begin
select first 1 ep.peso from eve_eventos ee, eve_peso ep
where ee.id_evento = ep.id_evento
and ee.animal = :animal
and ee.establecimiento = :establecimiento
order by ee.fecha desc
into eso;
end

y esto

select max(id_evento) from eve_eventos where (establecimiento = :establecimiento) and (animal = :animal)
into :ultimo_eve;

anda rápido pero si lo dejo se pone muy lento

tengo todos los indices creados

y utilizo firebird 1.5

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

Una pregunta; ¿Hay alguna razón para no usar JOIN's (INNER sobre todo, -si es posible-) en las consultas y realizar las uniones entre tablas usando los WHERE?

[Mick]

Empezado por capo979

lo que anda lento parece ser es que tengo dentro del for una consulta asi

select max(id) from tabla where (estab = :estab) and (doc = :doc)
into :maxid;

el problema es con el max me parece

que me pueden decir

Por lo ultimo que explicas a mi parecer todo va rapido solo 10 segundos, estas ejecutando un select por cada registro de la sentencia inicial, eso si el sistema, no escalará bien, cuantos mas registros mas selects a realizar y mucho mas lento.

De todas formas es probable que lo puedas acelerar mas: ¿ seguro que tienes creado un indice "DESCENDENTE" para el campo ID de la tabla ?

Un max(ID) para que sea rapido exige un indice DESCENDENTE sobre el campo ID, no sirve la clave primaria ni un indice normal ascendente (estos solo valen para acelerar la funcion MIN).

Asegurate de usar el ibconsole o cualquier otro programa para probar las queries y mirar el tiempo que tardan y el PLAN que se genera para saber si se esta usando algun indice si pone PLAN (TABLA NATURAL) malo malo, no hay ningun indice que se pueda usar para acelerar la consulta.

Saludos

[capo979]

Hago una consulta es posible que en un dbgrid en delphi que tiene asociado un IBQuery no espere a mostrar los datos hasta que termine de cargar los registros.
Por ejemplo tenemos una consulta que la ejecutamos con un IBQuery y esa consulta nos devuelve 30000 registros y el dbgrid no espere a que termine de leer la consulta y que te muestre los que están en pantalla directamente. Si luego navegamos por el dbgrid y bajamos con el scroll ahi si que se actualice. Yo utilizo el EMS como Manager de mi base en firebird y EMS hace esto que digo yo luego que ejecuta una consulta.