TCPoolInfo

Retornar um array contendo informações de todas as conexões do Pool de Conexão AdvPL.

Sintaxe

TCPoolInfo()

Retorno

Observações

• A TCSetPool retorna falso caso não haja conexão ativa durante sua execução
• Não é possível adicionar ao pool uma conexão com transação aberta.
  Ao tentar executar esta operação, a seguinte mensagem de erro é exibida: Error - TCSetPool - Invalid connection due active transacion.
• Não é possível adicionar ao pool uma conexão com área aberta.
  Ao tentar executar esta operação, a seguinte mensagem de erro é exibida: Error - TCSetPool - Invalid connection due opened table - Alias XXX.

• Descrição do array retornado pela função:

  Informação	Tipo	Descrição
  Thread	numérico	Número da thread da conexão com o DBAccess.
  Pool	carácter	Nome do pool ao qual a conexão está associada.
  Tempo	numérico	Tempo que a thread está disponível no pool.

Exemplos

user function exemplo
  
  local i := 0
  local aInfo := {}
  
  for i := 1 to 5
    TCLink()
    TCSetPool("MYPOOL")
  next
  
  varInfo("Conexoes no Pool: ", TCPoolInfo())
  
  aInfo := TCPoolInfo()
  while (len(aInfo) > 0)
    TCGetPool(aInfo[1,2])
    TCUNLink()
    aInfo := TCPoolInfo()
  end
  
return

Veja também

• TCSetPool
• TCPoolInfo
• TCLink
• TCUnlink