Error al ejecutar procedimiento almacendado con el componente TSQLStoredProc

[novato_erick]

Hola Chicos tengo esta duda:

Utilizo Firebird y tengo un procedimiento almacenado que me consulta el ultimo id insertado trayendome el datos del mismo:

Código SQL [-]
CREATE PROCEDURE LASTFAMILIAGREGADA
RETURNS(
  COD_FAMILIA VARCHAR(25) CHARACTER SET ASCII COLLATE ASCII,
  NOM_FAM VARCHAR(100) CHARACTER SET ASCII COLLATE ASCII,
  DESCRI VARCHAR(250) CHARACTER SET ASCII COLLATE ASCII)
AS
DECLARE VARIABLE ID_FAM INTEGER;
DECLARE VARIABLE MI_ID INTEGER;
BEGIN
  /* Procedure body */ 
 SELECT * from LASTFAMILIAGREGADA_ID into :ID_FAM;
 MI_ID = ID_FAM;
 select f.COD_FAMILIAS, f.NOMBRE, f.DESCRIPCION from FAMILIAS f where f.ID_FAMILIAS =  :MI_ID INTO :COD_FAMILIA, :NOM_FAM, ESCRI;
SUSPEND;

END;

ahora en delphi utilizo el componente TSQLStoredPrc asignando sus respectivos valores en propiedades sin embargo al hacer esto:

Código Delphi [-]
with dmStoreProcedure.spUltimaFamiliaAgregada do
  begin
  ExecProc; //Aqui me manda el error LASTFAMILIAGREGADA": Actual number of parameters (1) exceeds the current number of stored procedure parameters (0). Either uncheck the ParamCheck component property or review the parameter list content.
  codF := Params.ParamByName('COD_FAMILIA').Value;
  NomF := Params.ParamByName('NOM_FAM').Value;
  DescF := Params.ParamByName('DESCRI').Value;
  end;

Alguna idea?

Saludos a Todos

[novato_erick]

Hola

Respondiendo yo mismo a mi consulta y realizando prueba hice esto:

Código Delphi [-]
with dmStoreProcedure.spUltimaFamiliaAgregada do
  begin
  ExecProc;//Quité esta linea ahora para cada vez que quiero que me refresque el último registro 
  codF := Params.ParamByName('COD_FAMILIA').Value;
  NomF := Params.ParamByName('NOM_FAM').Value;
  DescF := Params.ParamByName('DESCRI').Value;
  Close;//Cierro el SP espero que esto sea correcto
  end;

Saludos

[cloayza]

Prueba con esto...

Código Delphi [-]
    with dmStoreProcedure.spUltimaFamiliaAgregada do
    begin                                                            
           {Si tú procedimiento recibe algún  parametro...}
           ParamByName('PARAM1').AsInteger :=Param1;         
           {
           ExceQuery: Si estas retornando valores desde el Store Procedure. 
           ExecProc: Si estas no retornas valores;
           }
           ExecQuery;   
           codF  := FieldByName('COD_FAMILIA').Value;
           NomF := FieldByName('NOM_FAM').Value;
           DescF := FieldByName('DESCRI').Value;          
           Close;       
end;

No indicas que componentes estas usando para acceso a la base de datos, ExecQuery y ExecProc suponiendo que usas FIBPlus. No se si para IBX son las mismas sentencias...

Saludos cordiales

[novato_erick]

En realidad realidad en el procedimiento en el mismo motor de base de datos Firebird 2.5 hago esto:

Código SQL [-]
CREATE PROCEDURE LASTFAMILIAGREGADA
RETURNS(
  COD_FAMILIA VARCHAR(25) CHARACTER SET ASCII COLLATE ASCII,
  NOM_FAM VARCHAR(100) CHARACTER SET ASCII COLLATE ASCII,
  DESCRI VARCHAR(250) CHARACTER SET ASCII COLLATE ASCII)
AS
DECLARE VARIABLE ID_FAM INTEGER;
DECLARE VARIABLE MI_ID INTEGER;
BEGIN
  /* Procedure body */ 
 SELECT * from LASTFAMILIAGREGADA_ID into :ID_FAM;
 MI_ID = ID_FAM; /*Mi parametro de entrada que obtengo del primer procedimiento almacenado */
 select f.COD_FAMILIAS, f.NOMBRE, f.DESCRIPCION from FAMILIAS f where f.ID_FAMILIAS =  :MI_ID INTO :COD_FAMILIA, :NOM_FAM, ESCRI;
SUSPEND;

END

o sea en teoria el procedimiento spUltimaFamiliaAgregada debe de hacer la consulta y luego traer el dato pero el componente me manda el mismo dato que tengo en modo de diseño y no refresca si se hace una actualización

Saludos y gracias por responder cloayza

[novato_erick]

resolví el problema

haciendo esto:

Código Delphi [-]
with dmStoreProcedure.spUltimaFamiliaAgregada do
  begin
  ExecProc;//Quité esta linea ahora para cada vez que quiero que me refresque el último registro 
  codF := ParamByName('COD_FAMILIA').Value; //quite la propiedad params y deje parambyname
  NomF := ParamByName('NOM_FAM').Value;
  DescF := ParamByName('DESCRI').Value;
  Close;//Cierro el SP espero que esto sea correcto
  end;

investigaré porque sucedía eso para dar una solución mas lógica...


Saludos

novato_erick