FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#7
|
|||
|
|||
Firebird y capturando Excepciones
Tienes toda la razon Marcos, me imagine que se podian usar ya que los Tables de los MDO herendan caracteristicas de los TTable del BDE.
Mi pregunta es como capturo la exception lanzada por el servidor Firebird, sin usar el try ...except en el evento OnPostError, y en base al error que sea pues actuar con la rutina correspondiente. Puse este codigo y tampoco parece ser que entre, ya que parece ser E no es un EDBEngineError. Código:
procedure TMDIChildException.TClientesOnPostError(DataSet: TDataSet; E: EDatabaseError; var Action: TDataAction); begin if E is EDBEngineError then if (E as EDBEngineError).Errors[1].NativeError = -803 then begin MessageDlg( 'You cannot delete an order that has already shipped', mtError, [mbOK], 0); action := daAbort; end; end; y quisiera saber si esto es posible. Gracias de antemano.
__________________
No siempre el mas veloz es el que gana la carrera |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|