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: firebird-support@yahoogroups.com
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]