Compactar Access 2007

[mcsebas]

Hola a todos mi pregunta es bien sencilla ¿Cómo hago para compactar una base de datos de Access 2007?

Gracias

[[nlsgarcia]]

mcsebas,

Empezado por mcsebas

...¿Cómo hago para compactar una base de datos de Access 2007?...

Revisa esta información:

1- Compact and repair a database

2- Compact An Access Database

3- Compact and repair an Access database from Delphi

4- Delphi compact an Access database

5- Compactar y reparar BD Access 2010

6- Problem in compacting Access 2007 Database

Espero sea útil

Nelson.

[edwin.simon]

hola mcsebas, disculpa pero tu quiere compactar por código o con el mismo Access?

[camiz]

Hola mcsebas,
Haber si te sirve esto.

Código Delphi [-]
var
   BD : OLEVariant;
   BaseDatos, Clave:string;
Begin
  {Ubicación de la Base de Datos }
  BaseDatos := ExtractFilePath(Application.ExeName) + 'MisDatos.mdb';
  {Contraseña de la base de datos}
  Clave := txtClave.Text;
  { ... }
  try
    DeleteFile(BaseDatos + '2');
    BD := CreateOleObject('Dao.DbEngine.35');
    BD.CompactDataBase(BaseDatos, BaseDatos + '2', NULL, 0, ';pwd=' + Clave);
    DeleteFile(BaseDatos);
    RenameFile(BaseDatos + '2', BaseDatos);
  except
    try
      DeleteFile(BaseDatos + '2');
      BD := CreateOleObject('Dao.DbEngine.36');
      BD.CompactDataBase(BaseDatos, BaseDatos + '2', NULL, 0, ';pwd=' + Clave);
      DeleteFile(BaseDatos);
      RenameFile(BaseDatos + '2', BaseDatos);
    except
      try
        DeleteFile(BaseDatos + '2');
        BD := CreateOleObject('Dao.DbEngine.120');
        BD.CompactDataBase(BaseDatos, BaseDatos + '2', NULL, 0, ';pwd=' + Clave);
        DeleteFile(BaseDatos);
        RenameFile(BaseDatos + '2', BaseDatos);
      finally
     end;
    end
   end;