Gestionar excepciones en un trigger

[Angel.Matilla]

Empezado por ecfisa

No tengo en claro el objetivo que buscas, pero también podes acceder a la propiedad Message de la clase EIBInterBaseError:

¡Hombre! Me parece bastante evidente: Si defino un mensaje para uan excepción lo lógico es emplearlo y mostrar al usuario la información lo más precisa posible. A un usuario de una aplicación, que no tiene por qué saber de programación, el mensaje genérico «violation of PRIMARY or UNIQUE KEY constraint \"UQ_CONEXION\" on table \"CONEXION\"\r Problematic key value is (\"NOMBRE\" = 'FEDERICO'» no le dice nada, pero si le informo que «'Este usuario está activo en otro terminal'» se preocupará de buscar la razón.

[dec]

Hola,

Trata de averiguar si cuando hacemos esto:

CREATE EXCEPTION USUARIO_CONECTADO 'Este usuario está activo en otro terminal'

... estamos dando un texto, una descripción a la excepción, o, si simplemente se trata de un comentario en el código. Si fuese el primer caso, para mí lo intuitivo sería acceder al texto usando el método "getMessage", "Message" o el que sea que exista en C++ para acceder al mensaje de las excepciones. Si fuese el segundo caso, igual no contamos con nada más que el tipo de excepción y el texto o mensaje hemos de ponerlo nosotros mismos en el programa, a partir del tipo de excepción.

[Casimiro Notevi]

Empezado por dec

Hola,
Trata de averiguar si cuando hacemos esto:

CREATE EXCEPTION USUARIO_CONECTADO 'Este usuario está activo en otro terminal'

... estamos dando un texto, una descripción a la excepción, o, si simplemente se trata de un comentario en el código. Si fuese el primer caso, para mí lo intuitivo sería acceder al texto usando el método "getMessage", "Message" o el que sea que exista en C++ para acceder al mensaje de las excepciones. Si fuese el segundo caso, igual no contamos con nada más que el tipo de excepción y el texto o mensaje hemos de ponerlo nosotros mismos en el programa, a partir del tipo de excepción.

Ese mensaje; "Este usuario está activo en otro terminal." es el mensaje que le saldrá al usuario cuando se produzca la excepción.
No hay que hacer nada más.

[Angel.Matilla]

Empezado por dec

... estamos dando un texto, una descripción a la excepción, o, si simplemente se trata de un comentario en el código. Si fuese el primer caso, para mí lo intuitivo sería acceder al texto usando el método "getMessage", "Message" o el que sea que exista en C++ para acceder al mensaje de las excepciones. Si fuese el segundo caso, igual no contamos con nada más que el tipo de excepción y el texto o mensaje hemos de ponerlo nosotros mismos en el programa, a partir del tipo de excepción.

Gracias por contestar.Yo entiendo que estamos dando un texto; si consulto la base de datos con SQL Manager veo esto:



Así yo entiendo que he creado una excepción y su mensjae asociado. En otro hilo de este mismo subforo encontré una respuesta; es para Delphi y en principio debería ser fácil de adaptar a Builder. Pero me dejó perplejo parte del código que hay:

uses IB;
...
try
   ...
   insertquery.ExecSQL;
except on E:Exception do
   case EIBInterBaseError(E).IBErrorCode of
   $14000019: ShowMessage('Deadlock');
   $14000888:// se produjo la excepcion ERR_NO_TITULO
        ShowMessage('El título no puede estar vacio');
end;

Esos valores 14000019 y 14000888 he estado buscándolos en el listado de errores de FB y no existen por lo que no sé como tratarlos.

En otros hilos he visto que hay la posibilidad de modificar los mensajes genéricos de FB, pero entonces no sé para que valen esos mensajes de excepción que se puede definir en la base de datos.

[ecfisa]

Hola.

Empezado por Angel.Matilla

¡Hombre! Me parece bastante evidente:
...

Te aseguro que no lo era tanto para mí...

Es decir que queres traducir los mensajes de error, a otra forma que consideras que tus usuarios entenderán mejor.
Bueno, para eso no veo otra opción que hacerlo manualmente evaluando todos los GDSCODE, me refiero a algo similar a este ejemplo:

Código PHP:

  if (E->ClassNameIs("EIBInterBaseError")) {
    String Msg;
    int gdsc = (static_cast<EIBInterBaseError*>(E))->IBErrorCode;
    switch (gdsc) {
      ...
      case 335544578: Msg = "Columna desconocida."; break;
      case 335544579: Msg = "Error interno."; break;
      ...
    }
    ShowMessage(Msg); 


Empezado por Angel.Matilla

...encontré una respuesta; es para Delphi y en principio debería ser fácil de adaptar a Builder. Pero me dejó perplejo parte del código que hay:

uses IB;
...
try
   ...
   insertquery.ExecSQL;
except on E:Exception do
   case EIBInterBaseError(E).IBErrorCode of
   $14000019: ShowMessage('Deadlock');
   $14000888:// se produjo la excepcion ERR_NO_TITULO
        ShowMessage('El título no puede estar vacio');
end;

Esos valores 14000019 y 14000888 he estado buscándolos en el listado de errores de FB y no existen por lo que no sé como tratarlos.

$14000019(Delphi) = 0x14000019(C++) = 335544345(decimal)

SQLCODE | GDSCODE   |    SYMBOL       TEXT
--------+-----------+---------------+------------------------------------- 
-901    | 335544345 | lock_conflict | Lock conflict on no wait transaction

$14000888 = 0x14000888 = 335546504 (no existe como código de error en Firebird)

Saludos

[Angel.Matilla]

Empezado por ecfisa

Te aseguro que no lo era tanto para mí...

Queda demostardo que cada uno ve las cosas de diferente manera

Es decir que queres traducir los mensajes de error, a otra forma que consideras que tus usuarios entenderán mejor.
Bueno, para eso no veo otra opción que hacerlo manualmente evaluando todos los GDSCODE, me refiero a algo similar a este ejemplo:

Básicamente es eso lo que busco y me lo temía. Esto me lleva a la conclusión de que usar las excepciones de Firebird tiene muy poca utilidad; es una lástina. El sistema que me suguieres es parecido al que estoy usando ahora.

$14000019(Delphi) = 0x14000019(C++) = 335544345(decimal)

No se me había ocurrido que pudiera ser hexa
Muchas gracias por las sugerencias.

[Casimiro Notevi]

Si lo que quieres es mostrar mensajes simples a los usuarios, puedes hacer algo así, ejemplo:
Tienes una tabla de usuarios que contiene un usuario predeterminado que no se debe borrar:

Código SQL [-]
create table tbUsuarios
  codigo integer not null,
  nombre varchar(64),
  primary key (codigo)
);

Usuario predeterminado:

Código SQL [-]
insert into tbusuarios values (0,'admin');

Creas la excepción por si intentan borrarlo, junto al texto que se mostrará:

Código SQL [-]
create exception EXCP_NO_BORRAR 'No está permitido borrar este registro';

Creas el trigger donde se controlará que no se borre el usuario admin:

Código SQL [-]
CREATE OR ALTER trigger tbusuarios_bd0 for tbusuarios
active before delete position 0
AS
begin
  if (old.codigo=0) then  /* si intentan borrar el usuario admin, se mostrará el mensaje */
    exception excp_no_borrar;
end ^

Y eso es todo.

Otra cosa diferente es mostrar los mensajes tal y como se generan por la base de datos, puedes hacer algo así:

Código Delphi [-]
try
  ...
  qry.Post;
except
  on E:exception do
    ShowMessage(E.ClassName +' '+ E.Message);
end;

Bueno, lo he escrito todo de memoria, pero te sirve de referencia.

[Angel.Matilla]

Gracias por la respuesta Casimiro. En el trigger que yo he puesto lo que trato de impedir es que se den de alta dos registros para el mismo valor de Nombre. Tal como lo tengo creado al producirse unique_key_violation el mensaje que se muestra es el propio de Firebird y no el que está declarado en la excepción; no veo como "sacar" el valor de la excepción. Ese el problema que tengo.