Code Generated By: iCodeLirary.NET - http://www.imetasoft.com/icodelibrary
Code Optimized By: OOPerfCtrl - http://www.ooperformance.com
PHP Code:
//SEE CODE EXAMPLE FOR USAGE 

using System;
using System.IO;
namespace 
iCode_Library.NET
{
    
/// <summary>
    /// Summary description for CompactDB.
    /// </summary>
    
public class CompactDB
    
{
        
JRO.JetEngine jro;
        public 
CompactDB()
        {
            
jro = new JRO.JetEngine();
    
        }

        public 
bool CompactDBAccess2000(string dbDirectorystring dbFile)
        {
            try
            {
                
string backupFileName "backup.mdb";

                
string sourceConn = @"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" dbDirectory dbFile;
                
string destConn = @"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" dbDirectory backupFileName ";Jet OLEDB:Engine Type=5";
                
jro.CompactDatabase(sourceConndestConn);
                
FileInfo fi = new FileInfo(dbDirectory backupFileName);
                
fi.CopyTo(dbDirectory+dbFiletrue);
                
fi.Delete();
                return 
true;
            }
            catch(
Exception msg)
            {
                
System.Windows.Forms.MessageBox.Show(msg.Message);
                return 
false;
            }
        }
    }
}

//CALL
compactAccess2000DB(GlobalStuff.ProgramDirectory + @"\DB\", "iCodeLibrary.mdb");

//FUNCTION THAT CALLS CLASS
public void compactAccess2000DB(string dbDirectory, string dbFile)
{
    try
    {
        CompactDB cpDB = new CompactDB();
        cpDB.CompactDBAccess2000(dbDirectory,  dbFile);
        MessageBox.Show("
Compacting the database complete", "Compacting complete", MessageBoxButtons.OK, MessageBoxIcon.Information);
    }
    catch(Exception)
    {
        MessageBox.Show("
Failed to compact the database", "Compacting failed", MessageBoxButtons.OK, MessageBoxIcon.Error);
    }

//FROM MICROSOFT SITE:
/*
HOW TO: Compact a Microsoft Access Database by Using Visual Basic .NET
The information in this article applies to:
Microsoft Visual Basic .NET (2002)

IN THIS TASK
SUMMARY
Requirements
Steps to Build Example
Pitfalls
REFERENCES
SUMMARY
Neither ActiveX Data Objects (ADO) nor ADO .NET provide the means to compact or repair Microsoft Access databases. However, you can accomplish this task by using the Microsoft Jet OLE DB Provider and Replication Objects (JRO) that was introduced with Microsoft Data Access Components (MDAC) version 2.1. ADO .NET allows the use of COM-based object libraries through the Interop layer.

This article demonstrates how to compact an Access database by using Visual Basic .NET.


back to the top
Requirements
Microsoft Visual Basic .NET
Microsoft Jet and Replication Objects 2.1, 2.5, or 2.6 Library
back to the top
Steps to Build Example
Open a new Visual Basic .NET console application.
In the Solution Explorer window, right-click the References node and select Add Reference.
In the Add Reference dialog box, click the COM tab and select Microsoft Jet and Replication Objects 2.I Library. Click Select to add it to the "Selected Components". Click OK.
A warning will be displayed if there is no wrapper found for the selected library. Click Yes to generate a wrapper. Microsoft ActiveX Data Objects Library (ADODB) and JRO references will be added to the project's References.
In the Solution Explorer window, right-click Module1.vb and click View Code.
Delete all of the code from the code window.
Copy the following code and paste it into the code window:
Module Module1

Sub Main()

Dim jro As JRO.JetEngine

jro = New JRO.JetEngine()

jro.CompactDatabase("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\nwind.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\NewNwind.mdb;Jet OLEDB:Engine Type=5")

MsgBox("Finished Compacting Database!")
End Sub

End Module
Change the path to the Source and Destination .mdb files as appropriate. Press F5 to build and run the project.

The compacted database will be in Access 2000 (Jet 4.0) format. For a different Jet format, see "References."
back to the top
Pitfalls
In order to compact a database, the Jet Database Engine requires exclusive access to the database file. Attempting to compact a database file that is currently in use will result in an exception. This exception can be caught using a Try...Catch structure.

back to the top
REFERENCES
*/