Adiciona ao Pool de Conexões AdvPL uma conexão com o DBAccess, previamente criada.
TCSetPool( < cPool >, [ lEcho ] ) |
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. (**) |
Nome | Tipo | Descrição |
---|---|---|
lRet | lógico | Retorna Verdadeiro (.T.) ou Falso (.F.) para adição da conexão ao pool. |
Esta função não está disponível para uso com RPODB=SQLITE. |
|
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 |