FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Compactar y reparar
Hola a todos:
Estoy trabajando en un proyecto donde accedo a una base de datos access y me surge la necesidad de utilizar la herramienta que trae access de Compactar y reparar base de datos... Mi pregunta es si es posible hacerlo desde DELPHI o tengo que cerrar el programa, abrir Access y ejecutar la función. Muchas gracias...
__________________
Hay dos cosas infinitas: el Universo y la estupidez humana. http://www.cybertarjetas.net |
#2
|
||||
|
||||
Aqui tienes un ejemplo http://www.clubdelphi.com/vertruco.php?id=21, lee mi comentario para bases con contraseña.
Saludos!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#3
|
|||
|
|||
Novás aqui te dejo la función que utilizo yo para compactar y reparar las bases de datos:
procedure CompactarBDAccess(Path, BD: String); var V: Variant; DbEngine: Variant; TmpFile: String; Result : Boolean; begin Result := False; try if not GetEngine(DbEngine) then Exit; // Antes de compactar la Base de Datos, ésta se repara. DbEngine.RepairDatabase(Path+'\'+BD); DbEngine.CompactDataBase(Path+'\'+BD, Path+'\Temp.mdb'); if DeleteFile(Path+'\'+BD) then begin CopiarFich(Path+'\Temp.mdb', Path+'\'+BD); if DeleteFile(Path+'\Temp.mdb') then; Result := True; end; except Exit; end; end; |
|
|
|