Compactar base de datos Access 2007 en C# y VB.NET

Para compactar una base de datos Access en C#, primero agregas esta referencia a tu solucion:

Microsoft Office 12.0 Access Database Engine Object Library

Y con esta funcion compactas la base de datos

Codigo C#:

/* * Creado por tttony 2010 * http://tttony.blogspot.com/ * * POR FAVOR NO BORRES ESTE COMENTARIO */

public void compact()
{

 try
 {
  /* 
   * http://techieyogi.blogspot.com/2009/11/how-to-compact-access-2007-database.html 
   */
  Microsoft.Office.Interop.Access.Dao.DBEngine objDbEngine = new Microsoft.Office.Interop.Access.Dao.DBEngine();

  // Archivo temporal no debe existir
  string strDbTmp = Application.StartupPath +  @"\compacting__.accdb";
  // path de la base de datos a compactar
  string strDB = @"C:\db\access.accdb";

  objDbEngine.CompactDatabase(strDB , strDbTmp, null, null, ";pwd=" + m_dataBasePassword);

  if ((new FileInfo(strDbTmp)).Length == (new FileInfo(strDB)).Length)
  {
   // no fue compactada ya que tiene el mismo tamaño que antes
   File.Delete(strDbTmp);
  }
  else // compactacion exitosa
  {
   // copia de seguridad IMPORTANTE!!!
   File.Copy(strDB, strDB + ".nocompact_" + DateTime.Today.ToString().Replace("/", "_").Substring(0, 10));
   // borrar original
   File.Delete(m_dataBaseFile);
   // mover la db compactada
   File.Move(strDbTmp, m_dataBaseFile);
  }

 }
 catch(Exception ex)
 {
  ErrorToLog(ex);
 }

}

Codigo VB.NET:

' * Creado por tttony 2010 * http://tttony.blogspot.com/ * * POR FAVOR NO BORRES ESTE COMENTARIO 


Public Sub compact()

 Try
  ' 
'   * http://techieyogi.blogspot.com/2009/11/how-to-compact-access-2007-database.html 
'   

  Dim objDbEngine As New Microsoft.Office.Interop.Access.Dao.DBEngine()

  ' Archivo temporal no debe existir
  Dim strDbTmp As String = Application.StartupPath + "\compacting__.accdb"
  ' path de la base de datos a compactar
  Dim strDB As String = "C:\db\access.accdb"

  objDbEngine.CompactDatabase(strDB, strDbTmp, Nothing, Nothing, ";pwd=" & m_dataBasePassword)

  If (New FileInfo(strDbTmp)).Length = (New FileInfo(strDB)).Length Then
   ' no fue compactada ya que tiene el mismo tamaño que antes
   File.Delete(strDbTmp)
  Else
   ' compactacion exitosa
   ' copia de seguridad IMPORTANTE!!!
   File.Copy(strDB, strDB & ".nocompact_" & DateTime.Today.ToString().Replace("/", "_").Substring(0, 10))
   ' borrar original
   File.Delete(m_dataBaseFile)
   ' mover la db compactada
   File.Move(strDbTmp, m_dataBaseFile)

  End If
 Catch ex As Exception
  ErrorToLog(ex)
 End Try

End Sub

Publicado en tttony.blogspot.com