Procedimiento Almacenado

[rodrigo19]

por favor necesito ayuda!!!

[[Vyckso]]

Hola

En vez de usar un procedimiento, que lo unico que hace es ejecutarse sin devolverte nada, deberias crear una función:

Código SQL [-]
Create or repalce function "Mifuncion" as
Begin
  (Codigo de la función)
  Result := Resultado;
End;
/

Esto en principio te devuelve un solo registro, creo, si no es asi por favor que me corrija alguien ya que me gustaria saber como, que las funciones no pueden devolver un grupo de registros.

En este caso puedes crearte un procedimiento que lo que haga es añadirte a una tabla temporal lo que necesitas y tirar de los registros de la tabla en cuestion

Salu2

[rodrigo19]

Saludos a todos y espero que me puedan ayudar, el problema que tengo es que estoy trabajando con Oracle 9i y tengo un procedimiento almacenado que contiene el siguiente sql:

Código SQL [-]
Select CODIGO from CLIENTES

esta sentencia me deberia dar como resultado todos los codigos de todos los clientes pero a la hora de compilarlo me da un error; necesito todos los codigos para luego almacenar el resultado en un DataSet o un DataTable.

Si tienen alguna informacion que me pueda ayudar se los agradeceria mucho. Muchas Gracias.

[luisgutierrezb]

si no pones el codigo del procedimiento dudo mucho que alguien te pueda ayudar, las bolas de cristal estan escasas estos dias...

[rodrigo19]

Este es el codigo del procedimiento almacenado

Código SQL [-]
CREATE OR REPLACE  PROCEDURE "USV09"."SELECCIONCODIGOS" 
    SELECT CODIGOS FROM CLIENTES;
 END SELECCIONCODIGOS;

pero no hace nada o no me da el resultado que quiero, que son todos los codigos de los clientes. Muchas Gracias.

[jr_ewing]

Rodrigo, tendrías que hacer un procedimiento que utilice como parámetro de salida un REF CURSOR. Para eso te conviene generarte un package, o utilizar algun existente, en el que declares primero un TYPE genérico y público, más el procedimiento que va a tener algún parámetro de salida del nuevo tipo:

Código SQL [-]
Create or Replace package MY_PACK is
 
TYPE TCursor is REF CURSOR;
 
PROCEDURE SELECCIONCODIGOS(cCursor out TCursor);
 
END;

El BODY sería así:

Código SQL [-]
Create or Replace package body MY_PACK is
 
PROCEDURE SELECCIONCODIGOS(cCursor out TCursor) is
begin
  open cCursor for 
    select CODIGOS from CLIENTES;
end;
 
END;
/

Y después, en Delphi, te creas un TQuery (por ejemplo, QSelCod) con el sgte código en donde escribís el SQL:

Código Delphi [-]
begin
  MY_PACK.SELECCIONCODIGOS(:cCursor);
end;

Luego, desde la aplicación hacés el QSelCod.Open y listo.

Tené en cuenta que, dependiendo de la versión de Delphi que utilices, o si utilizás algun componente externo de conexión, tendrás que setear o no el parámetro. Si lo tenés que hacer, seleccioná tipo de dato Cursor y tipo de parámetro Output.

Suerte!