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


}

總結

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

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。