在线等 怎样获取存储过程或触发器的错误报告消息

[hksl]

请教各位
在delphi中 怎样获取存储过程或触发器的错误报告消息
比如存储过程是这样的

select * from sedo where billno in ('D0300037A','D0300037B')
if @@rowcount>0
begin
RAISERROR('对不起，不能相同记录!',18,18)
RETURN
end
GO

在前台怎样获取 这个‘对不起，不能相同记录!’消息呢

谢谢

[sxf_zero]

try
ADOQuery1.Open;
//or ADOQuery1.ExecSQL;
except
on e:Exception do
begin
ShowMessage(e.Message);
end;
end;

[LWH008]

楼上就是正宗的做法

[hksl]

我开始就是用了这个
但是有的提取不出来

[hqhhh]

如果不行，不稳定，就在程序中判断了，还比较安全！

[hanlin2004]

'对不起，不能相同记录!'

我是感觉这句提示很不友好，语法也不通顺

呵呵

一楼的可以

[wdhans]

用TRY的话，有的触发器错误不会报错。

修改DELPHI 带的ADODB.pas 然后编译（最好先备份）：
修改这个函数：
function TADOCommand.Execute(var RecordsAffected: Integer;
const Parameters: OleVariant): _Recordset;
var
VarRecsAffected: OleVariant;
begin
SetConnectionFlag(cfExecute, True);
try
Initialize;
Result := CommandObject.Execute(VarRecsAffected, Parameters,
Integer(CommandObject.CommandType) + ExecuteOptionsToOrd(FExecuteOptions));
RecordsAffected := VarRecsAffected;
//added by wbh 添加了下面两行
if Connection.Errors.Count>0 then
DatabaseErrorFmt('%s',[Connection.Errors.item[0].Description]);
finally
SetConnectionFlag(cfExecute, False);
end;
end;

[wdhans]

编译好后用新的 ADODB.PAS和ADODB.DCU 替换原来的文件