Cerrar sesion
Publicado por JOHN (1 intervención) el 13/06/2006 00:44:48
Buenas Tardes,
Resulta que en la empresa donde trabajo la red esta limitada a que maximo 10 usuarios se conecten a un equipo, tengo que desarrollar una aplicacion donde van ha entrar 40 personas.
Las conexiones las estoy realizando con ADO, este es un ejemplo el codigo
Cuando la conexión todo bien pero al cerrar la conexion queda habilitada la cuenta de windows del cliente en el servidor y no se desconecta totalmente,
Lo que quiero es que al cerrar la conexión del cliente la cuenta de windows tambien se desconecte para que me deje libre el canal y no tener restricciones en usuarios.
Les agracedeseria bastante.
Dim Cone As New ADODB.Connection
Dim Consu As New ADODB.Recordset
Dim Inicio As Variant
Inicio = Time
Cone.Open "provider=microsoft.jet.oledb.4.0;" _
& "Data source=\\dg45crc121k2\desarrollos$\pruevas\tablas.mdb"
Consu.Open "select * from TblDsmCrd WHERE TblDsmCrd.DsmOblHpt=100401516031
", Cone, adOpenStatic, adLockPessimistic
'WHERE DsmFchDse BETWEEN #2004/01/01# AND #2004/09/30# AND DsmOblHpt LIKE
'1004*'
'Debug.Print Consu.GetString
Consu.MoveLast
Debug.Print "MODELO : ADO"
Debug.Print " Tiempo de consulta : " & Time - Inicio
Debug.Print " Cantida De Registros : " & Consu.RecordCount
Debug.Print " Conexion : " & Cone.ConnectionString
Consu.Close
Resulta que en la empresa donde trabajo la red esta limitada a que maximo 10 usuarios se conecten a un equipo, tengo que desarrollar una aplicacion donde van ha entrar 40 personas.
Las conexiones las estoy realizando con ADO, este es un ejemplo el codigo
Cuando la conexión todo bien pero al cerrar la conexion queda habilitada la cuenta de windows del cliente en el servidor y no se desconecta totalmente,
Lo que quiero es que al cerrar la conexión del cliente la cuenta de windows tambien se desconecte para que me deje libre el canal y no tener restricciones en usuarios.
Les agracedeseria bastante.
Dim Cone As New ADODB.Connection
Dim Consu As New ADODB.Recordset
Dim Inicio As Variant
Inicio = Time
Cone.Open "provider=microsoft.jet.oledb.4.0;" _
& "Data source=\\dg45crc121k2\desarrollos$\pruevas\tablas.mdb"
Consu.Open "select * from TblDsmCrd WHERE TblDsmCrd.DsmOblHpt=100401516031
", Cone, adOpenStatic, adLockPessimistic
'WHERE DsmFchDse BETWEEN #2004/01/01# AND #2004/09/30# AND DsmOblHpt LIKE
'1004*'
'Debug.Print Consu.GetString
Consu.MoveLast
Debug.Print "MODELO : ADO"
Debug.Print " Tiempo de consulta : " & Time - Inicio
Debug.Print " Cantida De Registros : " & Consu.RecordCount
Debug.Print " Conexion : " & Cone.ConnectionString
Consu.Close
Valora esta pregunta
0