Hola,
Estoy teniendo problemas con una aplicación de VB6.0 que ha estado funcionando bien durante años. Ahora, a algunos usuarios les salta el siguiente error:
"Error '-2147467259 (80004005)' en tiempo de ejecución
El motor de base de datos Microsoft Jet no puede abrir el archivo 'BD *.mdb en un servidor'. Está abierto en modo exclusivo por otro usuario o bien necesita permiso para ver sus datos."
Y este es el código que produce el error:
Código:
dnvUsuarios.conDokulan.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & vgsBd & ";Mode=ReadWrite;Persist Security Info=False"
dnvUsuarios.conDokulan.Open
sql = "SELECT * From Usuarios ORDER BY Usuarios.CodUsuario"
If rsUsuarios.State = adStateOpen Then
rsUsuarios.Close
End If
rsUsuarios.Open sql, dnvUsuarios.conDokulan, , adLockOptimistic, adCmdText
Screen.MousePointer = vbDefault
No puedo confirmar en que línea da el error, porque a mi no me salta el error al intentar depurar, además la función que está produciendo el error no se ha tocado desde que se programó.
He comprobado los permisos de los usuarios a los que le aparece el error y son correctos, puedo incluso abrir la BD con Access desde su equipo. Estoy utilizando un VB6.0 instado en W7, aunque no creo que este sea el problema ya que llevo utilizando este sistema casi un año manteniendo varios programas en VB6.0 y no me ha dado este problema.
Estoy un poco perdido con este tema y por las búsquedas que he hecho parece que es un error muy genérico.
Muchas gracias,
Iker