在使用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");
}