Thanks for the answer But I had forgotten the "For" the Mail wrote. Add This word does not solve the problem
--- In [email protected], "Ismael L. Donis Garcia" <ismael@...> wrote: > > 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] >
