Buenas tardes.
Colegas es que requiero de su ayuda, necesito saber como realizo el proceso de conexión de 6i a una BD de oracle, sin que oracle forms 6i me pida la venta de conexión: user,password y BD, es decir que haya una conexión por debajo y que el modulo que hice como un logon.fmb ya venga con conexión a la BD de oracle, pues pongo en contexto en oracle 12c se puede hacer pero como un pool de conexión desde la consola de admin del weblogic. Pero oracle forms 6i no maneja como tal un servidor, ya que 6i es en cliente/servidor.
Espere me expliquen pues tengo algo como esto:
DECLARE
sbUsuario VARCHAR2(30);
sbContrase VARCHAR2(30);
sbBaseDato VARCHAR2(30);
sbMensaje VARCHAR2(50);
inAlerta NUMBER;
BEGIN
IF GET_APPLICATION_PROPERTY(CONNECT_STRING) IS NULL THEN
--LLama las credenciales de entorno
TOOL_ENV.GETVAR('SGI_USER',sbUsuario);
TOOL_ENV.GETVAR('SGI_PASS',sbContrase);
TOOL_ENV.GETVAR('SGI_BBDD',sbBaseDato);
:GLOBAL.USUARIO := sbUsuario;
:GLOBAL.CONTRASE := sbContrase;
:GLOBAL.BASEDATO := sbBaseDato;
--Realiza conexión con la base de datos
LOGON(:GLOBAL.USUARIO,:GLOBAL.CONTRASE||'@'||:GLOBAL.BASEDATO,FALSE);
--Sí hay algun error con las credenciales muestra el siguiente mensaje
IF FORM_FAILURE THEN
sbMensaje := 'FALLO EN LA CONEXIÓN DE BASE DE DATOS';
Set_Alert_Property('opcion_no_valida',ALERT_MESSAGE_TEXT,sbMensaje);
inAlerta := show_alert('opcion_no_valida');
RAISE Form_trigger_Failure;
END IF;
END IF;
END;
dichas variables las estoy seteando en el .bat pero no hace la conexión