Ayuda con el manejo ADO en Delphi XE

[lugabame]

Hola Como están, primeramente agradecerles de antemano su ayuda.
Tengo una consulta. En Delphi7 cuando se trabaja con ADO para enlazar una base de datos access, se puede hacer que la base de datos y el ejecutable del programa esten en una carpeta y esta se pueda copiar a otra maquina y al ejecutar el programa en la otra maquina funciona normal, pues bien mi consulta va referida al mismo proceder pero en Delphi XE es posible hacer eso? y si es posible ¿cómo se hace? porque ya lo intente como se hace en Delphi 7 no me resulta.

Muchas gracias por la ayuda

[Casimiro Notevi]

Debe ser igual.

[[FGarcia]]

En Delphi 7 tienes esta ruta

Ruta del proyecto
C:\MiApp

Ruta de la BD
C:\MiApp\MiDB

Ruta del Ejecutable
C:\MiApp\MiExe

En Delphi XE al ejecutar tu aplicación por primera vez te genera la carpeta Win32/64 y la carpeta Debug o Release según la configuración de tu IDE

Ruta del proyecto
C:\MiApp

Ruta de la BD
C:\MiApp\MiDB

Ruta del ejecutable (puede ser Debug o Release)
C:\MiApp\Win32\Debug\MiApp.exe

"YA EXISTEN PROBLEMAS

Una solucion

Ruta del proyecto
C:\MiApp

Ruta del ejecutable (puede ser Debug o Release)
C:\MiApp\Win32\Debug\MiApp.exe

Ruta de la BD
C:\MiApp\Win32\Debug\MiBD

*FUNCIONA

Access usa una cadena de conexión. Esta deberá de apuntar a la nueva posicion de la BD. Realmente no he probado con access hace mucho tiempo.

Con Interbase hacia algo como esto en D7

Código Delphi [-]
IBDatabase.DatabaseName :=
        IncludeTrailingPathDelimiter(ExtractFilePath(Paramstr(0))) + NombreBD;

Ahora en XE2

Código Delphi [-]
IBDatabase.DatabaseName := GetCurrentDir + '\Data\' + MiBD;

Espero te ayude a lograr lo que necesitas (pude haber dicho alguna burrada así que ojo!).

Saludos!!

[radenf]

Tienes toda la razón [FGarcia].

Basta con colocar el archivo .mbd (Base de datos de Access) en la misma carpeta donde se encuentra el ejecutable, es decir en TuApp\Win32\Debug\ o TuApp\Win32\Release\, de acuerdo a como se haya compilado.

y utilizar:

ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ ExtractFilePath(Application.ExeName) + 'TuBD.mdb;Persist Security Info=False';

Saludos

[lugabame]

Muchas gracias por las aclaraciones voy a hacer la prueba y les comento como me fue.

[lugabame]

Muchas Gracias por los concejos me fue de maravilla

[[FGarcia]]

Ya's ta

Pasate por la taberna y deja pagada una ronda de beers!!