//ADOConn.h

#pragma once

//ADO的Error與ATL::CAtlRegExp<>的Error發(fā)生命名沖突?
#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數(shù)據(jù)庫(kù)路徑

//

//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=;"); ? //普通方式，無(wú)密碼 ?
//_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=;"); //無(wú)密碼
//_bstr_t Destconnection = _T("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=") + DestFile + _T("Jet OLEDB:Engine Type=5; Jet OLEDB:Database Password=你的密碼"); //無(wú)密碼


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


}

總結(jié)

以上是生活随笔為你收集整理的通过ADO压缩数据库的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。