Re: [firebase-br] Usuários Conectados no banco
Jeferson Oliveira
jefersonfoliveira em gmail.com
Qua Dez 13 12:09:52 -03 2006
Enio,
Legal ter compartilhado conosco seu código.
Aproveitando o ensejo, se puder utilizar os componentes InterbaseAdmin
(não sei sobre compatibilidade com Fb 2.0) a função abaixo pode ser
utilizada também para o mesmo objetivo:
function ConexoesAtivasBD(dbVerificar: TIBDatabase): Integer;
var
IBDatabaseInfo: TIBDatabaseInfo;
begin
IBDatabaseInfo := TIBDatabaseInfo.Create(Application);
IBDatabaseInfo.Database := dbVerificar;
Result := IBDatabaseInfo.UserNames.Count;
IBDatabaseInfo.Free;
end;
[modo OFF On]
P.S.: conheça o DelForExp (http://www.dow.wau.nl/aew/DelForExp.html)
pode tornar seu código mais organizado
[modo OFF Off]
Abraço!
Jeferson Oliveira
Mais detalhes sobre a lista de discussão lista