TCGetDB

TCGetDB ( ) --> cSGBD

(caracter)
• Retorna uma string contendo um identificador do banco de dados em uso pela conexão atual.

A função TCGetDB() retorna uma string contendo um identificado que representa o banco de dados relacional (SGBD) em uso pela conexão atual/ativa com o DBAccess.

Esta função é útil em programas que utilizam banco de dados relacional através de conexões com o DBAccess. Além disso, existe a necessidade de saber, em tempo de execução, qual o banco de dados em uso pela conexão, para permitir codificar um tratamento diferenciado ou específico.

A string retornada representa o tipo de banco de dados utilizado na conexão atual, especificado como parâmetro inicial da função TCLink(), para estabelecer a conexão da aplicação com o SGBD através do DBAccess.

A seguir, observe na tabela a string que será retornada:

Caso não haja nenhuma conexão ativa com DBAccess no momento da chamada da função, é retornada uma string em branco ( "" ), e no log de console do Application Server será registrada uma advertência :  "Warning - TCGetDB - statement ignored - No connection." 

(**) Quando utilizado banco de dados DB2 em equipamento AS400/iSeries, independente de ser utilizado TOP2 ou TOP4 , o retorno da função TCGetDB() será sempre a string  "DB2/400". Caso exista a necessidade do programa determinar qual a versão da aplicação (TOP2 ou TOP4) em uso pela conexão, deve ser utilizada a função TCSrvType(). 

cDB := TcGetDB()
If Empty(cBD)
   MsgStop("Não há conexão ativa.")
Else
   MsgInfo("Conectado com "+cBD)
Endif