好库网 好库网首页 | 我的好库
Delphi盒子

如何捕捉KEY VIOLATION等错误-Delphi资料

发布者:delphibox
发布日期:2011/4/8 22:33:49   更新日期:2011/4/8 22:33:49
阅读次数:3491
评分:4.80
介绍: 如何捕捉KEY VIOLATION等错误-Delphi资料
正文:

我们可以用意外捕获技术得到错误句柄,然后进入我们自己的出错处理程序:

function DBError(DataSet:TDataSet;E:EDatabaseError;var Action:TDataAction);

const eKeyViol=9729;

var iDBIError:Integer;

begin

if (e is edbengineerror) then

begin

idbierror:=(e as edbenginerror).errors[0].errorcode;

//如果你想找到其它的错误号,可以打印出这个值,如showmessage(inttostr(idbierror));以后就可以在case中捕捉那种错误

case idbierror of

ekeyviol:

begin

messagedlg('主键重复!'

mtWarning

[mbOK]

0);

abort;

end;

end;

在程序中可以这样

procedure tmainform.table1editerror(dataset:tdataset;e:edatabaseerror;var action:tdataaction);

begin

dberror(table1

e

action);

end;


评论 [发表评论]
账号 密码 还没帐号呢,现在注册一个?

免责声明:好库网所展示的信息由买卖双方自行提供,其真实性、准确性和合法性由信息发布人负责。好库网不提供任何保证,并不承担任何法律责任。