
leer un fichero Acces desde otro ordenador mediante Excel VBA
Publicado por joan (2 intervenciones) el 14/08/2021 10:45:03
Estoy leyendo un fichero acces desde VBA en Excel, si ambos están en el mismo ordenador no hay problema.
Pero si el fichero Acces esta en otro ordenador, conectados por Ethernet IPv4 y como Workgroup, pero no lo consigo.
El código que funciona, estando Acces i Excel en el mismo ordenador, es:
Set Conn = CreateObject("ADODB.Connection")
MiConexion = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=C:\__TENDA\__JULIOL\MERCE_JULIOL_1\EXECEL_ACCES\dbase_210730_0001.mdb"
With Conn
.Provider = "Microsoft.ACE.OLEDB.12.0"
.Open MiConexion
End With
consultaSql = "Select * from tickets;"
'Conn.Open MiConexion ' l'objecte ja es obert
Set datos = Conn.Execute(consultaSql)
.....
.....
Cuando quiero conectar con otro ordenador por ethernet, escribo:
MiConexion = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=\\PCmiki\C:\dbase_210730_0001.mdb"
Ya que tengo el fichero Acces en C del ordenador PCmiki...
¿Qué estoy haciendo mal?
Gracias de antemano.
Pero si el fichero Acces esta en otro ordenador, conectados por Ethernet IPv4 y como Workgroup, pero no lo consigo.
El código que funciona, estando Acces i Excel en el mismo ordenador, es:
Set Conn = CreateObject("ADODB.Connection")
MiConexion = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=C:\__TENDA\__JULIOL\MERCE_JULIOL_1\EXECEL_ACCES\dbase_210730_0001.mdb"
With Conn
.Provider = "Microsoft.ACE.OLEDB.12.0"
.Open MiConexion
End With
consultaSql = "Select * from tickets;"
'Conn.Open MiConexion ' l'objecte ja es obert
Set datos = Conn.Execute(consultaSql)
.....
.....
Cuando quiero conectar con otro ordenador por ethernet, escribo:
MiConexion = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=\\PCmiki\C:\dbase_210730_0001.mdb"
Ya que tengo el fichero Acces en C del ordenador PCmiki...
¿Qué estoy haciendo mal?
Gracias de antemano.
Valora esta pregunta


0