Llamada a procedimiento Oracle

[hackerinblues]

Hola, este es el primer hilo que abro despues de leer muchos otros que me han servido de mucha ayuda pero para el problema que se me presenta actualmente no he encontrado respuesta.
La pregunta es la siguiente:
Estoy utilizando ADO+Oracle en una aplicacion hecha en Builder 2006.
Accedo a una BBDD remota en donde se encuenta un procedimiento almacenado que quiero ejecutar pero no encuentro la forma correcta.
El procedimiento tiene la forma siguiente:

procedimiento(
aaa IN number,
bbb IN number,
ccc IN number,
ddd IN number,
eee IN number,
codigo_error OUT number
)

El tema es que no se como conseguir el dato codigo_error ...

Yo tengo algo asi pero me falta saber como recuperar el ultimo parametro...
DECLARE
salida number;
BEGIN
procedimiento(a,b,c,d,e,???);
???????
END;

(Siento si he escrito alguna tonteria pero no estoy acostumbrado a pl sql)

Gracias.

[jachguate]

ADO tiene un componente TAdoStoredProc. Configuralo con el nombre del procedimiento y ceará automáticamente los parámetros, tanto de entrada como de salida.

Así, podes finalmente tener algo como:

Código Delphi [-]
  spProcedimiento.Params.ParamByName('aaa').AsInteger := 1;
  spProcedimiento.Params.ParamByName('bbb').AsInteger := 2;
  spProcedimiento.Params.ParamByName('ccc').AsInteger := 3;
  spProcedimiento.Params.ParamByName('ddd').AsInteger := 4;
  spProcedimiento.ExecProc;
  CodigoError := spProcedimiento.Params.ParamByName('codigo_error').AsInteger;
  if CodigoError <> 0 then
    raise EErrorEnProcedimiento.CreateFmt('Error No %d', [CodigoError]);

Hasta luego.

[hackerinblues]

gracias por la respuesta, es mucho mas comodo utilizar ese componente (no sabia que existia), ahora tengo otro problema: cuando hago el ExecProc me devuelve el siguiente error:
"One or more errors occurred during processing of command"

El codigo es este:

//cargo los valores de entrada del procedimiento
proc->Parameters->ParamByName("aaa")->Value = xxx;
proc->Parameters->ParamByName("bbb")->Value = xxx;
proc->Parameters->ParamByName("ccc")->Value = xxx;
proc->Parameters->ParamByName("ddd")->Value = xxx;
proc->Parameters->ParamByName("eee")->Value = xxx;

//ejecuto el procedimiento
proc->Prepared = true;
proc->ExecProc();

//luego recogeria el dato que devuelve el procedure ...

[jachguate]

Empezado por hackerinblues

cuando hago el ExecProc me devuelve el siguiente error:
"One or more errors occurred during processing of command"

Hola.

Detesto ADO... no lo uso mas que cuando sea necesario, precisamente por esto: sus mensajes de error no son nada claros. Lamento no ser de mucha ayuda. Lo que se me ocurre es probar en el SQL*Plus la ejecución del procedimiento directamente usando los parámetros con los que se invoca desde delphi, y si hay información de estado en el contexto (sesión, valores en tablas, etc.), pues que el estado también sea el mismo.

Esto porque es MUY probable que se esté elevando una excepción desde el propio Oracle, pero que ADO se trague el mensaje de error original y lo sustituya por uno propio. (no es la primera vez que lo haría).

Hasta luego.

[hackerinblues]

Pues no, mucho no me aclara ese error no. De todos modos gracias por la respuesta. Voy a seguir mirando de donde puede venir el fallo y cuando lo solucione lo comento aqui. Un saludo.

[hackerinblues]

bueno el TADOStoredProc me esta dando unos problemillas asi que estoy intentando ejecutar el procedimiento desde consultas "a mano".
El tema es que no controlo mucho de PL SQL y no se como recoger el parametro de salida del procedimiento...

