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

Muchas gracias.Ya voy a ver como me va,pero mi opcion es la segunda e
principio.Gracias


KL Wrote:

Hola dargento,

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

2) Si, por lo contrario, cada PC va a tener su propia copia del *.xl
y
*.mdb (cosa que me extranaria bastante) podrias pedir al usuario (
instalar
por codigo) que coloque ambos archivos en la misma carpeta y dentro d
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 asegura
que
este en la misma carpeta que el *.xls, entonces habria que escanea
todos
los 'drives' del PC (tanto locales como de red) por medio del codigo
publicado por Fernando Arroyo aqui: http://tinyurl.com/dznas ,per
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 qu
me
> coga el directorio de la aplicacion y yo solo añadir la carpet
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 l
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

dargent
dargento's Profile: http://www.msusenet.com/member.php?userid4
View this thread: http://www.msusenet.com/t-187089443