Llamada a procedimiento Oracle

[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.