USUARIO y PASSWORD dinámico en un profile de conexión
Hola experto, tengo el siguiente problema:
Tengo un Porfile de conexión que se usa por defecto y es el siguiente:
// Profile por defecto
SQLCA.DBMS = "O90 Oracle9i (9.0.1)"
SQLCA.LogPass = "HOLA"
SQLCA.ServerName = "tns:hola"
SQLCA.LogId = "123456"
SQLCA.AutoCommit = False
SQLCA.DBParm = "PBCatalogOwner='HOLA'"
//*-----------------------------------------------------
Quiero establecer un Profile, en donde yo establezca mi USUARIO y CONTRASEÑA de manera DINÁMICO
// Profile dinamico
SQLCA.DBMS = "O90 Oracle9i (9.0.1)"
SQLCA.LogPass = USUARIO
SQLCA.ServerName = "tns:hola"
SQLCA.LogId = PASSWORD
SQLCA.AutoCommit = False
SQLCA.DBParm = "PBCatalogOwner='HOLA'"
¿Es posible realizar esto?
Tengo un Porfile de conexión que se usa por defecto y es el siguiente:
// Profile por defecto
SQLCA.DBMS = "O90 Oracle9i (9.0.1)"
SQLCA.LogPass = "HOLA"
SQLCA.ServerName = "tns:hola"
SQLCA.LogId = "123456"
SQLCA.AutoCommit = False
SQLCA.DBParm = "PBCatalogOwner='HOLA'"
//*-----------------------------------------------------
Quiero establecer un Profile, en donde yo establezca mi USUARIO y CONTRASEÑA de manera DINÁMICO
// Profile dinamico
SQLCA.DBMS = "O90 Oracle9i (9.0.1)"
SQLCA.LogPass = USUARIO
SQLCA.ServerName = "tns:hola"
SQLCA.LogId = PASSWORD
SQLCA.AutoCommit = False
SQLCA.DBParm = "PBCatalogOwner='HOLA'"
¿Es posible realizar esto?
1 Respuesta
Respuesta de achafio
1
Ya tengo mis USUARIOS, ¿qué tengo que hacer?. Mandame algún ejemplo. Voy a estar muy agradecido..
Ahora tienes que crear un archivo con extensión INI (conexión.ini), ahí poner lo siguiente:
[conexion]
DBMS = "O90 Oracle9i (9.0.1)"
ServerName = "tns:hola"
AutoCommit = False
DBParm = "PBCatalogOwner='HOLA'"
Luego en tu ventana donde solicitas el usuario y la clave en el boton aceptar colocas:
SQLCA.DBMS = ProfileString("conexion.ini","conexion","DBMS","")
SQLCA.ServerName = ProfileString("conexion.ini","conexion","ServerName","")
SQLCA.AutoCommit = ProfileString("conexion.ini","conexion","AutoCommit","")
SQLCA.DBParm = ProfileString("conexion.ini","conexion","DBParm","")
SQLCA.LogPass = sle_usuario.text
SQLCA.LogId = sle_clave.text
Luego sigues los mismo procedimientos para la conexión, eso es todo
Cualquier duda solo pregunta.
[conexion]
DBMS = "O90 Oracle9i (9.0.1)"
ServerName = "tns:hola"
AutoCommit = False
DBParm = "PBCatalogOwner='HOLA'"
Luego en tu ventana donde solicitas el usuario y la clave en el boton aceptar colocas:
SQLCA.DBMS = ProfileString("conexion.ini","conexion","DBMS","")
SQLCA.ServerName = ProfileString("conexion.ini","conexion","ServerName","")
SQLCA.AutoCommit = ProfileString("conexion.ini","conexion","AutoCommit","")
SQLCA.DBParm = ProfileString("conexion.ini","conexion","DBParm","")
SQLCA.LogPass = sle_usuario.text
SQLCA.LogId = sle_clave.text
Luego sigues los mismo procedimientos para la conexión, eso es todo
Cualquier duda solo pregunta.
