ADO错误处理

Question

小弟的问题时有关ADO的错误处理
  怎们样处理主健重复、字段为空。
具体代码是什么
  谢了

Answer 1

try
    ADOConnection1.BeginTrans;   //开始事务
     。。
     //数据操作    ADOConnection1.CommitTrans;  //结束事务
  Except
    ADOConnection1.RollbackTrans;//操作失败，数据回滚
  end;

Answer 2

try
    ADOConnection1.BeginTrans;   //开始事务
     。。
     //数据操作    ADOConnection1.CommitTrans;  //操作成功，结束事务
  Except
    ADOConnection1.RollbackTrans;//操作失败，数据回滚
  end;

Answer 3

不知道这么做可不可以var
adoErrors : Errors;
adoError : Error;
iCount : Integer;
begin
//开始处理ADO的Errors对象
adoErrors := ADOConnection1.Errors;
for iCount := 0 to adoErrors.Count - 1 do // Iterate
begin
adoError := adoErrors.Item[iCount];
if adoErrors.Item[icount].NativeError=515 then
begin
  Application.MessageBox('不能为空','更新错误',mb_ok);
  abort;
end;
if adoErrors.Item[icount].NativeError=2627 then
begin
  Application.MessageBox('主健重复','更新错误',mb_ok);
  abort;
end;
end;
end;