在使用ADO进行数据库编程时，发现ACCESS数据库文件越来越大。即使清空了数据库库表中的全部表项，mdb文件也会越来越大。

经过分析和查资料了解到主要是Access文件中缓存的缘故，可以通过执行Access应用程序中“实用数据库工具”中的“压缩和修复数据库”菜单命令来解决上面的问题。

为了在程序中解决上面问题，则编写了下面代码，注意路径和文件名就可以了。

为了使用后面的函数，首先在StdAfx.h中加一行：

#import "C:\PROGRAM FILES\COMMON FILES\System\ado\MSJRO.DLL" no_namespace

然后调用下面的函数即可：

void CompactDB()
{
try
{
IJetEnginePtr jet(__uuidof(JetEngine));
jet->CompactDatabase( "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=File.mdb;Jet OLEDB:Database Password=test",
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=File2.mdb;"
"Jet OLEDB:Engine Type=5");
}
catch(_com_error &e)
{
::MessageBox(NULL, (LPCTSTR)e.Description( ), "", MB_OK) ;
}

DeleteFile("File.mdb");
CFile::Rename("File2.mdb","File.mdb");
}