Descrição
TCUnlink [AS] - Encerra a conexão especificada com o DBAccess..
|
Sintaxe
Parâmetros
| Par |
Nome |
Tipo |
Descrição |
Default |
Obg |
Ref |
01
|
nConn
|
Numérico
|
Indica o número da conexão que será finalizada. Caso esse parâmetro não seja especificado, a conexão ativa/atual será finalizada
|
|
X |
|
Retorno
| Retorno |
Tipo |
Descrição |
| lRet |
Boolean
|
Retorna verdadeiro (.T.), se a conexão for encerrada com sucesso; caso contrário, falso (.F.), se houver falha de execução. Geralmente, as falhas de execução ocorrem quando tentamos encerrar uma conexão informando um handler inexistente ou já fechada anteriormente
|
Exemplo
#INCLUDE "TOTVS.CH"
User Function TCUnlink()
Local nRet := 0
Local cMsg := ''
If ( nRet := TCLink( 'MSSQL/UAUA', '127.0.0.1', 7890 ) ) < 0
cMsg += 'Conexão (MSSQL/UAUA): Erro ' + Str( nRet, 4 )
Else
TcUnlink( nRet )
Endif
If ( nRet := TCLink( 'MSSQL/UNIVERSOADVPL', '127.0.0.1', 7890 ) ) < 0
cMsg += 'Conexão (MSSQL/UNIVERSOADVPL): Erro ' + Str( nRet, 4 )
Else
TcUnlink( nRet )
Endif
MsgInfo( cMsg, 'UniversoADVPL' )
Return( Nil )
Resultado
Informações adicionais
|
Se o parâmetro <nHndConn> não for informado, a conexão atualmente ativa será encerrada
|
|
Em um ambiente com mais de uma conexão simultânea realizada via TCLink(), duas ou mais conexões estão ativas, o fechamento de uma automaticamente coloca a conexão anteriormente aberta como ativa
|
|
O número da conexão é obtido no momento que a conexão é estabelecida, através da função TCLink().
|
|
Ao executar a função TCUnlink(), não deve mais haver tabelas abertas utilizando a conexão que está sendo fechada. Caso existam, elas serão fechadas automaticamente, porém vão gerar mensagens de advertência no log de console do Application Server
|
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
