[NPIdea]

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:

Código Delphi [-]
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.