Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Conexión con bases de datos
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Conexión con bases de datos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 22-10-2018
Gregorio Cíber Gregorio Cíber is offline
Miembro
 
Registrado: jun 2008
Posts: 98
Poder: 16
Gregorio Cíber Va por buen camino
Error de Seguridad

Hola amigos.

Tengo un problema desde la migración a FB3.0 que antes no se me presentaba. Intentaré ser conciso y claro en la explicación.
La aplicación va creando usuarios a medida que se necesitan a partir del nombre de puesto desde el que se conecta. Al nuevo usuario se le asigna un determinado rol, siempre el mismo, que tiene permiso de selección, modificación, eliminación, borrado y referencia en todas las tabla y de ejecución en los procedimientos almacenados. Esto funciona bien. El problema se presenta cuando creo una nueva tabla, que a pesar de tener los permisos mencioandos anteriormente para el usuario que se conecta, no permite que se modifique emitiendo un error de seguridad.

Alguna idea para solucionar este problema.

Gracias.
Responder Con Cita
  #2  
Antiguo 22-10-2018
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
¿Y qué dice ese error de seguridad?
Responder Con Cita
  #3  
Antiguo 22-10-2018
Gregorio Cíber Gregorio Cíber is offline
Miembro
 
Registrado: jun 2008
Posts: 98
Poder: 16
Gregorio Cíber Va por buen camino
Gracias por contestar tan rápido, Casimiro Notevi.
El error lo detecta el componente de TpFibErrorHandle de FIBPlus.

Código Delphi [-]
procedure TDM.err_GeneralFIBErrorEvent(Sender: TObject;   ErrorValue: EFIBError; KindIBError: TKindIBError; var DoRaise: Boolean); 
begin   
  //Caso de perder conexión con el servidor   
  if KindIBError = keLostConnect then  
  begin     
    //     
    //   
  end;    
  if KindIBError = keUniqueViolation then   
  begin     
    //     
    //   
  end;    
  if KindIBError = keSecurity then        <--- Este es el error que salta.   
  begin     
    Mensaje('Error de seguridad al abrir tablas de la BD.');     
    //     
    //   
  end; 
end;


Es lo que te puedo decir. Sé que no es mucho, pero no tengo más información.

Gracias.

Última edición por Neftali [Germán.Estévez] fecha: 23-10-2018 a las 10:34:48. Razón: Corregidos los TAG's de código
Responder Con Cita
  #4  
Antiguo 22-10-2018
Gregorio Cíber Gregorio Cíber is offline
Miembro
 
Registrado: jun 2008
Posts: 98
Poder: 16
Gregorio Cíber Va por buen camino
Lo siento, en la vista previa el código delphi sale perfecto. Sin enbargo al enviar es un desasatre.
Responder Con Cita
  #5  
Antiguo 22-10-2018
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Código con formato correcto

Código Delphi [-]
procedure TDM.err_GeneralFIBErrorEvent(Sender: TObject; ErrorValue: EFIBError; KindIBError: TKindIBError; var DoRaise: Boolean);
begin
  // Caso de perder conexión con el servido
  if KindIBError = keLostConnect then
  begin
    // //
  end;

  if KindIBError = keUniqueViolation then
  begin
    // //
  end;

  if KindIBError = keSecurity then <--- Este es el error que salta.
  begin
    Mensaje('Error de seguridad al abrir tablas de la BD.');
    // //
  end;
end;

// Saludos
Responder Con Cita
  #6  
Antiguo 22-10-2018
Avatar de movorack
[movorack] movorack is offline
Miguel A. Valero
 
Registrado: feb 2007
Ubicación: Bogotá - Colombia
Posts: 1.346
Poder: 20
movorack Va camino a la famamovorack Va camino a la fama
. .
Cita:
Empezado por roman Ver Mensaje
Código Delphi [-]
procedure TDM.err_GeneralFIBErrorEvent(Sender: TObject; ErrorValue: EFIBError; KindIBError: TKindIBError; var DoRaise: Boolean);
begin
  // Caso de perder conexión con el servido
  if KindIBError = keLostConnect then
  begin
    // //
  end;

  if KindIBError = keUniqueViolation then
  begin
    // //
  end;

  if KindIBError = keSecurity then <--- Este es el error que salta.
  begin
          //Aquí puedes validar el mensaje que arroja el sistema. en lugar de solo sacar tu mensaje.
    Mensaje('Error de seguridad al abrir tablas de la BD.');
    // //
  end;
end;

// Saludos
__________________
Buena caza y buen remar... http://mivaler.blogspot.com
Responder Con Cita
  #7  
Antiguo 22-10-2018
Gregorio Cíber Gregorio Cíber is offline
Miembro
 
Registrado: jun 2008
Posts: 98
Poder: 16
Gregorio Cíber Va por buen camino
Gracias, Miguel A. Valero.
Estaba obcecado mirando tablas y procedimientos, y no reparé en hacer lo mismo con los generadores. Ahí estaba el problema.
Gracias a todos por ayudarme.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Google descubre error de seguridad en Windows. Microsoft le ignora. Casimiro Notevi La Taberna 2 05-01-2015 11:16:52
Seguridad shoulder Varios 6 30-07-2010 21:03:33
La seguridad. marcoszorrilla La Taberna 1 12-05-2008 10:22:52
Seguridad Lupita Varios 6 29-08-2007 04:38:54
[Seguridad] Nuevos agujeros de seguridad en varios sistemas Windows ... kinobi Noticias 1 16-09-2003 11:42:54


La franja horaria es GMT +2. Ahora son las 21:59:38.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi