Ayuda con el manejo ADO en Delphi XE

[[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!!