Acceso a bd en servidor desde otros pc's
El problema que se me presenta es el siguiente. Tengo una base de datos alojada en un servidor, al cual se conectan desde diversos PCs desde la red interna del trabajo.
En dicha base tengo un módulo como el que expongo a continuación:
Option Compare Database
Public dirBaseDatos As String
Public strProvJet As String
Public IdentificaUsuario As Integer
Sub DeclVarGen()
dirBaseDatos = "F:\DOCUMENT\FACTURA.mdb;"
strProvJet = "Microsoft.Jet.OLEDB.4.0;" 'para conectar con una BD en Access 2000
End Sub
El problema se me presenta que no todos los PCs acceden al servidor a través de la red con la misma letra (en el ejemplo F), por lo que la base no funciona correctamente si se accede desde un PC que accede al mismo a través de una unidad de red denominada Z.
¿Hay alguna solución para arreglar esto a través de código en access sin tener que cambiar la letra de acceso de la unidad de red en cada ordenador?
Ah, empleo Access 2003.
Saludos.
En dicha base tengo un módulo como el que expongo a continuación:
Option Compare Database
Public dirBaseDatos As String
Public strProvJet As String
Public IdentificaUsuario As Integer
Sub DeclVarGen()
dirBaseDatos = "F:\DOCUMENT\FACTURA.mdb;"
strProvJet = "Microsoft.Jet.OLEDB.4.0;" 'para conectar con una BD en Access 2000
End Sub
El problema se me presenta que no todos los PCs acceden al servidor a través de la red con la misma letra (en el ejemplo F), por lo que la base no funciona correctamente si se accede desde un PC que accede al mismo a través de una unidad de red denominada Z.
¿Hay alguna solución para arreglar esto a través de código en access sin tener que cambiar la letra de acceso de la unidad de red en cada ordenador?
Ah, empleo Access 2003.
Saludos.
1 respuesta
Respuesta de smanero
1
¿Y te imaginas que este usuario que accede desde Z se hubiese hecho una copia en la unidad F de la carpeta DOCUMENT?, le funcionaría pero...
Una solución sería preguntar al usuario en que unidad tiene la BD
Dim Drv as string
Drv=Inputbox("dame la letra de la unidad.......
dirBaseDatos = Drv+":\DOCUMENT\FACTURA.mdb"
if Dir(dirbasedatos)="" then
la letra no es correcta etc.
else
conectar
end if
Una solución sería preguntar al usuario en que unidad tiene la BD
Dim Drv as string
Drv=Inputbox("dame la letra de la unidad.......
dirBaseDatos = Drv+":\DOCUMENT\FACTURA.mdb"
if Dir(dirbasedatos)="" then
la letra no es correcta etc.
else
conectar
end if
