Manejo de excepciones de base de datos

[andressanchez]

Buenas tardes foristas

Estoy usando delphi 7, componentes ADO y como gestor de base de datos MS SQL Server 2000.

Tengo el siguiente problema, necesito capturar una excepcion del tipo EOleException y EDatabaseError y determinar que tipo de excepcion es para el manejador de la base de datos, es decir, si es por ejemplo una excepcion del tipo "violetion unique key" capturar la excepcion y mostrarle al usuario un mensaje personalizado y que lo entienda.

He buscado en el foro y lo que e encontrado no satisfe mi problema.

Otra cosa que e visto es que cuando me envia una excepcion del manejador de la base de datos me muestra tres excepciones seguidas de diferentes tipos cuando dispara la excepcion en mi entorno de desarrollo y son EoleExeption, eDatabaseError y EAccessViolation, y la ultima es la que toma en cuenta. Les adjunto el código que utilizo a ver si pueden ayudarme.

procedure TFrmMantPresenciaTecnica.btnGenerarObjetivosClick(Sender: TObject);
var
  InputString, Compania, Distrito, Supervisor, sMensaje: string;
  FechaInicial, FechaFinal: TDatetime;
  Proceso, CantidadEsperada: integer;
begin
try
   InputString:= InputBox('Digite la fecha', 'El proceso empezará a generar a partir del ' +
         DateToStr(qryPresenciaTecnicaFECHA.Value) + ' Hasta la fecha que usted digite a continuacion.', '');
   FechaInicial := qryPresenciaTecnicaFECHA.Value;
   FechaFinal := StrToDate(inputString);
sMensaje := 'Esta seguro que desea generar desde el ' + DateTostr(FechaInicial) + ' hasta el ' + DateTostr(FechaFinal) + '.';
if MessageDlg(sMensaje,
    mtConfirmation, [mbYes, mbNo], 0) = mrNo then
  begin
   ShowMessage('Operación cancelada por el usuario.');
   Abort;
  end;
 
if (FechaInicial >= FechaFinal) then
 begin
  ShowMessage('La fecha de inicio no puede ser mayor o igual a la fecha final');
  Abort;
 end;
FechaInicial :=  FechaInicial + 1;
qryPresenciaTecnica.DisableControls;
Compania := qryPresenciaTecnicaCODIGO_COMPANIA.Value;
Distrito := qryPresenciaTecnicaCODIGO_DISTRITO.Value;
Supervisor := qryPresenciaTecnicaCODIGO_SUPERVISOR.Value;
Proceso := qryPresenciaTecnicaCODIGO_PRODUCTO.Value;
CantidadEsperada := qryPresenciaTecnicacantidad_esperada.Value;

while FechaInicial <= FechaFinal do
begin
 qryPresenciaTecnica.Append;
 qryPresenciaTecnicaCODIGO_COMPANIA.Value := Compania;
 qryPresenciaTecnicaCODIGO_DISTRITO.Value := Distrito;
 qryPresenciaTecnicaCODIGO_SUPERVISOR.Value := Supervisor;
 qryPresenciaTecnicaCODIGO_PRODUCTO.Value := Proceso;
 qryPresenciaTecnicaFECHA.Value := FechaInicial;
 qryPresenciaTecnicacantidad_esperada.Value := CantidadEsperada;
 qryPresenciaTecnicaESTATUS.Value := 'REGISTRADO';
 qryPresenciaTecnica.Post;

FechaInicial :=  FechaInicial + 1
end;
qryPresenciaTecnica.EnableControls;
Showmessage('Proceso terminado correctamente.') ;
except
  {on e: Exception do
   begin
    Showmessage('Error Digitando la fecha.');
   end;}
  on e: EOleException do
   begin
    showmessage('ole exception')
   end;
  on E: EDatabaseError do
   begin
      showmessage('adoerror');
   end;
  on e: EAccessViolation do
   begin
    showmessage('error violacion de acceso');
   end;
end;
end;

Gracias de antemano,

saludos.-

[andressanchez]

Amigos foristas,

Tuve que buscar una solución alterna al manejo de excepciones.

Lo que hice fue una función que me devuelve un valor booleano si existe o no el registro que se intenta insertar y no dejo que la excepción se produzca en el manejador de la base de datos. Lo único malo de esto es que el programa va estar leyendo constantemente a la base de datos y esto le resta velocidad a la aplicación.

Hubiera preferido hacerlo con el manejo de excepciones por ser una solución mas óptima y eficiente.

Saludos.-

[rgstuamigo]

El problema que veo con lo que estas haciendo es que no estas separando la logica de negocio con la interfaz de usuario, en otras palabras lo que estas haciendo es programar todo en la unidad del formulario, lo cual te va generar un dolor de cabeza cuando más adelante agregues o modifiques algo en tu aplicación.
Consejo :
Existen formas o estrategias que puedes implementar para que tu aplicacion sea bastante ordenada y bien estructurada como por ejemplo deberías separar tu aplicacion en capas: La capa de acceso a datos, la capa de lógica de negocio, y la capa de interfaz de usuario., de ésta manera cada capa se encarga de su tarea especifica, en caso de querer manejar o personalizar los errores pues puedes hacerlo en la capa de Lógica de Negocio que es donde podrias hacer todas las validaciones y comprobaciones para ver si los datos son los correctos y no estan repetidos..
Para más informacion sobre el manejo de capas desde Delphi puedes ver estas 5 partes(1, 2, 3, 4, 5).En la primera parte se menciona las diferentes capas..
En éste hilo en los post #3 y #4 puedes ver algunas formas de personalizacion de los errores.
Saludos...

[andressanchez]

Muchas gracias rgstuamigo por tu consejo.

Voy a tener que hacer una propuesta para que me aprueben
este desarrollo en capas y modificar el sistema completo.

A parte de personalizarlo me gustaría saber cómo detectar o saber por ejemplo la excepción del gestor de base de datos "Violation of UNIQUE KEY constraint XXXXX", "Cannot insert the value NULL into column YYYYY" o "INSERT statement conflicted with COLUMN FOREIGN KEY constraint" para cuando se presente mostrarle al usuario lo siguiente:


-"Cannot insert the value NULL into column YYYYY" = No puede insertar nulo en el campo xxx

-"Violation of UNIQUE KEY constraint XXXXX" = Registro duplicado

-"INSERT statement conflicted with COLUMN FOREIGN KEY constraint" = Referencia no existe.

Es decir atendiendo al error que me devuelva el gestor de base de datos mostraré mi mensaje personalizado.

Saludos.-

[rgstuamigo]

Segun he visto, se puede capturar el código de error que el Servidor de base de dato emite, talves éste hilo te pueda ayudar en algo aunque creo que dependerá de qué componentes estes usando para conectarte.
En lo personal nunca he necesitado hacer algo por el estilo..
saludos...

[andressanchez]

Un millon de gracias voy a probar a ver como me va

les dejo saber.