Árvore de páginas

Você está vendo a versão antiga da página. Ver a versão atual.

Comparar com o atual Ver Histórico da Página

« Anterior Versão 2 Próxima »

Retorna informações sobre o DBAccess conectado atualmente

Sintaxe

TCGetInfo( [ nInfo ], [ cParam ] )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

nInfo

numérico

Indica o número da informação a ser recuperada.

 

 

cParam

caractere

Para alguns tipos de informação, permite informar um parâmetro adicional ou critério de informação de retorno.

 

 

Retorno

Nome

Tipo

Descrição

cInfoStr

caractere

Retorna uma string AdvPL com a informação desejada.

Observações

  • Veja abaixo as informações implementadas:
    • 1 - Retorna o nome completo da Build do DBAccess.
    • 2 - Retorna uma string contendo o total de CPU em uso na máquina onde está instalado o DBAccess. Caso seja uma máquina Windows, retorna o percentual de 0 a 100 %. Para ambiente Linux, retorna o Load Average da máquina.
    • 3 - Retorna a quantidade de memória (em KB) consumida pelo serviço do DBAccess.
    • 4 - Retorna informação sobre a versão do sistema operacional.
    • 5 - Retorna string com informações de memória da máquina e do aplicativo DBAccess.
    • 6 - Retorna o número de conexões atualmente estabelecidas com este DBAccess.
    • 7 - Retorna o latência entre o DBAccess e o SGDB.
    • 8 - Retorna o latência entre o DBAccess Slave e o DBAccess Master (Somente se estiver utilizando DBAccess Distribuído).
    • 9 - Retorna a quantidade de memória (em KB) consumida pela thread do DBAccess.

 

  • A função TCGetInfo() somente está disponível a partir do TOTVS Application Server Build 7.00.131227A e superiores, com data de geração igual ou superior a 03/02/2017. 
  • O uso desta função também requer a atualização do DBAccess Server, Build 20170202, release 17.1.1.0 ou superior.

Exemplos

USER FUNCTION TEST()
  Local cDB   := "POSTGRES/dsn" // alterar o alias/dsn para o banco/conexão que está utilizando
  Local cSrv  := "localhost" // alterar para o ip do DbAccess
  Local cInfo
  
  nHnd := TCLink(cDB, cSrv, 7890)
  
  if nHnd >= 0
    conout("Conectado")

    For nI := 1 to 9
      conout('Informação '+cValToChar(nI))
      conout(TCGetInfo(nI))
      conout('')
    Next

  endif

  TCUnlink()
RETURN

Veja também

  • Sem rótulos