EDataBaseError...

[marcoszorrilla]

Básate en este ejemplo tomado de parte de mi código:

Código Delphi [-]

  Const
    eKeyViol = 9729;
    eRequiredFieldMissing = 9732;
    eForeignKey = 9733;
    eDetailsExist = 9734;
    eSqlGralerror = 13059;
  
  implementation
  uses Global;
  
  {$R *.DFM}
  Procedure midberror(DataSet: TDataSet; E: EDatabaseError);
  
  begin
  if (E is EDBEngineError) then
    if (E as EDBEngineError).Errors[0].Errorcode = eKeyViol then
    begin
    Application.MessageBox('Imposible dar alta ese registro ya existe','Atención',mb_Ok +   mb_IconQuestion);
    Abort;
    end;
  
    if (E as EDBEngineError).Errors[0].Errorcode = eRequiredFieldMissing then
    begin
      Application.MessageBox('Imposible dar alta hay un campo vacio.','Atención',mb_Ok +
    mb_IconQuestion);
      Abort;
    end;
  
        //campo en blanco
  
    if (E as EDBEngineError).Errors[0].Errorcode =   eSqlGralerror then
    begin
    Application.MessageBox('Imposible dar alta hay un campo requerido vacío.','Atención',mb_Ok +
    mb_IconQuestion);
    Abort;
    end;
  
  
  end;
  
 
   procedure TDmVil.ProvPostError(DataSet: TDataSet; E: EDatabaseError;
     var Action: TDataAction);
   begin
   midberror(Prov,e);
   end;

Un Saludo.

[lroblesco]

Hola a todos:

Probe el codigo de Marcos, y no se que es lo que estare haciendo mal . Una explicadita para esto uso los componentes MDO RC1, uso Firebird 1.5 y Delphi 7. En el evento OnPostError pongo el codigo anterior y al parecer no entra en esta parte:

if (E is EDBEngineError) then
 if (E as EDBEngineError).Errors[0].Errorcode = eKeyViol then

se lo salta y me sale el error de clave repetida.
cuando usaba los componentes de ADO preguntaba por el error nativo del componente ADOConnection, mas no se si se pueda en estos componentes.
El numero de error nativo creo que es el -803 para keyViolatoin en Firebird

Como hago para que no salga mas el error y poder hacer algo para personalizar mas los mensajes de error?

[marcoszorrilla]

Ten en cuenta que esos códigos para el BDE, los del motor de Firebird no tienen nada que ver con estos.

Un Saludo.

[lroblesco]

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.

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;

Bueno espero me puedan echar la mano con esto, que ya tengo algo de tiempo
y quisiera saber si esto es posible.
Gracias de antemano.

[Alejandrina]

Hola a todos,
No estoy segura si este es el lugar adecuado pero bueno.
Lo que pasa es k ejecuto mi aplicacion y me sale el siguiente error:
Project XX.exe raised exception class EDatabaseError with message 'Field 'REFERENCIA_SUB' must have a value'. Process stopped. Use Step or Run to continue.

La verdad no se k kiere decir este error, no tengo ni idea de k revisar...
a kien me pueda iluminar... muchas gracias....

[marcoszorrilla]

Por lo que se ve un campo que es obligatorio cumplimentar lo estas dejando en blanco.

Un Saludo.

[Alejandrina]

Pero pk??? si el error se me esta presentando antes de permitirme seleccionar los datos a llevar para grabar!!!