exceptions vs checks y FKs

[Neftali [Germán.Estévez]]

Lo normal sería crear índices, checks y FK's; Cuando realizas una operación (incorrecta) con cualquiera de ellos "saltará" una excepción; En ese punto la capturas y mustras tu mensaje de error (normalmente más claro de cara al usuario).

[micayael]

aahh. Eso esta interesante. pero como capturo ese momento? Ahi deberia llamar a mi exepcion.

[Neftali [Germán.Estévez]]

Bueno, sería algo así:

Código Delphi [-]
 
   ...
   // Comienza el bloque de proteccion
   try
     Tabla1.Post;  // Supongamos que ésto genera excepcion
   except
     on E:EDBEngineError do begin
       // Error de Base de Datos....
       // Para afinar más puedses intentar saber de qué tipo es el erorr...
       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);
       end
       else if....
          // puedes capturar el resto de la misma forma...
       end;
     end
     else begin
       raise;   // dejamos que siga....
     end;
   end;

Las constantes para los errores más comunes:

• eKeyViol = 9729;
• eRequiredFieldMissing = 9732;
• eForeignKey = 9733;
• eDetailsExist = 9734;
• eSqlGralerror = 13059;

No lo he compilado, espero no haber cometido muchos errores; Pruébalo y si tienes problemas ya dirás...

[micayael]

Guuuaaaauuuuu.,

La verdad que es bien complejo todavia para mi. Para empezar no se ni siquiera si es un trigger o alguna otra cosa.

Me podrias especificar eso (si es un trigger)

Sabes de donde puedo encontrar informacion sobre los tipos de exepciones y sobre las variables que usas ahi para crear tu mensaje? Es propio de firebird?

Es parecido al uso en visual basic. Yo estoy usando php

[rastafarey]

Si uqieres personalizar aun mas tu errores lo puedes hacer el evento on exception ya que este captura todos lo errores.

Lee un poco sobre esto.

Espero te sirva

[ContraVeneno]

O en todo caso coloca el cursor sobre la palabra que no entiendes y presionas F1 para que te muestre la ayuda sobre ese tema (esto sobre delphi claro esta).

[HombreSigma]

Saludos foro:

Sugiero aprovechar la tecnología de objetos de Delphi.

Como estas rutinas de captura de excepciones para validar la integridad de llave primaria y llave foránea son comunes a todas las tablas hace tiempo se me ocurrió crear un componente nuevo que llamé TTabla que hereda las características (métodos y propiedades) de TTable.

A este nuevo componente le modifique algunos de los métodos de los eventos tipicos de TTabla haciendo las validaciones estandar dentro de ellos.

Usando este componente, hasta ahora, me he olvidado por completo de tener que realizar validaciones de integridad tipicas como validacion de registros duplicados, mensajes de error en español, pues todo lo hace este componente, aprovechando los principios de la orientación a objetos de Delphi. De lo contrario estarían condenados para siempre a hacer copy paste del código de las validaciones mencionadas para cada TTable que ustedes crearan.

Envio un bosquejo del componente el cual se puede ampliar a conveniencia, luego pongase en una paleta de componentes personales y utilicese este componente en vez de TTable.

unit Tabla;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBCtrls, DBTables, ReglasValidacion, bdBaseDatos, ArchivoTexto,
  ComCtrls,Gauges, TiposComunes;

type
  TTabla = class(TTable)
  private
    { Private declarations }
    procedure MiDataSetPostError(DataSet: TDataSet;
                                   E: EDatabaseError;
                                   var Action: TDataAction);
    procedure MiUpdateError( DataSet: TDataSet;
                             E: EDatabaseError;
                             UpdateKind: TUpdateKind;
                             var UpdateAction: TUpdateAction);
    procedure MiDataSetDeleteError(DataSet: TDataSet;
                                   E: EDatabaseError;
                                   var Action: TDataAction);
    procedure MiBeforePost(DataSet:TDataSet);
    procedure MiBeforeDelete(DataSet:TDataSet);
    procedure MiBeforeInsert(DataSet:TDataSet);
    procedure MiBeforeEdit(DataSet:TDataSet);
    
   protected
    { Protected declarations }
   public
    { Public declarations }
   constructor Create (AOwner:Tcomponent);override;
    destructor Destroy;override;

  published
    { Published declarations }
  end;

implementation

constructor TTabla.Create (AOwner:TComponent);
var DataSetNo:Integer;
begin 
   inherited Create(AOwner);
  Self.OnDeleteError   :=MiDataSetDeleteError;
  Self.OnPostError     :=MiDataSetPostError;
  Self.BeforePost      :=MiBeforePost;
  Self.BeforeDelete    :=MiBeforeDelete;
  Self.BeforeInsert    :=MiBeforeInsert;
  Self.BeforeEdit      :=MiBeforeEdit;
  Self.OnUpdateError   :=MiUpdateError;
end;

destructor TTabla.Destroy;
begin
  //Destroy previos al de TTabla
  inherited Destroy;
end;

procedure TTabla.MiDataSetDeleteError
 (DataSet: TDataSet;E: EDatabaseError; var Action: TDataAction);
begin
  //Hacer aqui las validaciones estandar en caso de error al borrar un registro
end;


procedure TTabla.MiDataSetPostError
  (DataSet: TDataSet; E:EDatabaseError; var Action:TDataAction);
var MensajeValidacionIntegridadDatos:AnsiString;
begin
  inherited;
  //Validaciones estandar en caso de error al hacer POST
end;

procedure TTabla.MiUpdateError( DataSet: TDataSet;
                             E: EDatabaseError;
                             UpdateKind: TUpdateKind;
                             var UpdateAction: TUpdateAction);
begin
  inherited;
  //Validaciones estandar en caso de error al actualizar
end;

procedure TTabla.MiBeforePost(DataSet: TDataSet);
begin
  //Hacer validaciones estándar before post 
end;

procedure TTabla.MiBeforeDelete(DataSet: TDataSet);
begin
  if DataSet.IsEmpty
    then raise Exception.Create('No hay registros para borrar');
  //Otras validaciones estandar
end;

procedure TTabla.MiBeforeInsert(DataSet: TDataSet);
begin
  //Validaciones estandar BeforeInsert  
end;

procedure TTabla.MiBeforeEdit(DataSet: TDataSet);
begin
  //Validaciones estandar Before Edit
end;


end.