Permisos al usuario ASPNET que desaparecen

[Bravenap]

Muy buenas. Estoy manteniendo una intranet en la que las bases de datos de Access se encuentran en una carpeta fuera de las carpetas del servidor. Para que la intranet pueda trabajar con las bases de datos asigné permisos al usuario ASPNET. Sin embargo, sin que aparentemente se haya modificado nada, desaparece el usuario ASPNET de la lista de usuarios con permisos en esa carpeta, por lo que la intranet devuelve el error:

Código:

Error-2147467259: El motor de base de datos Microsoft Jet no puede abrir el archivo '\\SERVIDOR\BasesDatos\clientes.mdb'.
Está abierto en modo exclusivo por otro usuario o bien necesita permiso para ver sus datos.

Le asigno de nuevo los permisos y al rato desaparecen otra vez, cuando no se me queda colgada directamente la ventana de permisos.

¿Alguna ayuda o sugerencia?

Gracias y un saludo.

[BrujoNic]

No creo que sea problemas de permisos a ese usuario. Si lees bien el mensaje, dice que clientes.mdb, está abierto en modo exclusivo. Eso quiere decir, que NO guardarte o configuraste clientes.mdb para que pudiera trabjarse en modo multiusuario o shared (compartido). Al abrirlo o accesarlo un solo usuario, bloquea el acceso a los demás.

Voy a mover tu consulta a la sección de BD para que te ayuden con eso y como consejo, trata de utilizar un motor de BD un poco más de verdad si vas a manejar volúmenes altos de datos o muchos usuarios. Access no fue diseñado para ese tipo de tareas.

[xknown]

A mi me parece que es más error de programación que otra cosa, revisa si todas las conexiones que abres las cierras adecuadamente.

Saludos

[Bravenap]

Gracias a los dos por las respuestas. Casi estoy más de acuerdo con xknown porque todos los usuarios que tenían la base de datos abierta la cerraron (en ese momento eran sólo 3 y nunca suele haber más de 6 ó 7) y la aplicación ASP.Net seguía dando el mismo fallo.

Sigo insistiendo en el tema de los permisos porque cualquier base de datos Access a la que intentara conectar devolvía el mismo fallo. Ahora funciona sin problemas, aunque han vuelto a desaparecer los permisos.

Las conexiones las hago así (en un módulo aparte):

Código:

Public Class datosOLE

    Private con As OleDbConnection

    Public Sub New()
        Try
            con = New OleDbConnection(ConfigurationSettings.AppSettings("conOle"))
        Catch ex As OleDbException
            Throw New Exception("Error Ole" & ex.ErrorCode & ": " & ex.Message)
        End Try
    End Sub

    Public Sub New(ByVal constring As String)
        con = New OleDbConnection(constring)
    End Sub

    Public Function EjecutaNonQuery(ByVal strsql As String) As Integer

        Dim cmd As New OleDbCommand(strsql, con)
        Try
            con.Open()
            Dim n As Integer = cmd.ExecuteNonQuery
            Return n
        Catch ex As OleDbException
            Throw New Exception("Error Ole " & ex.ErrorCode & ": " & ex.Message)
        Finally
            If con.State.Open = ConnectionState.Open Then
                con.Close()
            End If
        End Try

        cmd.Dispose()

    End Function

    Public Function EjecutaScalar(ByVal strsql As String) As String

        Dim cmd As New OleDbCommand(strsql, con)
        Try
            con.Open()
            Dim obj As Object = cmd.ExecuteScalar
            If obj Is DBNull.Value Then obj = ""
            Return String.Format("{0}", obj)
        Catch ex As OleDbException
            Throw New Exception("Error" & ex.ErrorCode & ": " & ex.Message)
        Finally
            If con.State.Open = ConnectionState.Open Then
                con.Close()
            End If
        End Try

        cmd.Dispose()

    End Function

    Public Function DevuelveDT(ByVal strSQL As String) As DataTable
        Dim cmd As OleDbCommand
        Try
            cmd = New OleDbCommand(strSQL, con)
        Catch ex As OleDbException
            Throw New Exception("Error" & ex.ErrorCode & ": " & ex.Message)
        End Try
        Dim dt As New DataTable
        dt.Clear()

        Dim da As OleDbDataAdapter
        Try
            da = New OleDbDataAdapter(cmd)
        Catch ex As OleDbException
            Throw New Exception("Error" & ex.ErrorCode & ": " & ex.Message)
        End Try
        Try
            da.Fill(dt)
            Return dt
        Catch ex As OleDbException
            Throw New Exception("Error" & ex.ErrorCode & ": " & ex.Message)
        Finally
            If con.State.Open = ConnectionState.Open Then
                con.Close()
            End If
        End Try

        cmd.Dispose()
        da.Dispose()

    End Function

    Public Function DevuelveDS(ByVal strSQL As String) As DataSet
        Dim cmd As New OleDbCommand(strSQL, con)
        Dim ds As New DataSet
        ds.Clear()
        Dim da As New OleDbDataAdapter(cmd)
        Try
            da.Fill(ds)
            Return ds
        Catch ex As SqlException
            Throw New Exception("Error " & ex.Number & ": " & ex.Message)
        Finally
            If con.State.Open = ConnectionState.Open Then
                con.Close()
            End If
        End Try

        cmd.Dispose()
        da.Dispose()

    End Function
End Class

Por lo que en principio siempre las cierro.

Gracias y un saludo.