Cambiar la ruta de Access en Delphi

[radenf]

Estimado Ever_Martell :

Si entendí bien lo que necesitas, con el siguiente código puedes definir la ubicación de tu base de datos de Access.

Código Delphi [-]
ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='
+ ExtractFilePath(Application.ExeName) + 'Tu carpeta\Tu BD.mdb;Persist Security Info=False';
ADOConnection1.Provider := 'Microsoft.Jet.OLEDB.4.0';

Ojalá te haya podido ayudar
Salu2

[Ever_Martell]

Disculpa mi ignorancia, y ese código dónde lo tendría que poner.

[radenf]

Empezado por Ever_Martell

Disculpa mi ignorancia, y ese código dónde lo tendría que poner.

Yo lo coloco en el evento OnCreate del DataModulo. También puede ser en el mismo evento del Form principal.
Con ese código tu BD de Access se localiza en la carpeta que tu elijas en el directorio de tu ejecutable. Esto puedes cambiarlo a tu gusto.

Salu2

[Ever_Martell]

Empezado por radenf

Yo lo coloco en el evento OnCreate del DataModulo. También puede ser en el mismo evento del Form principal.
Con ese código tu BD de Access se localiza en la carpeta que tu elijas en el directorio de tu ejecutable. Esto puedes cambiarlo a tu gusto.

Salu2

Muchísimas gracias Radenf me ha ayudado grandemente.

Mi solución fue la siguiente.

Eliminando el componente antiguo de ADOConnection, agregué uno nuevo aplicando el siguiente código en un Botón.

Código Delphi [-]
ADOConnection1.Connected := false;
 ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='
+ GetTemp + 'Mydb.mdb;Persist Security Info=False;Jet OLEDBatabase Password=';
ADOConnection1.Provider := 'Microsoft.Jet.OLEDB.4.0';
ADOConnection1.Connected := true;

Le agregué Jet OLEDB: Database Password= y GetTemp

GetTemp Es la dirección de la carpeta temporal del usuario, para lograrlo usé este código, después de Implementation.

Código Delphi [-]
function GetTemp: String;
var
  tempDir: PChar;
  dwSDSice: DWORD;
begin
  dwSDSice := MAX_PATH + 1;
  GetMem(tempDir, dwSDSice);
  try
    if Windows.GetTempPath(dwSDSice, tempDir) <> 0 then
      Result := tempDir;
  finally
    FreeMem(tempDir);
  end;
end;

Jet OLEDB: Database Password= Porque mi base de datos usaba contraseña.

Y así fue como todo me resultó. Te lo agradezco mucho, saludos.

[radenf]

Encantado de haber podido ayudarte.
Saludos