RSS订阅 | 匿名投稿
您的位置:网站首页 > 数据库 > 正文

Delphi中AdoQuery执行错误的捕捉

作者:admin 来源: 日期:2013/10/8 9:01:02 人气: 标签:

procedure Tfm_bmwh.ADOQuery1PostError(DataSet: TDataSet; E: EDatabaseError;
var Action: TDataAction);
Var
error_set:Errors;
error_obj:Error;
iCount:integer;
begin
error_set:=adoquery1.Connection.Errors;
for iCount :=0 to Error_set.Count-1 do
Begin
error_obj:=error_set.Item[iCount];
Case Error_obj.NativeError of
2627:Begin
application.messagebox(信息重复,请注意,提示信息,mb_OK+MB_ICONERROR);
Abort;
End;
515:begin
application.messagebox(必填信息不能为空值,请输入一个值,提示信息,mb_OK+MB_ICONERROR);
Abort;
End;
32:Begin
application.messagebox(其它用户已改变了这条记录的值,请先刷新,再修改,提示信息,mb_OK+MB_ICONERROR);
Abort;
End;
1023:Begin
application.messagebox(不能插入空行,请注意,提示信息,mb_OK+MB_ICONERROR);
Abort;
End
else
begin
application.messagebox(数据有错,不能更新:,提示信息,mb_OK+MB_ICONERROR);
Abort;
end;
End
end;
end;


读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: