TCSetPool
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. |
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
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas