Crear un EXCEPTION para un VarChar

[ecfisa]

Hola Edchar, bienvenido a Club Delphi

Script ejemplo:

Código SQL [-]
SET TERM ^;

CREATE EXCEPTION EX_NOM_MAX 'Longitud máxima del nombre: 50 caracteres.' ^

CREATE OR ALTER TRIGGER CLIENTE_BIU FOR CLIENTES
ACTIVE BEFORE INSERT OR UPDATE POSITION 0
AS
BEGIN
  IF (CHAR_LENGTH(NEW.NOMBRE) > 50) THEN
    EXCEPTION EX_NOM_MAX;
END ^

SET TERM ;^

Una imágen resultante de esta excepción desde Delphi:



Como dato adicional, el nombre de la excepción puede tener hasta 31 caracteres y el mensaje hasta 78.

Saludos.