Tema: Conexiones abietas en una base de datos de FB
Ver Mensaje Individual
  #2  
Antiguo 22-10-2004
Avatar de defcon1_es
defcon1_es defcon1_es is offline
Miembro
  
Registrado: mar 2004
Ubicación: Cuenca - España
Posts: 533
Reputación: 21
defcon1_es Va por buen camino
Hola,
prueba el componente TIBDatabaseInfo.

conectalo a tu bd y comprueba su propiedad UserNames.

Ayuda de Delphi:
Cita:
Returns the names of all users currently attached to the database.

property UserNames: TStringList;

Description

Use UserNames to return the names of all users currently attached to the database.
Ejp:
Código Delphi [-]
if (IBDatabaseInfo.UserNames.Count <> 1) then
// Hay más de 1 usuario conectado 
//(Recuerda que el componente debe conectarse a la BD, con lo que hay al menos 1 usuario conectado...)

Salu2.
Responder Con Cita