add FOR to SELECT
SET TERM ^ ; CREATE PROCEDURE SP( TLek VARCHAR(15) CHARACTER SET NONE COLLATE NONE) RETURNS( PNAME VARCHAR(100) CHARACTER SET NONE COLLATE NONE) AS BEGIN for Select Name FROM TBL1 Where (TLekName = :TLek) ORDER BY ID Into :PName DO SUSPEND; END ^ SET TERM ^ ; ========= || ISMAEL || ========= ----- Original Message ----- From: Farshid Dehghan To: [email protected] Sent: Thursday, August 23, 2012 1:16 PM Subject: [firebird-support] Problem IBStoredProc Hi I've used Delphi IBStoredProc, But not run. No error. Please get help //----------in firebird SET TERM ^ ; CREATE PROCEDURE SP( TLek VARCHAR(15) CHARACTER SET NONE COLLATE NONE) RETURNS( PNAME VARCHAR(100) CHARACTER SET NONE COLLATE NONE) AS BEGIN Select Name FROM TBL1 Where (TLekName = :TLek) ORDER BY ID Into :PName DO SUSPEND; END ^ SET TERM ^ ; //----------in delphi IBStoredProc1.StoredProcName := 'SP'; IBStoredProc1.ParamByName('TLek').AsString := 'mb'; IBStoredProc1.ExecProc; [Non-text portions of this message have been removed]
