Conocer cuantos usuarios hay conectados a una BD access

[Bazooka]

Hola amigos! tengo una aplicacion desarrollada cliente y servidor que utiliza  'Microsoft.Jet.OLEDB.4.0' para conectarse. Todo me funciona correcto aparentmente pero me gustaria que desde el ejecutable Servidor pueda ver cuantos usuarios hay conectados a la bd en ese momento y de ser posibles quienes son
Muchas gracias !!!

[YAcosta]

Creo que tienes que leer el archivo lbd de la BD que se crea cuando alguien se conecta a ella pero no se como hacerlo, checa esto:
http://support.microsoft.com/kb/136128/es

[Bazooka]

Creo que tienes que leer el archivo lbd de la BD que se crea cuando alguien se conecta a ella pero no se como hacerlo, checa esto:
http://support.microsoft.com/kb/136128/es

Gracias iban pero no es para eso!!  explica que son en realidad pero no como manipularlos!

[seba123neo]

Hola, en Access es medio limitado, pero podes hacerlo con esto:

Use ADO to Return a List of Users Connected to a Database

el codigo que probe y funciona es:

Código: (vb) [Seleccionar]

Private Function UsuariosConectados()
    Dim cn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim i, j As Long
   
    cn.Provider = "Microsoft.Jet.OLEDB.4.0"
    cn.Open "Data Source=C:\Northwind2003.mdb"
   
    Set rs = cn.OpenSchema(adSchemaProviderSpecific, , "{947bb102-5d43-11d1-bdbf-00c04fb92675}")
   
    Debug.Print rs.Fields(0).Name, "", rs.Fields(1).Name, "", rs.Fields(2).Name, rs.Fields(3).Name
   
    While Not rs.EOF
        Debug.Print rs.Fields(0), rs.Fields(1), rs.Fields(2), rs.Fields(3)
        rs.MoveNext
    Wend
End Function

Private Sub Form_Load()
    Call UsuariosConectados
End Sub

[YAcosta]

Creo que tienes que leer el archivo lbd de la BD que se crea cuando alguien se conecta a ella pero no se como hacerlo, checa esto:
http://support.microsoft.com/kb/136128/es

Gracias iban pero no es para eso!!  explica que son en realidad pero no como manipularlos!

Cierto, lo volví a revisar y es como dices, pero alli sebas te dio la fija que yo tampoco la sabia.

[Bazooka]

Hola, en Access es medio limitado, pero podes hacerlo con esto:

Use ADO to Return a List of Users Connected to a Database

el codigo que probe y funciona es:

Código: (vb) [Seleccionar]

Private Function UsuariosConectados()
    Dim cn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim i, j As Long
   
    cn.Provider = "Microsoft.Jet.OLEDB.4.0"
    cn.Open "Data Source=C:\Northwind2003.mdb"
   
    Set rs = cn.OpenSchema(adSchemaProviderSpecific, , "{947bb102-5d43-11d1-bdbf-00c04fb92675}")
   
    Debug.Print rs.Fields(0).Name, "", rs.Fields(1).Name, "", rs.Fields(2).Name, rs.Fields(3).Name
   
    While Not rs.EOF
        Debug.Print rs.Fields(0), rs.Fields(1), rs.Fields(2), rs.Fields(3)
        rs.MoveNext
    Wend
End Function

Private Sub Form_Load()
    Call UsuariosConectados
End Sub

Buenos días amigos!! gracias funcionó correctamente sólo tuve que modificar la linea de conexion por que la base tiene contraaseña! aqui la dejo porsi le sirve a alguien en el fututo!!

Código: [Seleccionar]

'para abrir base sin contraseña
cn.Open "Data Source=C:\Northwind2003.mdb"

'para abrir base con contraseña
rutaBase=C:\Northwind2003.mdb
cn.Open "Data Source=" & RutaBase & ";" & "Jet OLEDB:Database Password=******"