TOTVSTEC

Árvore de páginas

Adiciona ao Pool de Conexões AdvPL uma conexão com o DBAccess, previamente criada.

Sintaxe

TCSetPool( < cPool >, [ lEcho ] )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

cPool

caractere

Nome do pool onde será adicionada uma conexão.

X


lEcho

lógico

Indica se deve ser informado no log de console se houve fechamento automático de alias abertos. (**)



Retorno

Nome

Tipo

Descrição

lRet

lógico

Retorna Verdadeiro (.T.) ou Falso (.F.) para adição da conexão ao pool.
Verdadeiro - Sucesso na adição
Falso - Erro na adição

Atenção

Esta função não está disponível para uso com RPODB=SQLITE.

Observações

  • A função 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.
  • (**) Em builds superiores a 7.00.170117A Versão 17.3.0.15, a função TCSetPool() passa a fechar automaticamente os alias abertos associados com a conexão, ao invés de impedir a conexão de ir para o 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

  • Sem rótulos