如何在delphi中取得由数据库存储过程返回的错误信息？

[fangf]

在sql server数据库中的存储过程，使用一下语句返回错误信息
raiserror('操作失败，请检查！',16,-1)
本来以为系统为自动显示该错误信息，调试后发现并没显示，请问如何
使delphi调用该存储过程后如果执行上面的语句，显示相应的错误提示信息?

[fangf]

E.Message显示如下：
Gerneral Sql Error
[Mircosoft][OBDBc sql server dirver][操作失败，请检查！]
我现在只需要显示后面的文本，前面的不显示，该如何处理？

[TOMWLD]

应该会返回错误信息的，Delphi的异常机制会捕捉到数据库引发的错误，你试试raiserror('操作失败，请检查！',16,1)吧

[gzyzljk]

uses ...adodb,comobj;
......
except
on E:Eoleexception do
MessageDlg('错误:'+E.Message,
mtwarning,[mbOK],0);
else
showmessage('error');
end;