如何捕捉并辨别DBMS(SQL server)返回的错误提示？

Question

如：要捕捉并辨别某错误是由于用户输入的某个值违反了键值的唯一性规则？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
try
ADOConnection1.BeginTrans;
adoquery1.append;
...
adoquery1.post;
adoconnection1.CommitTrans;
exceptshowmessage(inttostr(adoconnection1.Errors[0].NativeError)+adoconnection1.Errors[0].Description);
adoconnection1.RollbackTrans;
end;

Answer 2

用 Try ... Except ... End 来捕捉异常。
Try
  ... 
  query1.ExecSQL;
except e: EDBEngineError
  ShowMessage(e);
end;