Tengo algo asi:
(codigo c++)

consulta = new TADOQuery(NULL);
consulta->Connection = ADOConnection1;
consulta->SQL->Add("declare codigo number; begin nombre_procedimiento(100,1,1,1,1,codigo); end; ");
consulta->Prepared = true;
consulta->ExecSQL();

.....

Esto me funciona bien y dentro del procedimiento se modifica el valor del
parametro 'codigo'. Ahora lo que necesito es recuperar ese valor y guardarlo en una variable int (por ejemplo) en mi aplicacion y no se como...

[jachguate]

mmm.. francamente no creo que sea posible de esta manera, pues la variable se crea dentro del bloque anónimo de PL/SQL y existe solamente en el contexto de su ejecución. Dicha ejecución ya ha terminado cuando el control vuelve a Delphi.

Quizás funcione usando un parámetro. Estos se declaran con el signo de dos puntos.

Código SQL [-]
begin
  nombre_procedimiento(1, 2, 4, 5, 6, :parametro);
end;

Francamente no tengo idea si funcionará...

Saludos.

[hackerinblues]

Gracias jachguate por todas tus respuestas.

Bueno pues habra que volver a pelearse con el TADOStoredProc...
estoy intentando partir de un ejemplo mas sencillo:
tengo un proc almacenado que no tiene parametros de entrada, simplemente devuelve un numero (que se incrementa cada vez que se invoca el p.a.)

el procedimiento se ejecuta bien pero no logro recoger el dato de vuelta...

Cuerpo del procedimiento (de sql server en este caso):

begin transaction
update tabla_xxx set valor = valor + 1 where nombre = 'xxx'
select valor from tabla_xxx where nombre = 'xxx'
commit

Como hago para recoger ese dato?
Con un TADOQuery hago algo asi:

String respuesta = consulta->Fields->operator [](0)->AsString;


como hago desde el TADOStoredProc? Gracias.

[jachguate]

¿esto está dentro de un stored procedure?

Si es así, al poner el nombre, automáticamente el componente debiera "crear" los parámetros de entrada y salida del mismo. Podes comprobarlo haciendo clic en el botón de los puntos suspensivos de la propiedad Params en el inspector de objetos.

A dichos parámetros y sus propiedades tenes acceso mediante la propiedad "Params" del componente StoredProc. Podes obtener individualmente el valor de un parámetro específico así:

Código Delphi [-]
  Valor := AdoStoredProc1.Params.ParamByName('salida').AsInteger;

Hasta luego.

[hackerinblues]

Olvidalo tio, alguien me ha pasado una descripcion de proyecto un tanto "erronea". No era un procedimiento almacenado, era una FUNCION !!


En fin, que ahora me mirare como invocar funciones... siento que hayas perdido asi el tiempo. (Mas he perdido yo xDD).

Venga un saludo jachguate

[jachguate]

Para invocar una función, podes poner en un query:

Código SQL [-]
  select nombre_funcion(parametro1, parametro2)
    from dual;

Hasta luego.

[hackerinblues]

Hola de nuevo, utilizo oraedit para hacer las pruebas y en el escribo lo siguiente:

Código SQL [-]
declare 
cod number := 0;
salida number;
begin 
salida := XXX(8,888,1,3,3,cod);
end;

Esto funciona perfectamente, fijate en que necesito declarar cod antes de invocar a la funcion.

Luego en mi aplicacion,en la query escribo:

select XXX(8,888,1,3,3,0) from dual

pero claro me dice que el ultimo parametro no es correcto:
ORA-06572: La función XXX tiene argumentos externos

entonces tengo que pasarle un parametro de tipo number que tengo que declarar antes pq si pongo directamente esto:

select XXX(8,888,1,3,3,cod) from dual

me contesta: "ORA-00904: \"COD\": identificador no válido"

en resumen: tengo que definir primero el parametro cod. He probado haciendo un declare primero, algo asi:

