ADO連接Access數據庫(VC)

win8、VS2015、Access2010

1.導入ADO 動態鏈接庫（一般在stdafx.h）

#import "c:\program files\common files\system\ado\msado15.dll" no_namespace rename("EOF","adoEOF")

2.初始化COM環境（一般在InitInstance函數中）

AfxOleInit();

3.聲明連接對象指針和記錄集對象指針

_ConnectionPtr m_pConnection;
_RecordsetPtr m_pRecordset;

4.創建連接對象，打開數據庫

CString strConnect;
strConnect.Format(_T("Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=%s;Data Source=%s"),_T("passwd"), _T("myData.MDB"));	
HRESULT hr;
try
{
    hr = m_pConnection.CreateInstance("ADODB.Connection");//創建Connection對象
    if (SUCCEEDED(hr))
    {
	    m_pConnection->ConnectionString = (_bstr_t)strConnect;
	    m_pConnection->Open(L"", L"", L"", adConnectUnspecified);//打開數據庫
    }
}
catch (_com_error e)
{
		
}

5.創建記錄集對象，執行sql語句

CString strQuery = L"SELECT * FROM table order by name ASC";
try
{		
	m_pRecordset.CreateInstance("ADODB.Recordset");
	m_pRecordset->Open((_bstr_t)strQuery, _variant_t((IDispatch*)m_pConnection, true),adOpenStatic, adLockOptimistic, adCmdText);
}
catch (_com_error e)//捕捉異常
{
		
}

CString totalstr;
while (!m_pRecordset->adoEOF)
{
	_variant_t temp = m_pRecordset->GetCollect("name");
	CString tstr = temp.bstrVal;
	totalstr = totalstr + tstr + L"\r\n";
	m_pRecordset->MoveNext();
}
SetDlgItemText(IDC_EDIT1, totalstr);

6.關閉記錄集，關閉數據庫連接 

m_pRecordset->Close();
m_pConnection->Close();

//常用的sql語句：
CString sql,str;
//增加：
sql.Format(L"insert into table (name) values('%s')",str);
//刪除：
sql.Format(L"delete from table where name='%s'",str);
//修改：（PutCollect()也可以用於修改或增加）
sql.Format(L"update table set name='%s'",str);
//查詢：
sql.Format(L"select * from table where name='%s'",str);
//（GetCollect()用於獲取值）