Pessoal gostaria de saber se tem algum comando que possa devolver a quantidade de pessoas que estao acessando o banco FIREBIRD naquele momento.
Uso Xharbour 0.99.7 e o SQLRDD.
Valeu pela Atencao antecipadamente,
Helio Beltrao Jr.

Moderador: Moderadores
Function Cont_users
Local aret := {}
Local vCONT:=0
IF eTIPO_SQL="POSTGRESQL"
cSQL := "select count(*) from pg_stat_activity"
ELSEIF eTIPO_SQL="MYSQL"
cSQL := "SELECT * FROM information_schema.`PROCESSLIST`"
ELSEIF eTIPO_SQL="FIREBIRD"
cSQL := "SELECT MON$USER, MON$REMOTE_ADDRESS, MON$REMOTE_PID, MON$TIMESTAMP FROM MON$ATTACHMENTS WHERE MON$ATTACHMENT_ID <> CURRENT_CONNECTION"
ENDIF
oSql := SR_GetConnection()
osql:exec(cSQL ,,.t.,@aret)
IF eTIPO_SQL="POSTGRESQL"
vCONT=(aret[1,1]/2)
ELSEIF eTIPO_SQL="MYSQL"
vCONT=(len(aret)/2)
ELSEIF eTIPO_SQL="FIREBIRD"
vCONT=(len(aret)-1)
IF vCONT=0
vCONT=1
ENDIF
ENDIF
Return(vCONT)
Usuários vendo este fórum: Nenhum usuário registrado online e 14 visitantes