Cita:
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.