TCSetConn

TCSetConn ( < nHndConn> ) --> lRet

lRet(logico)
• Retorna verdadeiro (.T.), se a conexão corrente for trocada com sucesso. Se a conexão informada não existir ou já estiver sido fechada, a conexão atual é mantida e a função retorna falso (.F.).

• A troca de uma conexão ativa não fecha a conexão anteriormente em uso.
• Quando utilizamos mais de uma conexão, devemos trocar as conexões ativas quando necessário e abrir um recurso, tabela, query ou execução de statement, pois estas execuções são sempre realizadas na conexão ativa.
• O handler utilizado como parâmetro é obtido no momento que a conexão é criada, quando utilizamos a função TCLink().
• Esta função é útil quando da necessidade de integração de aplicações, onde o ERP utiliza um SGBD através do DBAccess, e existe a necessidade da aplicação AdvPL conectar com outro banco de dados para ler ou gravar informações. Neste caso, um programa customizado executado a partir do menu do ERP, que já está conectado com o DBAccess apontando para o banco oficial de dados, pode fazer um TCLink() para um outro DBAccess apontando para outro banco, e alternar entre as conexões ativas, abrindo tabelas e queries em uma conexão e gravando informações em tabelas abertas na segunda conexão.
• Como a troca entre conexões ativas com o DBAccess requer o handler retornado pela TCLink(), e o FrameWork do ERP Microsiga Protheus já estabelece esta conexão, é possível obter o handler da conexão atual já existente no processo através da função de Framework  "AdvConnection()" ( Esta função somente está disponíveis em Repositório para ambientes TOP/SGBD ).

/*Exemplo de função que alterna entre conexão de dados de ERP E conexão adicional com outro banco através do DBAccess.Deve ser executada a partir do Menu do ERP */User Function OtherConn()// Recupera handler da conexão atual com o DBAccess // Esta conexão foi feita pelo Framework do AdvPL, usando TCLink()Local nHErp := AdvConnection() Local cDBOra := "ORACLE/P10_TESTE"Local cSrvOra := "172.16.0.1"Local nHndOra Local cQuery := ''conout("ERP conectado - Handler"+str(nHndOra,4))// Cria uma conexão com um outro banco , outro DBAccesnHndOra := TcLink(cDbOra,cSrvOra,7890)If nHndOra < 0    UserException("Falha ao conectar com "+cDbOra+" em "+cSrvOra)Endifconout("Oracle conectado - Handler"+str(nHndOra,4))conout("Banco = "+TcGetDB())// Volta para conexão ERP tcSetConn(nHErp)conout("Banco = "+TcGetDB())// Fecha a conexão com o Oracle TcUnlink(nHndOra)conout("Oracle desconectado")// Mostra a conexão ativa conout("Banco = "+TcGetDB())Return