急求高手返回值问题

Question

我在SQL SERVER中有存储过程：
create procedure c1
as
update table set b1='1'
go
请问在DELPHI中如何判断该存储过程执行成功呢？
如何得到返回值呢？谢谢！
stro1.preare;
stro1.exec;

Answer 1

bSus := True;  stro1.preare;
  try
     stro1.exec;
  except 
     bSus := False;
  end;if bSus then
  ShowMessage('SUs')
else
  showmessage('Error');

Answer 2

执行不成功他自己会抱错的，你倒是可以用@@rowcount返回行数看看

Answer 3

將存儲過程更改為
alter procedure c1
@Result int output
as
update table set b1 = '1'
set @Result = @@Rowcountgo
请问在DELPHI中如何判断该存储过程执行成功呢？
如何得到返回值呢？谢谢！
var result: integer;
with adoquery1 do
begin
  close;
  sql.clear;
  sql.text := ' c1 :@Result output ';
  execsql;
  result := parameters.parambyname('@Result').asinteger;
end