TOTVSTEC

Árvore de páginas

Carregando...
Tempo aproximado para leitura: 1 minuto

Finaliza todas as conexões ativas.

Sintaxe

TCQuit()

Retorno

Nome

Tipo

Descrição

lRet

lógico

Retorna .T. quando a função finalizou todas as conexões ativas com sucesso, se não retorna .F.

Exemplos

USER FUNCTION TEST()
  Local cDBOracle := "ORACLE/tnsname"
  Local cDBPostgres := "POSTGRES/dsn-postgres"
  Local cSrvOra := "127.0.0.1"
  
  nHwnd1 := TcLink(cDBOracle,cSrvOra,7890)
  nHwnd2 := TcLink(cDBPostgres,cSrvOra,7890)
  
  IF( TCQuit() == .T. )
    CONOUT("Finalizou todas as conexões!")
  ENDIF
  
  // Após o TCQuit não é possivel realizar nenhum tipo de operação de Banco da Dados, necessario realizar um novo TCLink
RETURN

Veja também

  • Sem rótulos