declare cod number;begin select XXX(8,888,1,3,3,cod) from dual; end;

pero me devuelve:

ORA-06550: línea 1, columna 26:\nPLS-00428: se espera una cláusula INTO en esta sentencia SELECT"

tambien he intentado crear un parametro en la query:

consulta->Parameters->CreateParameter("cod",ftInteger,pdInputOutput,20,0);

(no existe el tipo de dato number asi que he utilizado integer...)

y tampoco funciona, me contesta: ORA-00904: \"COD\": identificador no válido"


Alguna idea? Gracias

[jachguate]

esta es mi idea:

Código SQL [-]
select xxx(8,888,1,3,3, :cod)
  from dual;

Código Delphi [-]
  Query1.Params.ParamByName('cod').AsInteger := 150;
  Query1.Open;
  Resultado := Query1.Fields[0].Value;

Hasta luego.

[hackerinblues]

Desde SQL el problema es el parametro ese que es de salida (OUT)

hago lo que me pusiste:
select XXX(2,2,2,2,2,:cod) from dual;

pero me devuelve :

ORA-06572: La función XXX tiene argumentos externos


Y luego desde el codigo lo mismo:

Código Delphi [-]
consulta->Parameters->CreateParameter("Vn_Codigo_Error",ftFloat,pdOutput,2,NULL);
consulta->SQL->Add("select XXX(77,5,1,1,1,:Vn_Codigo_Error) from dual");
consulta->Open();

(probe a acabar la sentencia con ; y sin el, probe con ftFloat,ftInteger..., probe con open() y con execsql() y nada ... )

me devuelve el mismo error:
ORA-06572: La función XXX tiene argumentos externos

segun este error no se puede invocar a funciones con parametros de salida
sin embargo si defino primero la variable y luego lo invoco desde un bloque sql si que funciona ( ?¿?¿?¿?¿ )

Código SQL [-]
declare
cod number;
salida number;
res number;
begin
salida := XXX(666,1,1,1,1,cod);
dbms_output.put_line(salida);
end;

Este codigo funciona bien. A alguien le ha pasado algo parecido ?
Empiezo a odiar esto xD
Gracias.

[hackerinblues]

Hola de nuevo. Al final se ha modificado la funcion para que solo tenga parametros de entrada (plsql no permite parametros de salida para funciones).

Ejecuto la sentencia:

declare
ret number;

begin
ret := null;

ret := nombre_funcion ();

dbms_output.put_line('ret = ' || to_char(ret));

end;


esto me muestra el resultado que yo espero, sin embargo no me lo muestra cuando hago desde codigo:

select nombre_funcion() from dual

(en ambos casos utilizo los mismos parametros).

Nota: dentro de la funcion se hace un insert en una tabla, el primer caso lo hace bien por eso me devuelve lo que esperaba pero la segunda forma no hace bien el insert y por eso me devuelve una excepcion.
a q puede ser debido esto? (Si intento hacer el insert a secas tambien me lo permite pero desde la funcion cuando utilizo la forma "select funcion() from dual" no).

Gracias pos su ayuda, un saludo.

[hackerinblues]

Bueno finalmente os comento como lo he solucionado.

Lo primero decir que las unicas funciones que se pueden llamar de la forma:
Select nombrefuncion() FROM dual, son las funciones que ya vienen compiladas como AVG,SUM,MAX,sysdate... pero las funciones externas que crea el usuario no.
Por lo tanto ante la dificultad de recoger la salida de la funcion he optado por cambiar las funciones por procedimientos almacenados, mucho mas sencillos de tratar gracias al componente TADOStoredProc. Aqui tb se me ha planteado otro problema ya que la asignacion del nombre del procedimiento la hago en tiempo de ejecución por lo que los parámetros de entrada no se generan automáticamente como me comentaba jachgyate y hay q crearlos desde codigo.

Espero que a alguien le sirva de algo la explicación.Si alguien quiere algun trozo de codigo solo tiene que pedirlo.
Un saludo