我們可以使用AfxOleInit()來初始化COM庫，這項工作通常在CWinApp::InitInstance()的過載函式中完成，請看如下程式碼:：
public:
_ConnectionPtr m_pConnection;
BOOL CAdoTestApp::InitInstance()
{
// 初始化COM,建立ADO連線等操作
AfxOleInit();

//建立連結
m_pConnection.CreateInstance(__uuidof(Connection));
try
{
// 開啟本地Access庫Demo.mdb
m_pConnection->Open(“Provider=Microsoft.Jet.OLEDB.4.0;Data Source=telbook.mdb”,”“,”“,adModeUnknown);
}
catch(_com_error e)
{
AfxMessageBox(“資料庫連線失敗，確認資料庫telbook.mdb是否在當前路徑下!”);
return FALSE;
}
return TRUE;
}

2、用#import指令引入ADO型別庫

　　為了引入ADO型別庫，需要在專案的stdafx.h檔案中加入如下語句：
、#import “c:\program files\common files\system\ado\msado15.dll” \
no_namespace \rename (“EOF”, “adoEOF”)
這一語句有何作用呢？其最終作用同我們已經十分熟悉的#include類似，編譯的時候系統會為我們生成msado15.tlh,ado15.tli兩個C++標頭檔案來定義ADO庫。
　　需要讀者朋友注意的是：您的開發環境中msado15.dll不一定在這個目錄下，請按實際情況修改；在編譯的時候可能會出現如下警告，對此微軟在MSDN中作了說明，並建議我們不要理會這個警告：msado15.tlh(405) : warning C4146: unary minus operator applied to unsigned type, result still unsigned。
3、建立Connection物件並連線資料庫
第1部中的AfxOleInit();以後的程式碼為建立連結程式碼。

　4、執行SQL命令並取得結果記錄集
4、執行SQL命令並取得結果記錄集

　　為了取得結果記錄集，我們定義一個指向Recordset物件的指標:_RecordsetPtr m_pRecordset;

　　併為其建立Recordset物件的例項: m_pRecordset.CreateInstance(“ADODB.Recordset”)，SQL命令的執行可以採用多種形式，下面我們一一進行闡述。

　　（1）利用Connection物件的Execute方法執行SQL命令

　　Execute（）方法的原型如下所示：
_RecordsetPtr Connection15::Execute ( _bstr_t CommandText, VARIANT * RecordsAffected, long Options )

　　其中CommandText是命令字串，通常是SQL命令。引數RecordsAffected是操作完成後所影響的行數, 引數Options表示CommandText中內容的型別，Options可以取如下值之一：adCmdText表明CommandText是文字命令；adCmdTable表明CommandText是一個表名；adCmdProc表明CommandText是一個儲存過程；adCmdUnknown表明CommandText內容未知。Execute（）函式執行完後返回一個指向記錄集的指標，下面我們給出具體程式碼並作說明：
_variant_t RecordsAffected;
///執行SQL命令：CREATE TABLE建立表格users,users包含四個欄位:整形ID,字串username,整形old,日期型birthday
m_pConnection->Execute(“CREATE TABLE users(ID INTEGER,username
TEXT,old INTEGER,birthday DATETIME)”,&RecordsAffected,adCmdText);
///往表格裡面新增記錄
m_pConnection->Execute(“INSERT INTO users(ID,username,old,birthday)
VALUES (1, ‘Washington’,25,’1970/1/1’)”,&RecordsAffected,adCmdText);
///將所有記錄old欄位的值加一
m_pConnection->Execute(“UPDATE users SET old = old+1”,&RecordsAffected,adCmdText);
///執行SQL統計命令得到包含記錄條數的記錄集
m_pRecordset = m_pConnection->Execute(“SELECT COUNT(*) FROM
users”,&RecordsAffected,adCmdText);
_variant_t vIndex = (long)0;
_variant_t vCount = m_pRecordset->GetCollect(vIndex);///取得第一個欄位的值放入vCount變數
m_pRecordset->Close();///關閉記錄集
CString message;
message.Format(“共有%d條記錄”,vCount.lVal);
AfxMessageBox(message);///顯示當前記錄條數

