NPIdea
21-11-2008, 13:42:07
Hola a todos.
Pues he conseguido con el IBExpert crear un procedure de busqueda recursiva y ahora intento el poder traer los datos a mi programa y no logro ver nada.
He probado con IBQuery y con IBStoredProc y no hay manera.
La estructura del procedure es:
CREATE PROCEDURE RUTA_ACOMETIDA (
acometedor integer)
returns (
id integer,
acometido integer)
as
begin
FOR SELECT id,acometido
FROM acometidas
WHERE id = :acometedor
INTO :id,:acometido
DO BEGIN
if (acometido is not null)
then begin
SUSPEND;
for select id, acometido
from RUTA_ACOMETIDA(:acometido)
into :id,:acometido
do begin
if (acometido is not null)
then SUSPEND;
end
end
END
end^
¿Qué componente uso y que parametros debo utilizar?
Trabajo con Interbase 2007 y Delphi 2009.
Un saludo.
Pues he conseguido con el IBExpert crear un procedure de busqueda recursiva y ahora intento el poder traer los datos a mi programa y no logro ver nada.
He probado con IBQuery y con IBStoredProc y no hay manera.
La estructura del procedure es:
CREATE PROCEDURE RUTA_ACOMETIDA (
acometedor integer)
returns (
id integer,
acometido integer)
as
begin
FOR SELECT id,acometido
FROM acometidas
WHERE id = :acometedor
INTO :id,:acometido
DO BEGIN
if (acometido is not null)
then begin
SUSPEND;
for select id, acometido
from RUTA_ACOMETIDA(:acometido)
into :id,:acometido
do begin
if (acometido is not null)
then SUSPEND;
end
end
END
end^
¿Qué componente uso y que parametros debo utilizar?
Trabajo con Interbase 2007 y Delphi 2009.
Un saludo.