//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 ADOBOOL 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;
}
}