关于TADO控件捕获数据库错误的问题？急，在线等待

Question

怎么样用TADO控件来捕获数据库产生的错误呢？例如，我使用了一个TADOStoredProc
控件，其帮定了一个后台存储过程Insert_tblUser，现在我用这个控件向数据库里插入一条记录，该记录违反了主键唯一性错误，那我怎么样在前台来捕获这个数据库错误呢，我的后台是用SQLSERVER，后台的存储过程是这样写的：
create  procedure uz_InserttblUser
@UserID      int,
@UserCode    varchar(50),
@Result      varchar(10) outputasdeclare @error     intinsert into tblUser(UserID,UserCode) values(@UserID,@UserCode)set @error = @@errorif @error != 0 
    set @Result = cast(@error as varchar(10))
else
    set @Result = 'ok' GO

Answer 1

在TADOStoredProc执行前try一下就行了呀！

Answer 2

try
    ADOStoredProc1.ExecProc;
  except
    MessageBox(handle, '数据汇总过程中发生了错误，请核对数据！', '提示', MB_Ok + MB_ICONINFORMATION);
  end;