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()用于获取值）