通过ADO压缩数据库

//ADOConn.h

#pragma once

//ADO的Error与ATL::CAtlRegExp<>的Error发生命名冲突 
#import "c:\Program Files\Common Files\System\ado\msado15.dll" no_namespace  \
rename("EOF","adoEOF") rename("BOF","adoBOF") rename("Error", "adoErr")
#import "C:\PROGRAM FILES\COMMON FILES\System\ado\MSJRO.DLL" no_namespace

//....other code

static BOOL Compacting(CString& DestFile);

//...other code

//ADOConn.cpp     其中m_strDBName 为Access数据库路径

//

//Compacting   Microsoft   Access   Database   via   ADO
BOOL ADOConn::Compacting(CString& DestFile)
{
if (m_strDBName.IsEmpty() || DestFile.IsEmpty())
return FALSE;


_bstr_t SourceConnection = _T("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=") + m_strDBName + _T("; User ID=admin;Password=;");   //普通方式，无密码  
//_bstr_t strConnect = _T("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=") + m_strDBName + _T("data\\nkj.mdb;Jet OLEDB:Database Password=你的密码;");   //普通方式，有密码 

_bstr_t Destconnection = _T("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=") + DestFile + _T(";Jet OLEDB:Engine Type=5; User ID=admin;Password=;"); //无密码
//_bstr_t Destconnection = _T("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=") + DestFile + _T("Jet OLEDB:Engine Type=5; Jet OLEDB:Database Password=你的密码"); //无密码


try
{
IJetEnginePtr jet(__uuidof(JetEngine));
  jet->CompactDatabase(SourceConnection, Destconnection);
return TRUE;
}
catch(_com_error &e) 
{       
AfxMessageBox(e.Description( )) ;
return FALSE;
}


}