4 respuestas en este tema

[FGarcia]

Hola!

Puedes validar en delphi si el (los) campos(s) que se ingresaran a la bd cumplen ciertas condiciones: No repetidos, Vacios, etc.  Sin embargo FB te permite crear Excepciones con un nombre y un texto:

php

CREATE EXCEPTION CODIGO_VACIO '¡EL CODIGO NO DEBE ESTAR EN BLANCO!';
CREATE EXCEPTION NOMBRE_VACIO '¡DEBE DE INGRESAR UN NOMBRE DE ENTIDAD!';

Segun entiendo esto disminuye el codigo delphi para la validacion, ya que es la bd la que hace la chamba (trabajo)

Mi pregunta es como hacer que el usuario vea ese mensaje de error y no el que trae por defecto (en este caso para la excepcion "Nombre_Vacio")

---------------------------
Elabm
---------------------------
Field 'NOMBRECP' must have a value.
---------------------------
Aceptar 
---------------------------


Gracias, espero sus comentarios!!
 

[Wilson]

Hola,  a continuación te coloco un ejemplo de como hacer lo que necesitas, usando TClientDataset, es un procedimiento único  que sirve para todas las tablas de la BD, que  intercepta el evento OnRenconcileError de todos los TClientDatasets de un módulo y un arcivo de texto de nomnbre Mensajes.txt que contiene los mensajes de error (incluidas las excepciones, constraints, etc. de toda la DB) y que se encuentra en la misma carpeta del ejecutable.

Pongamos como ejemplo  la siguiente BD:(No encuentro las etiquetas)
 

sql

CREATE EXCEPTION CODIGO_VACIO 'EL CODIGO NO DEBE ESTAR EN BLANCO';
CREATE EXCEPTION NOMBRE_VACIO 'DEBE DE INGRESAR UN NOMBRE DE ENTIDAD';
 
CREATE TABLE NOMBRES (
    ID_NOMBRE      INTEGER NOT NULL,
    NOMBRE          VARCHAR(30) NOT NULL ,
    CODIGO          VARCHAR(10) NOT NULL ,
 
PRIMARY KEY (ID_NOMBRE),
CONSTRAINT UQ_CODIGO_REPETIDO UNIQUE (CODIGO)
);
 
CREATE TABLE OTRATABLA (
    ID_TABLA      INTEGER NOT NULL,
    TABLA          VARCHAR(30) NOT NULL ,
 
PRIMARY KEY (ID_TABLA),
CONSTRAINT UQ_TABLA_REPETIDA UNIQUE (TABLA)
);

Hay que agregar en la sección private del módulo el siguiente campo:

 

delphi

private
  FErrores: TStringList;

y Luego interceptar el evento OnReconcileError de los TClientDatset así­:
 

delphi

procedure TMiModulo.Conciliacion(DataSet: TCustomClientDataSet;
  E: EReconcileError; UpdateKind: TUpdateKind; var Action: TReconcileAction);
const
  Archivo = 'Mensajes.txt';
var
  I: Integer;
  S, N: string;
begin
  if not Assigned(FErrores) then
  begin
    FErrores := TStringList.Create;
    S := ExtractFilePath(GetModuleName(HInstance)) + Archivo;
    if FileExists(S) then
      FErrores.LoadFromFile(S);
  end;
  S := E.Message;
  for I := 0 to FErrores.Count - 1 do
  begin
    N := FErrores.Names[I];
    if Pos(N, S) <> 0 then
    begin
      S := FErrores.Values[N];
      Break;
    end;
  end;
  MessageDlg(S, mtError, [mbOk], 0);
end;

A continuación escribo como deberian ir algunas lineas del archivo de texto:

CODIGO_VACIO=El código no debe estar en blanco//o lo que tu quieras
NOMBRE_VACIO=Debe ingresar un nombre de entidad
UQ_CODIGO_REPETIDO=Este código ya existe
UQ_TABLA_REPETIDA=Esta tabla ya existe

Finalmente si no usas TClientDataset podrias adecuarlas en los correspondientes eventos de tu dataset donde fueren necesarias.

Lástima la falta de etiquetas para que el ejemplo hubiera sido mas claro.
Espero te sirva.

Saludos

[egostar]

Hola

Excelente y muy interesante explicación amigo Wilson, gracias por el aporte.

Salud OS

PD, Estamos trabajando con el asunto de las etiquetas, el cambio de versión del sistema de foros tuvo sus efectos colaterales, sin embargo (y mientras las liberamos) puedes utilizarlas manualmente de esta forma:

[NOBBC]

delphi

  //Para código Delphi

cpp

  //Para código C++

csharp

  //Para código C#

[/NOBBC]

[FGarcia]

Wilson: mas claro ni el agua! muy buen ejemplo.

Habia visto algo asi en CD pero en una manera mas complicada, aunque al final se llega al mismo resultado. Sin embargo yo aun sigo con una duda:

Se declara la excepcion y el texto a mostrar.

CREATE EXCEPTION NOMBRE_VACIO '¡DEBE DE INGRESAR UN NOMBRE DE ENTIDAD!';


pero debo REPETIR la declaracion del texto, en este caso en el archivo txt:

NOMBRE_VACIO=¡DEBE DE INGRESAR UN NOMBRE DE ENTIDAD!'

y he ahi mi duda, ignorancia al respecto ¿para que declarar entonces en la creacion de la excepcion? 

[Wilson]

Hay que tener en cuenta cuestiones elementales de diseño, por ejemplo el validar un campo requerido(obligatorio) tiene mas sentido hacerlo en la aplicación cliente que en la BD por cuestiones de tráfico en la red, pero el ejemplo es muy práctico para validar un campo único, para avisar al usuario que no puede borrar cierto registro porque tiene otro relacionado, para controlar excepciones lanzadas por Triggers que comprueban ciertos requisitos mas complejos a la hora de realizar una transacción y un largo etc... que tiene que ver directamente con las necesidades epicifcas de la aplicación.

Saludos