在Delphi中怎么显示数据库提示的错误

Question

我用了try except语句，想在except中显示数据库提示的异常内容，该怎么写

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
   try
      ADOQuery1.Close;
      ADOQuery1.Open;
   except
      on e:EADOError do ShowMessage(e.Message);
   end;
end;

Answer 2

楼上正解
   可以看帮助搜一下try except,找需要的用

Answer 3

那就把
on e:EADOError do ShowMessage(e.Message);
换成
on e:Exception do ShowMessage(e.Message);

Answer 4

不是有
procedure TForm1.ADOTable1PostError(DataSet: TDataSet; E: EDatabaseError;
var Action: TDataAction);
beginend;
事件吗!