Manejo de excepciones de base de datos

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

[[AzidRain]]

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.

[andressanchez]

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:

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

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

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

[andressanchez]

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:

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, ro, :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.-