　　（2）利用Command物件來執行SQL命令
_CommandPtr m_pCommand;
m_pCommand.CreateInstance(“ADODB.Command”);
_variant_t vNULL;
vNULL.vt = VT_ERROR;
vNULL.scode = DISP_E_PARAMNOTFOUND;///定義為無引數
m_pCommand->ActiveConnection = m_pConnection;///非常關鍵的一句，將建立的連線賦值給它
m_pCommand->CommandText = “SELECT * FROM users”;///命令字串
m_pRecordset = m_pCommand->Execute(&vNULL,&vNULL,adCmdText);
//執行命令取得記錄集

　　在這段程式碼中我們只是用Command物件來執行了SELECT查詢語句，Command物件在進行儲存過程的呼叫中能真正體現它的作用。下次我們將詳細介紹。

　　（3）直接用Recordset物件進行查詢取得記錄集，例如：
m_pRecordset->Open(“SELECT * FROM users”,_variant_t((IDispatch *)m_pConnection,true),
adOpenStatic,adLockOptimistic,adCmdText);

　　Open（）方法的原型如下：
HRESULT Recordset15::Open ( const _variant_t & Source, const _variant_t & ActiveConnection, enum CursorTypeEnum CursorType, enum LockTypeEnum LockType, long Options )

　　上述函式中引數Source是資料查詢字串；引數ActiveConnection是已經建立好的連線（我們需要用Connection物件指標來構造一個_variant_t物件）；引數CursorType游標型別，它可以是以下值之一；請看這個列舉結構：
enum CursorTypeEnum
{
　adOpenUnspecified = -1,///不作特別指定
　adOpenForwardOnly = 0,///前滾靜態游標。這種游標只能向前瀏覽記錄集，比如用MoveNext向前滾動,這種方式可以提高瀏覽速度。但諸如BookMark,RecordCount,AbsolutePosition,AbsolutePage都不能使用
　adOpenKeyset = 1,///採用這種游標的記錄集看不到其它使用者的新增、刪除操作，但對於更新原有記錄的操作對你是可見的。
　adOpenDynamic = 2,///動態游標。所有資料庫的操作都會立即在各使用者記錄集上反應出來。
　adOpenStatic = 3///靜態游標。它為你的記錄集產生一個靜態備份，但其它使用者的新增、刪除、更新操作對你的記錄集來說是不可見的。
};

　　引數LockType表示資料庫的鎖定型別，它可以是以下值之一，請看如下列舉結構：
enum LockTypeEnum
{
　adLockUnspecified = -1,///未指定
　adLockReadOnly = 1,///只讀記錄集
　adLockPessimistic = 2,悲觀鎖定方式。資料在更新時鎖定其它所有動作，這是最安全的鎖定機制
　adLockOptimistic = 3,樂觀鎖定方式。只有在你呼叫Update方法時才鎖定記錄。在此之前仍然可以做資料的更新、插入、刪除等動作
　adLockBatchOptimistic = 4，樂觀分批更新。編輯時記錄不會鎖定，更改、插入及刪除是在批處理模式下完成。
};

　　引數Options的含義請參考本文中對Connection物件的Execute（）方法的介紹。

5、記錄集的遍歷、更新

