Ver Mensaje Individual
  #4  
Antiguo 27-10-2015
Avatar de GustavoCruz
GustavoCruz GustavoCruz is offline
Miembro
 
Registrado: jul 2006
Ubicación: Sampués Sucre (Colombia)
Posts: 293
Reputación: 18
GustavoCruz Va por buen camino
Hola amigos, retomando el tema...

resulta que tengo una db firebird 2.5.4, en la que declaro unas excepciones; una de ellas es 'no_borrar'
Código Delphi [-]
with qEjecutar do
  begin
    Close;
    SQL.Clear;
    SQL.Add(CadenaSQL);
    // ShowMessage(CadenaSQL);
    try
      ExecSQL;
      Result := True;
      Transaccion.CommitRetaining;
      if notificado then
        MsgBox(Titulo, 'Registro actualizado satisfactoriamente...',
          mtInformation, ['Aceptar'], 0);
    except
      on E: exception do
             MsgBox(Titulo, 'Clase de error: ' + E.ClassName + chr(13) + chr(13) +
            'Mensaje del error: ' + E.Message, mtError, ['Aceptar'], 0);
      end;
  end;

en el código no sé cómo capturar la excepción de tal manera que sólo me aparezca el texto de la excepción sin que me diga el resto de cosas, ej.
nombre de la excepción, trigger en el cual se ha lanzado, ubicación de la línea de código...
yo sólo quiero la descripción del error "No puedes eliminar el registro porque..."

De antemano gracias por vuestra ayuda

Gustavo Cruz
Responder Con Cita