?一、ADO簡介
?
? ADO(ActiveX Data Object)是Microsoft數(shù)據(jù)庫應用程序開發(fā)的新接口，是建立在OLE DB之上的高層數(shù)據(jù)庫訪問技術，請不必為此擔心，即使你對OLE DB，COM不了解也能輕松對付ADO,因為它非常簡單易用，甚至比你以往所接觸的ODBC API、DAO、RDO都要容易使用，并不失靈活性。本文將詳細地介紹在VC下如何使用ADO來進行數(shù)據(jù)庫應用程序開發(fā)，并給出示例代碼。
?
? 本文示例代碼
?
? 二、基本流程
?
? 萬事開頭難，任何一種新技術對于初學者來說最重要的還是“入門”，掌握其要點。讓我們來看看ADO數(shù)據(jù)庫開發(fā)的基本流程吧！
?
? (1)初始化COM庫，引入ADO庫定義文件
? (2)用Connection對象連接數(shù)據(jù)庫
? (3)利用建立好的連接，通過Connection、Command對象執(zhí)行SQL命令，或利用Recordset對象取得結果記錄集進行查詢、處理。
? (4)使用完畢后關閉連接釋放對象。
?
? 準備工作:
? 為了大家都能測試本文提供的例子，我們采用Access數(shù)據(jù)庫，您也可以直接在我們提供的示例代碼中找到這個test.mdb。
? 下面我們將詳細介紹上述步驟并給出相關代碼。
?
? 【1】COM庫的初始化
? 我們可以使用AfxOleInit()來初始化COM庫，這項工作通常在CWinApp::InitInstance()的重載函數(shù)中完成，請看如下代碼:
?
? BOOL CADOTest1App::InitInstance() { AfxOleInit(); ......
?
? 【2】用#import指令引入ADO類型庫
? 我們在stdafx.h中加入如下語句：(stdafx.h這個文件哪里可以找到?你可以在FileView中的Header Files里找到)
?
? #import "c:\program files\common files\system\ado\msado15.dll" no_namespace rename("EOF","adoEOF")
? 這一語句有何作用呢？其最終作用同我們熟悉的#include類似,編譯的時候系統(tǒng)會為我們生成msado15.tlh,ado15.tli兩個C++頭文件來定義ADO庫。
?
? 幾點說明:
? (1) 您的環(huán)境中msado15.dll不一定在這個目錄下，請按實際情況修改
? (2) 在編譯的時候肯能會出現(xiàn)如下警告，對此微軟在MSDN中作了說明，并建議我們不要理會這個警告。
? msado15.tlh(405) : warning C4146: unary minus operator applied to unsigned type, result still unsigned
?
?
? 【3】創(chuàng)建Connection對象并連接數(shù)據(jù)庫
? 首先我們需要添加一個指向Connection對象的指針:
? _ConnectionPtr m_pConnection;
? 下面的代碼演示了如何創(chuàng)建Connection對象實例及如何連接數(shù)據(jù)庫并進行異常捕捉。
?BOOL?CADOTest1Dlg::OnInitDialog()?
{
??CDialog::OnInitDialog();
??HRESULT?hr;
??try?{
??hr?=?m_pConnection.CreateInstance("ADODB.Connection");/**////創(chuàng)建Connection對象
??
??if(SUCCEEDED(hr))?
??{
??hr?=?m_pConnection->Open("Provider=Microsoft.Jet.OLEDB.4.0;Data?Source=test.mdb","","",adModeUnknown);
??/**////連接數(shù)據(jù)庫?///上面一句中連接字串中的Provider是針對ACCESS2000環(huán)境的，對于ACCESS97,需要改為:Provider=Microsoft.Jet.OLEDB.3.51;
??}
??}?
??catch(_com_error?e)/**////捕捉異常?
??{
??CString?errormessage;?errormessage.Format("連接數(shù)據(jù)庫失敗!\r\n錯誤信息:%s",e.ErrorMessage());?AfxMessageBox(errormessage);/**////顯示錯誤信息?}?
在這段代碼中我們是通過Connection對象的Open方法來進行連接數(shù)據(jù)庫的，下面是該方法的原型
? HRESULT Connection15::
? Open
? (_bstr_t ConnectionString, _bstr_t UserID, _bstr_t Password, long Options )
? ConnectionString為連接字串,UserID是用戶名, Password是登陸密碼,Options是連接選項,用于指定Connection對象對數(shù)據(jù)的更新許可權,
?
? Options可以是如下幾個常量:
? adModeUnknown:缺省。當前的許可權未設置
? adModeRead:只讀
? adModeWrite:只寫
? adModeReadWrite:可以讀寫
? adModeShareDenyRead:阻止其它Connection對象以讀權限打開連接
? adModeShareDenyWrite:阻止其它Connection對象以寫權限打開連接
? adModeShareExclusive:阻止其它Connection對象打開連接
? adModeShareDenyNone:允許其它程序或對象以任何權限建立連接
?
? 我們給出一些常用的連接方式供大家參考:
? (1)通過JET數(shù)據(jù)庫引擎對ACCESS2000數(shù)據(jù)庫的連接
?
? m_pConnection->Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\test.mdb","","",adModeUnknown);
?
? (2)通過DSN數(shù)據(jù)源對任何支持ODBC的數(shù)據(jù)庫進行連接:
m_pConnection->Open("Data?Source=adotest;UID=sa;PWD=;","","",adModeUnknown);?(3)不通過DSN對SQL SERVER數(shù)據(jù)庫進行連接：
?m_pConnection->
??Open(
??"driver={SQLServer};Server=127.0.0.1;DATABASE=vckbase;UID=sa;PWD=139","","",adModeUnknown
??);
? 其中Server是SQL服務器的名稱，DATABASE是庫的名稱
?
? Connection對象除Open方法外還有許多方法，我們先介紹Connection對象中兩個有用的屬性ConnectionTimeOut與State
? ConnectionTimeOut用來設置連接的超時時間，需要在Open之前調用，例如:
??m_pConnection->ConnectionTimeout?=?5;/**////設置超時時間為5秒??
??m_pConnection->Open("Data?Source=adotest;","","",adModeUnknown);
??
??State屬性指明當前Connection對象的狀態(tài)，0表示關閉，1表示已經(jīng)打開，我們可以通過讀取這個屬性來作相應的處理，例如:
??
??if(m_pConnection->State)?m_pConnection->Close();?/**////如果已經(jīng)打開了連接則關閉它?
? 【4】執(zhí)行SQL命令并取得結果記錄集
? 為了取得結果記錄集，我們定義一個指向Recordset對象的指針:_RecordsetPtr m_pRecordset;
? 并為其創(chuàng)建Recordset對象的實例: m_pRecordset.CreateInstance("ADODB.Recordset");
? SQL命令的執(zhí)行可以采用多種形式，下面我們一進行闡述。
?
? (1)利用Connection對象的Execute方法執(zhí)行SQL命令
?
? Execute方法的原型如下所示:
?
? _RecordsetPtr Connection15::
? Execute ( _bstr_t CommandText, VARIANT * RecordsAffected, long Options )
? 其中CommandText是命令字串，通常是SQL命令。參數(shù)RecordsAffected是操作完成后所影響的行數(shù), 參數(shù)Options表示CommandText中內容的類型，Options可以取如下值之一：
?
? adCmdText:表明CommandText是文本命令
? adCmdTable:表明CommandText是一個表名
? adCmdProc:表明CommandText是一個存儲過程
? adCmdUnknown:未知
?
? Execute執(zhí)行完后返回一個指向記錄集的指針，下面我們給出具體代碼并作說明。
??_variant_t?RecordsAffected;
??/**////執(zhí)行SQL命令：CREATE?TABLE創(chuàng)建表格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);
??/**////執(zhí)行SQL統(tǒng)計命令得到包含記錄條數(shù)的記錄集??
??m_pRecordset?=?m_pConnection->
??
??Execute("SELECT?COUNT(*)?FROM?users",&RecordsAffected,adCmdText);
??_variant_t?vIndex?=?(long)0;?
??_variant_t?vCount?=?_pRecordset->
??
??GetCollect(vIndex);
??
??/**////取得第一個字段的值放入vCount變量???m_pRecordset->Close();
??/**////關閉記錄集??
??CString?message;
??message.Format("共有%d條記錄",vCount.lVal);
??AfxMessageBox(message);
??/**////顯示當前記錄條數(shù)???
??(2)利用Command對象來執(zhí)行SQL命令
??
??_CommandPtr?m_pCommand;?
??m_pCommand.CreateInstance("ADODB.Command");?
??_variant_t?vNULL;
??vNULL.vt?=?VT_ERROR;
??vNULL.scode?=?DISP_E_PARAMNOTFOUND;
??/**////定義為無參數(shù)??
??m_pCommand->ActiveConnection?=?m_pConnection;
??/**////非常關鍵的一句，將建立的連接賦值給它??
??m_pCommand->CommandText?=?"SELECT?*?FROM?users";
??/**////命令字串??
??m_pRecordset?=?m_pCommand->Execute(&vNULL,&vNULL,adCmdText);
??/**////執(zhí)行命令，取得記錄集?
? 在這段代碼中我們只是用Command對象來執(zhí)行了SELECT查詢語句，Command對象在進行存儲過程的調用中能真正體現(xiàn)它的作用。下次我們將詳細介紹。
?
?
? 如果是使用智能指針_RecordsetPtr定義的記錄集，那么可以使用
? RecordCount 方法得到記錄集記錄數(shù)。