　　根據我們剛才通過執行SQL命令建立好的users表，它包含四個欄位:ID,username,old,birthday
以下的程式碼實現：開啟記錄集，遍歷所有記錄，刪除第一條記錄，新增三條記錄，移動游標到第二條記錄，更改其年齡資料，儲存到資料庫。
_variant_t vUsername,vBirthday,vID,vOld;
_RecordsetPtr m_pRecordset;
m_pRecordset.CreateInstance(“ADODB.Recordset”);
m_pRecordset->Open(“SELECT * FROM users”,_variant_t((IDispatch*)m_pConnection,true),
adOpenStatic,adLockOptimistic,adCmdText);
while(!m_pRecordset->adoEOF)
///這裡為什麼是adoEOF而不是EOF呢?還記得rename(“EOF”,”adoEOF”)這一句嗎?
{
　vID = m_pRecordset->GetCollect(_variant_t((long)0));///取得第1列的值,從0開始計數，你也可以直接給出列的名稱；
　vUsername = m_pRecordset->GetCollect(“username”);///取得username欄位的值
　vOld = m_pRecordset->GetCollect(“old”);
　vBirthday = m_pRecordset->GetCollect(“birthday”);
　///在DEBUG方式下的OUTPUT視窗輸出記錄集中的記錄
　if(vID.vt != VT_NULL && vUsername.vt != VT_NULL && vOld.vt != VT_NULL &&
　vBirthday.vt != VT_NULL)
　TRACE(“id:%d,姓名:%s,年齡:%d,生日:%s\r\n”,vID.lVal,(LPCTSTR)(_bstr_t)vUsername,vOld.lVal,(LPCTSTR)(_bstr_t)vBirthday);
　m_pRecordset->MoveNext();///移到下一條記錄
}
m_pRecordset->MoveFirst();///移到首條記錄
m_pRecordset->Delete(adAffectCurrent);///刪除當前記錄
///新增三條新記錄並賦值
for(int i=0;i<3;i++)
{
　m_pRecordset->AddNew();///新增新記錄
　m_pRecordset->PutCollect(“ID”,_variant_t((long)(i+10)));
　m_pRecordset->PutCollect(“username”,_variant_t(“葉利欽”));
　m_pRecordset->PutCollect(“old”,_variant_t((long)71));
　m_pRecordset->PutCollect(“birthday”,_variant_t(“1930-3-15”));
}
m_pRecordset->Move(1,_variant_t((long)adBookmarkFirst));///從第一條記錄往下移動一條記錄,即移動到第二條記錄處
m_pRecordset->PutCollect(_variant_t(“old”),_variant_t((long)45));///修改其年齡
m_pRecordset->Update();///儲存到庫中
讀取資料到listbox：
void CDog::OnReadaccess()
{
_variant_t var;
CString strName,strAge,strPhone;
// 清空列表框
m_ListBox.ResetContent();
strName=strAge= strPhone =”“;
// 在ADO操作中建議語句中要常用try…catch()來捕獲錯誤資訊，
// 因為它有時會經常出現一些想不到的錯誤。jingzhou xu
try
{
if(!m_pRecordset->BOF)
m_pRecordset->MoveFirst();
else
{
AfxMessageBox(“表內資料為空”);
return;
}

    // 讀入庫中各欄位並加入列表框中
    while(!m_pRecordset->adoEOF)
    {
        var = m_pRecordset->GetCollect("name");
        if(var.vt != VT_NULL)
            strName = (LPCSTR)_bstr_t(var);
        var = m_pRecordset->GetCollect("sex");
        if(var.vt != VT_NULL)
            strAge = (LPCSTR)_bstr_t(var);
        var=m_pRecordset->GetCollect("telphone");
        if(var.vt!=VT_NULL)
            strPhone=(LPCSTR)_bstr_t(var);

        m_ListBox.AddString( strName + " --> "+strAge +"-->"+strPhone );

        m_pRecordset->MoveNext();
    }

    // 預設列表指向第一項，同時移動記錄指標並顯示
    m_ListBox.SetCurSel(0);
    OnSelchangeListaccess();
}
catch(_com_error *e)
{
    AfxMessageBox(e->ErrorMessage());
}

}
6、關閉記錄集與連線
int CAdoTestApp::ExitInstance()
{
// TODO: Add your specialized code here and/or call the base class
if(m_pConnection->State)
m_pConnection->Close();
m_pConnection= NULL;
return CWinApp::ExitInstance();
}