Capturar una excepcion en Delphi producida por FIREBIRD

[Sinaloense]

try
//codigo
except
on E: Exception do ErrorDialog(E.Message, E.HelpContext);
end;

[ozegarra]

Aprovecho este hilo para hacer una consulta sobre excepciones FireBird.

Yo genero mis excepciones en FireBird y las ejecuto segun alguna condicion en un Procedure(firebird tambien).

El tema es que yo quiero capturar ese mensaje de la excepcion por delphi. Estoy usando adoquery para ejecutar mis Procedures.

Si alguien pudiera asesorarme le agradeceria mucho ya que quiza para muchos es algo sencillo pero yo recien empiezo con el Delphi y sigo aprendiendo cosas nuevas.

Saludos
Oscar

[PepeLolo]

Hola,

El código indicado por "Sinaloense" es el que necesitas para controlar las excepciones de la BBDD.

un saludo

[ozegarra]

uy, despues de tiempo. Estuve en otras y recien retomo el tema. Probe con la sentencia descrita pero sale un error que dice :

Código Delphi [-]
Undeclared identifier: 'ErrorDialog'

Nuevamente gracias por la atencion.

Oscar

[RolphyReyes]

Saludos.

Oscar, ErrorDialog es un nombre que le dio Sinaloense por decir un nombre a un metodo que llame un Showmessage o MessageDlg.

En cuanto a capturar la excepcion la gente de FibPlus tienen un tremendo componente para esto, es de pago vale la pena tener estos componentes.

Hasta luego.

[[Lepe]]

No hace falta comprar nada.

Pon un ApplicationsEvents en tu ventana principal. En el evento OnException, puedes programar lo que quieras. Dentro del evento haz un showmessage de E.Message

Ahora en tus rutinas tienes 3 opciones mutuamente excluyentes:

1.- No poner bloques try..excepts, de forma que al ocurrir una excepción, ésta llegue al componente ApplicationsEvents.OnException en el que has programado lo que quieras hacer.

2.- Usar bloques try ... excepts, pero permitir que dicha excepción se lance de nuevo.

Típico caso, en la rutina haces un rollback de la transacción y después en el Application.OnException muestras el mensaje al usuario:

Código Delphi [-]
procedure mirutina;
begin 

  try 
     trans.StartTransaction;
      qryRestarStocks.ExecQuery; // suponemos que eso hace lanzar una excepción en la base de datos
     trans.Commit;
  except
  begin
     trans.Rollback; // anulamos los cambios hechos;
     raise; // re-lanzamos la misma excepción para que llegue al Application.OnException
  end;

3.- Usamos bloques try ... except, pero nos comemos la excepción. No llegará al Application.OnException. No se mostrará ningún mensaje al usuario.

Código Delphi [-]
procedure mirutina;
begin 

  try 
     trans.StartTransaction;
      qryRestarStocks.ExecQuery; // suponemos que eso hace lanzar una excepción en la base de datos
     trans.Commit;
  except
  begin
     trans.Rollback; // anulamos los cambios hechos;
     // raise; Aquí la gran diferencia.
  end;

Saludos

[peccatum]

Empezado por Lepe

2.- Usar bloques try ... excepts, pero permitir que dicha excepción se lance de nuevo.

Hola,

Yo he elegido este método, el problema que tengo es que antes de mostrar el mensaje de la excepción al usuario la ejecución de mi programa se corta siendo necesario darle F9 devuelta para que recién ahí se muestre el mensaje y queden los objetos en el estado que yo quiero... ¿hay algúna forma de que esto no ocurra?

este es el código que produce la excepción:

Código Delphi [-]
try                 
                MDOTransaction1.StartTransaction;                 
                MDODataset1.QInsert.params.ByName('CANTI').AScurrency := 1;
                MDODataset1.QInsert.Params.ByName('NUMERO_CONTRATO').asInteger := Ncontrato;
                MDODataSet1.QInsert.Params.ByName('CATEGORIA').ASString :=   RXDBGrid1.Fields[1].AsString;
                MDODataSet1.Qinsert.Params.ByName('TARIFA').ASsTring := RXDBGrid1.Fields[0].AsString;
                MDODataSet1.QInsert.Params.ByName('PRECIO_UNITARIO').asCurrency := RXDBGRID1.Fields[4].ASCurrency;
                MDOQuery1.Close;
                IF stt[1] = 'K'  THEN                 MDOQuery1.SQL.Strings[14] := 'and tarifas.tipo <> '+ quotedStr('KM');
                if stt[1] = 'C' then                 MDOQuery1.SQL.Strings[15] := 'and tarifas.tipo <> '+ quotedStr('Combustible');
                MDOdataset1.QInsert.ExecQuery;
                MDOdataset1.open;
                MDOquery1.open;
               except                   
                        MDOTransaction1.Rollback;                   
                        MDOdataset1.Open;                                   
                        MDOquery1.Open;                    
                        raise;
               end;

'MDOdataset1.QInsert.ExecQuery ' es la linea que produce la excepción, como dije antes se corta la ejecución y me da un mensaje de el componente y me disgusta que eso ocurra quiero que solo se notifique el mensaje de error al usuario....


Gracias

[[Lepe]]

Empezado por RolphyReyes

Saludos.

Oscar, ErrorDialog es un nombre que le dio Sinaloense por decir un nombre a un metodo que llame un Showmessage o MessageDlg.

Pues yo creo que no, ese dialogo existe en Delphi y si no me equivoco tienes que añadir un "uses" determinado. Busca en la ayuda.

Saludos

[RolphyReyes]

Saludos.

Lepe en mi ayuda no existe ningun topico sobre ese metodo, pero si en la tuya existe entonces favor de poner la explicación.

Gracias.