Obtener directorio actual

Hola dargento,

1) Si el archivo renovables.mdb lo tienes en un servidor y todos los demas
PC's tienen mapeada la ruta exactamente igual (la misma letra y nivel de
directorio), no deberias tener problemas con el "hard-coding" de la ruta.

2) Si, por lo contrario, cada PC va a tener su propia copia del *.xls y
*.mdb (cosa que me extranaria bastante) podrias pedir al usuario (o instalar
por codigo) que coloque ambos archivos en la misma carpeta y dentro de tu
codigo podrias usar la siguiente instruccion:

cn.Open "Provider = Microsoft.Jet.OLEDB.4.0;" & _
"Data Source = " & ThisWorkbook.Path & "enovables.mdb"

3) Si la localizacion del *.mdb no es predecible y no se puede asegurar que
este en la misma carpeta que el *.xls, entonces habria que escanear todos
los 'drives' del PC (tanto locales como de red) por medio del codigo
publicado por Fernando Arroyo aqui: http://tinyurl.com/dznas ,pero puede
tardar bastante.

Saludos,
KL


"dargento" wrote in message
news:

Muy buenas!
Tengo una aplicacion en excel con una base de datos access,necesito
poner el camino a la base de datos cuando la conexion de manera que me
coga el directorio de la aplicacion y yo solo añadir la carpeta donde
esta la base de datos.
Es decir,que yo pueda instalar mi aplicacion en cualquier pc y
funcione sin teneer que ir al codigo a cambiar la ruta de la conexion.
Mi conexion esta asi:

Sub conexionBD()
'Procedimiento que realiza la conexión a la base de datos
'Creamos la nueva conexion a la base de datos
Set cn = New ADODB.Connection
cn.Open "Provider = Microsoft.Jet.OLEDB.4.0;" & "Data Source > P:\Proyecto Software Poligeneracion\Aplicacionenovables.mdb"
'Creamos el nuevo recordset de la conexion
Set rs = New ADODB.Recordset
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
End Sub

Muchas gracias


dargento

dargento's Profile: http://www.msusenet.com/member.php?userid47
View this thread: http://www.msusenet.com/t-1870894436