Avalia o tipo de banco de banco de dados conectado durante a execução de uma aplicação.

Sintaxe

LOG_getCurrentDBType( ) => CHAR

Retorno

Tipo

Descrição

CHAR

Tipo do banco de dados conectado na execução atual da aplicação.

IFX   - Informix

ORA - Oracle

MSV - SqlServer


(aviso) Quando não houver nenhum banco de dados conectado, o retorno será NULL.

Exemplo

#-----------------------------#
 FUNCTION LOG_getCurrentDBType_test()
#-----------------------------#
   DEFINE l_db CHAR(3)

   IF LOG_getCurrentDBType() IS NULL THEN
      CALL conout("Nenhum banco de dados conectado.")
   END IF

   CALL LOG_connectDatabase("DEFAULT")

   LET l_db = LOG_getCurrentDBType()
   CASE l_db
   WHEN "IFX" CALL conout("Conexão com banco Informix.")
   WHEN "ORA" CALL conout("Conexão com banco Oracle.")
   WHEN "MSV" CALL conout("Conexão com banco SQLServer.")
   END CASE
 END FUNCTION

Informações

Fontes: dbinfo.4gl, dbinfo.prw

Veja também

LOG_db_column_exists

LOG_db_table_exists