Histórico da Página
...
Bloco de código | ||
---|---|---|
| ||
TCGetDB() |
Retorno
Nome | Tipo | Descrição |
---|---|---|
cRet | caractere | Retorna uma string contendo um identificador do banco de dados em uso pela conexão atual. |
Informações | ||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||||||||||||||||
A função TCGetDB retorna uma string contendo um identificador 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. |
Exemplos
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
user function teste() Local nHandle := TCLink( "MSSQL/DSNP11-MSSQL", "127.0.0.1", 7890 ) Local cDB := TcGetDB() If Empty( cBDcDB ) MsgStop( "Não há conexão ativa." ) Else MsgInfo( "Conectado com " + cBDcDB ) Endif TCUnlink( nHandle ) return |
...