profilestring y conexion
Publicado por paola (1 intervención) el 06/09/2005 19:41:47
tengo el sgt problema
If FileExists(ls_ruta_ini) Then
SQLCA.DBMS = ProfileString(ls_ruta_ini, "DATABASE","DBMS", " ")
SQLCA.Database = ProfileString(ls_ruta_ini, "DATABASE","Database", " ")
SQLCA.dbpass = ProfileString(ls_ruta_ini, "DATABASE","dbpass", " ")
SQLCA.ServerName = ProfileString(ls_ruta_ini, "DATABASE","ServerName", " ")
SQLCA.userid = ProfileString(ls_ruta_ini, "DATABASE","userid ", " ")
SQLCA.DBParm = ProfileString(ls_ruta_ini, "DATABASE","DbParm", " ")
Else
MessageBox(gs_aplicacion, "El archivo " + ls_ruta_ini + " de la aplicación no existe...", StopSign!)
End If
yo quiero conectarme a una base de datos anywhere en la cual ya crre usuarios
no me sale a que se debe tengo ademas 2 controles sle_usuario y sle_password
ahora es posible que al conectarse se quede grabado el nombre del usuario en una rchivo plano y que al abrir la ventana login me de cual fue el ultimo usuario conectado
gracias a todos
If FileExists(ls_ruta_ini) Then
SQLCA.DBMS = ProfileString(ls_ruta_ini, "DATABASE","DBMS", " ")
SQLCA.Database = ProfileString(ls_ruta_ini, "DATABASE","Database", " ")
SQLCA.dbpass = ProfileString(ls_ruta_ini, "DATABASE","dbpass", " ")
SQLCA.ServerName = ProfileString(ls_ruta_ini, "DATABASE","ServerName", " ")
SQLCA.userid = ProfileString(ls_ruta_ini, "DATABASE","userid ", " ")
SQLCA.DBParm = ProfileString(ls_ruta_ini, "DATABASE","DbParm", " ")
Else
MessageBox(gs_aplicacion, "El archivo " + ls_ruta_ini + " de la aplicación no existe...", StopSign!)
End If
yo quiero conectarme a una base de datos anywhere en la cual ya crre usuarios
no me sale a que se debe tengo ademas 2 controles sle_usuario y sle_password
ahora es posible que al conectarse se quede grabado el nombre del usuario en una rchivo plano y que al abrir la ventana login me de cual fue el ultimo usuario conectado
gracias a todos
Valora esta pregunta
0