delphi 调用

Question

USE pubs
GO
CREATE PROCEDURE myProc
@outparm      int      OUTPUT
@inparm      int
AS
SELECT * FROM titles WHERE royalty > @inparm
SELECT @outparm = COUNT (*) FROM TITLES WHERE royalty > @inparm
IF (@outparm > 0)
RETURN 0
ELSE
RETURN 99
GO
上面一个存储在客户端如何调用得到output int的结果

Answer 1

ADOStoredProc1.Close;
 adostoredproc1.Prepared;
 adostoredproc1.ProcedureName:='myproc';
 adostoredproc1.Parameters.Clear;
 adostoredproc1.Parameters.ParamByName('@inparm').Value:=5;
 adostoredproc1.Parameters.CreateParameter('@outparm,ftinteger,pdoutput,100,'');
 adostoredproc1.ExecProc;
 showmessage(ADOStoredProc1.Parameters.ParamByName('@outparm).value);