Ver Mensaje Individual
  #6  
Antiguo 02-04-2013
Ever_Martell Ever_Martell is offline
Registrado
NULL
 
Registrado: mar 2013
Posts: 4
Reputación: 0
Ever_Martell Va por buen camino
Cita:
Empezado por radenf Ver Mensaje
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.
Responder Con Cita