用delphi adostoredproc 實現存儲過程的輸入輸出參數問題

Question

我的存儲過程如下﹕
if exists (select * from sysobjects where name='proc_parameter')
drop proc proc_parameter
go
create proc proc_parameter @i int,@j int,@result int output
asset @result=@i*@j
select @result
///////////////////////////////////
declare @b int
exec proc_parameter 8,9,@b output三個參數用edit中輸入的內容傳遞或接收

Answer 1

用ADOStoredProc组件连接该存储过程将它自动生成的第一个参数删除，用法好下：with ADOStoredProc1 do
begin
parameters.parambyname('@i').value := strtoint(edit1.text);
parameters.parambyname('@j').value := strtoint(edit2.text);edit3.text := parameters.parambyname('@result').asstring;
end;