Ayuda con procedimiento almacenado

[jhonny]

Bueno, dentro de la sentencia SQL debería ir algo como:

Código SQL [-]
execute procedure nombre_del_procedimiento(parametro1, parametro2, parametro3...parametroN);

para luego ejecutarla, utilizando el metodo ExeCuteSQL, del IBQuery.

[XBart]

esto lo pongo en el query

query.sql.add:=('execute procedure nombresp(parametros)');

y me maarca error, seria mucha molestia me pusieras un ejemplo de como lo usas tu, mi sp solo usa un parametro, el sp es el siguiente:

SET TERM ^ ;
CREATE PROCEDURE SP_AUTOR_ALTA (
PAUTOR VARCHAR(60))
RETURNS (
RESULTADO VARCHAR(50))
AS
DECLARE VARIABLE TAUTOR VARCHAR(60);
begin
/* Procedure Text */
select autor_nom
from cat_autor
where autor_nom = autor
into :tautor;
/* Verifica si el cliente existe */
if (:tautor is null) then
begin
insert into cat_autor(autor_nom)
values(autor);
RESULTADO = 'AUTOR GRABADO';
end
else
begin
resultado = 'ESE AUTOR YA EXISTE';
end
suspend;
end


gracias

[jhonny]

Pues en tu caso,s ería asi:

Código Delphi [-]
query.Close;
query.SQL.clear;
query.SQL.add('execute procedure SP_AUTOR_ALTA(:PAUTOR)');
query.Close;
query.ParamByName('PAUTOR').AsString := //Aca la variable con el codigo del autor...
query.ExecSQL;

Y eso ejecutaría tu procedimiento almacenado.

[XBart]

gracias, lo voy a probar ahorita y te escribo...

gracias

[XBart]

gracias jhonny, funciono muy bien, ahora mi pregunta es como recupero el valor de la respuesta, si no es mucha molestia. gracias

[guillotmarc]

Hola.

Lo tienes en un parámetro (de salida), así que lo puedes leer de forma parecida a como has dado valor a los parámetros (de entrada).

ShowMessage('Resultado: ' + query.ParamByName('RESULTADO').AsString);

Saludos