Foros Club Delphi - Manejo de excepciones de base de datos

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Manejo de excepciones de base de datos (https://www.clubdelphi.com/foros/showthread.php?t=66707)

Manejo de excepciones de base de datos

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.

Código:

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.-

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.-

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...:)

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.-

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...:)

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

les dejo saber.

Lo que menciona rgs es muy cierto sin embargo tiene sus bemoles, por ejemplo, tengo una aplicación donde se pueden consultar gran cantidad de listados de facturas de acuerdo con muy diversos criterios según el usuario que necesite consultarlos (un contador quiere saber que facturas no le han llegado físicamente, un jefe de tráfico quiere saber que facturas ya se embarcaron y asi..) obviamente cada uno deseará consultar el contenido de la factura de vez den cuando. Lo má sencillo es crear una clase (TForm) a la cual le pasas el número de factura y te la muestra en pantalla según lo requieras e incluyes adentro la lógica para acceso a datos (vamos, en este caso es una vil consulta) y además, creas un procedimiento en esa misma unidad que te crea una instancia no-modal o modal segun lo pidas de esa ventana.

De esta forma, en cualquier parte de la aplicación que se desee se puede consutar rápidamente ese dato sin tener que reprogramar nada...una de las bellezas de Delphi. Claro está, hay casos en donde hacer esto a diestra y siniestra te produce cosas peores que el GOTO de BASIC. Como dije en otro post, depende mucho de que tan ordenado seas como desarrollador.

Hice pruebas con un proyecto nuevo.

Agregué un datamodulo y allí puse un adoconexion y un adoquery.

En el formulario principal agregué un boton y escribí el siguiente codigo para probar:

Código:

procedure TForm1.btnInsertarClick(Sender: TObject);

begin

b.MiQuery.Open;

b.MiQuery.Append;

b.MiQueryCODIGO_COMPANIA.Value := 'cab';

b.MiQueryCODIGO_SUPERVISOR.Value := '92001';

b.MiQueryCODIGO_DISTRITO.Value := '12a';

b.MiQueryFECHA.Value := StrToDate('10/10/2009');

b.MiQueryCODIGO_PRODUCTO.Value := 1;

b.MiQuerycantidad_esperada.Value := 5;

b.MiQueryESTATUS.Value := 'REGISTRADO';

try

  B.MiQuery.Post;

except

 on E:EOleException do

  begin

   showmessage('Mi mensaje de error');

  END;

end;

end;

Este insert lo hice para que dispare una excepción violando un unique key pero no logro capturar la excepción EoleException. Cuando estoy depurando la aplicación delphi me muestra esta excepcion

Cita:

---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EOleException with message 'Violation of UNIQUE KEY constraint 'UNQ_presencia_tecnica_esperada'. Cannot insert duplicate key in object 'presencia_tecnica_esperada''. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

Despues que acepto esta ventana me muestra esta otra excepcion:

Cita:

---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EDatabaseError with message 'Violation of UNIQUE KEY constraint 'UNQ_presencia_tecnica_esperada'. Cannot insert duplicate key in object 'presencia_tecnica_esperada''. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

A Raiz de esto solamente puedo capturar la excepcion de tipo EDataBaseError y no puedo accesar al codigo de error de la clase EOleException.

Por qué este comportamiento?

Que estoy haciendo mal?

Saludos.-

Hola amigos,

Hice otra prueba y decidí hacer la sentencia sql del insert y ejecutar el método ExecSQL en vez del Metodo Post. Este es el código:

Cita:

procedure TForm1.btnOtroInsertClick(Sender: TObject);
begin
b.OtroQuery.Close;
b.OtroQuery.SQL.Text := 'INSERT INTO PRESENCIA_TECNICA_ESPERADA ( ' +
' codigo_compania, codigo_supervisor, codigo_distrito, fecha, codigo_producto, ' +
' cantidad_esperada, estatus) values (:com, :sup, :dist, :fech, :pro, :esp, :est)';
b.OtroQuery.Parameters.ParamByName('com').Value := 'CAB';
b.OtroQuery.Parameters.ParamByName('sup').Value := '92001';
b.OtroQuery.Parameters.ParamByName('dist').Value := '12a';
b.OtroQuery.Parameters.ParamByName('fech').Value := StrToDate('10/10/2009');
b.OtroQuery.Parameters.ParamByName('pro').Value := 1;
b.OtroQuery.Parameters.ParamByName('esp').Value := 5;
b.OtroQuery.Parameters.ParamByName('est').Value := 'REGISTRADA';
try
B.OtroQuery.ExecSQL;
except
on E:EOleException do
begin

ShowMessage('Mi mensaje de error' + E.Message + ' ' + INTTOSTR(E.ErrorCode));
END;
end;
end;

De esta manera fue que pude capturar el la excepción de la clase EOleException. No se si tiene algo que ver con el Método post el hecho que me dispare dos clases de excepciones diferentes.

Otra cosa que noté fue que utiliza la misma codificación para estas dos excepciones:

//-2147217873 Violation of UNIQUE KEY constraint
//-2147217873 Cannot insert the value NULL into column

Muchas gracias por su ayuda.

Saludos.-