Histórico da Página

#------------------------------------#
 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