StoredProcedure + Zeos
lazarus / 16-Databases

----------------------------------------------------------------------
fredycc · 2010-06-08 11:58

Hi; I'm using Zeos 6.6.6 stable & Firebird 2.5 RC 2; My questions is;
For any ZStoredProc I need declare the ouput parameters before execute
the StoredProcedure?

Example:

         db.Connect;
         sp := TZStoredProc.Create(nil);
         sp.Connection := db;
         sp.StoredProcName := 'SP_CLASIFICADORES_SEL';
         //sp.ParamByName('ID').ParamType := ptOutput;   <--------- 
If I comment this line, the error appears        
         sp.ParamByName('DESCRIPCION').ParamType := ptOutput;
         sp.ParamByName('P_TIP_CLA').ParamType := ptInput;
         sp.ParamByName('P_TIP_CLA').AsString := Modulo;

         sp.Open;

Message Error:
Dynamic SQL Error Input parameter mismatch for procedure
SP_CLASIFICADORES_SEL. Error Code -902

Input parameter? 

Thanks.

----------------------------------------------------------------------
cpalx · 2010-06-08 15:35

can you post your store procedure????

----------------------------------------------------------------------
fredycc · 2010-06-08 18:51

Hi cpalx; this is the SP; is simple:

create or alter procedure SP_CLASIFICADORES_SEL (
    P_TIP_CLA varchar(3))
returns (
    ID integer,
    DESCRIPCION varchar(30))
as
begin
    for select
        ide_des_cla, des_cla
    from tab_cla
    where tab_cla.tip_cla = :p_tip_cla
    into :id, :descripcion
    do
    suspend;
end

Thanks