Llamada a procedimiento Oracle

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