Ver Mensaje Individual
  #1  
Antiguo 26-09-2013
novato_erick novato_erick is offline
Miembro
 
Registrado: ago 2010
Ubicación: Panamá
Posts: 397
Reputación: 16
novato_erick Va por buen camino
Error al ejecutar procedimiento almacendado con el componente TSQLStoredProc

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
Responder Con Cita