Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Bases de datos > Firebird e Interbase
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 26-03-2021
Avatar de Angel.Matilla
Angel.Matilla Angel.Matilla is offline
Miembro
 
Registrado: ene 2007
Posts: 1.350
Poder: 19
Angel.Matilla Va por buen camino
Evitar que un usuario se conecte dos veces

En un BB.DD. con FB 2.5.6 quiero implementar un sistema para qu el mismo usuario no pueda conectarse desde dos puestos diferentes de forma simultánea. He estado dando vueltas por ahí y en el blog Firebird SQL encontré este código que usa una tabla y dos triggers:
Código SQL [-]
CREATE TABLE CONEXION (
  CON_IDENTI INTEGER NOT NULL,
  CON_IDECON INTEGER NOT NULL,
  CON_NOMBRE VARCHAR(15) CHARACTER SET ISO8859_1 NOT NULL COLLATE ES_ES_CI_AI,
  CON_TIMEST TIMESTAMP);

ALTER TABLE CONEXION ADD CONSTRAINT PK_CONEXION PRIMARY KEY (CON_IDENTI);

ALTER TABLE CONEXION ADD CONSTRAINT UQ_CONEXION UNIQUE (CON_NOMBRE);
Al conectarse a la BB.DD.:
Código SQL [-]
CREATE TRIGGER CONECTADO
ACTIVE ON 
  CONNECT
POSITION 2
AS
BEGIN

   -- Primero, se borran las filas de los usuarios que no estan conectados
   -- pero aparecen como conectados
    DELETE FROM Conexion
     WHERE CON_IDECON NOT IN (SELECT MON$ATTACHMENT_ID FROM MON$ATTACHMENTS);

   -- Segundo, se trata de insertar una fila a la tabla CONEXION.
   -- Como la tabla CONEXION tiene una restriccion UNIQUE KEY, un usuario
   -- no se podra conectar mas de una vez al mismo tiempo
    INSERT INTO Conexion (CON_IDENTI, CON_IDECON, CON_NOMBRE, CON_TIMEST)
                  VALUES (0, CURRENT_CONNECTION, CURRENT_USER, CURRENT_TIMESTAMP);
END
Al desconectarse
Código SQL [-]
CREATE TRIGGER DESCONECTADO
ACTIVE ON 
  DISCONNECT
POSITION 1
AS
BEGIN
   DELETE FROM Conexion WHERE Con_Nombre = CURRENT_USER;
END
Si entro una primera vez con un usuario, al tabla CONEXION queda así:


Si ahora accedo con un segundo usuario, sin cerrar la sesión anterior, la tabla queda así:


Sin embargo, si sin cerrar ninguna de las dos sesiones hago un SELECT sobre la tabla MON$ATTACHMENTS se muestra esto:

Como se puede ver ambos usaurios están activos pero en la tabla CONEXION sólo se muestra el que ha entrado último. ¿Alguien me puede explicar la razón? No acabo de entender que puede estar pasando.
Responder Con Cita
 



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
Evitar que un usuario se conecte más de una vez Angel.Matilla Conexión con bases de datos 13 24-04-2017 13:46:58
Evitar que aplicacion se ejecute varias veces sonjeux Varios 5 08-04-2009 02:32:07
evitar ejecutar la misma aplicacion 2 veces noe API de Windows 13 26-05-2008 19:30:03
Como evitar que una apicacion se ejecute dos veces. manitoba C++ Builder 4 28-05-2007 16:50:04
evitar precionar dos veces F3 para cerrar una forma.... Arturo Varios 3 29-08-2005 18:12:42


La franja horaria es GMT +2. Ahora son las 17:38:32.


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