Histórico da Página
...
Portuguese | ||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Função: TCGetDB
|
Banco de Dados | String retornada |
Microsoft SQL Server | MSSQL |
Oracle | ORACLE |
IBM DB2 ( UDB ) | DB2 |
IBM DB2 ( AS400 / iSeries ) (**) | DB2/400 |
IBM Informix | INFORMIX |
Sybase | SYBASE |
PostgreSQL | POSTGRES |
Generic ODBC Connection | ODBC |
MySQL | MYSQL |
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