procedure TForm1.Button1Click(Sender: TObject);
begin
try
ADOQuery1.Close;
ADOQuery1.Open;
except
on e:EADOError do ShowMessage(e.Message);
end;
end;
那就把
on e:EADOError do ShowMessage(e.Message);
换成
on e:Exception do ShowMessage(e.Message);
procedure TForm1.ADOTable1PostError(DataSet: TDataSet; E: EDatabaseError;
var Action: TDataAction);
begin
end;
事件吗!