用ADO操作數(shù)據(jù)庫(kù)的方法步驟
/***********************ADO接口簡(jiǎn)介 ***********************************/
ADO庫(kù)包含三個(gè)基本接口:_ConnectionPtr接口、_CommandPtr接口和_RecordsetPtr接口。
_ConnectionPtr接口返回一個(gè)記錄集或一個(gè)空指針。
通常使用它來創(chuàng)建一個(gè)數(shù)據(jù)連接或執(zhí)行一條不返回任何結(jié)果的SQL語句，如一個(gè)存儲(chǔ)過程。
使用_ConnectionPtr接口返回一個(gè)記錄集不是一個(gè)好的使用方法。
通常同Cdatabase一樣，使用它創(chuàng)建一個(gè)數(shù)據(jù)連接，然后使用其它對(duì)象執(zhí)行數(shù)據(jù)輸入輸出操作。
_CommandPtr接口返回一個(gè)記錄集。
它提供了一種簡(jiǎn)單的方法來執(zhí)行返回記錄集的存儲(chǔ)過程和SQL語句。
在使用_CommandPtr接口時(shí)，你可以利用全局_ConnectionPtr接口，也可以在_CommandPtr接口里直接使用連接串。
如果你只執(zhí)行一次或幾次數(shù)據(jù)訪問操作，后者是比較好的選擇。
但如果你要頻繁訪問數(shù)據(jù)庫(kù)，并要返回很多記錄集，那么，你應(yīng)該使用全局_ConnectionPtr接口創(chuàng)建一個(gè)數(shù)據(jù)連接，
然后使用_CommandPtr接口執(zhí)行存儲(chǔ)過程和SQL語句。
_RecordsetPtr是一個(gè)記錄集對(duì)象。
與以上兩種對(duì)象相比，它對(duì)記錄集提供了更多的控制功能，如記錄鎖定，游標(biāo)控制等
。同_CommandPtr接口一樣，它不一定要使用一個(gè)已經(jīng)創(chuàng)建的數(shù)據(jù)連接，
可以用一個(gè)連接串代替連接指針賦給_RecordsetPtr的connection成員變量，讓它自己創(chuàng)建數(shù)據(jù)連接。
如果你要使用多個(gè)記錄集，最好的方法是同Command對(duì)象一樣使用已經(jīng)創(chuàng)建了數(shù)據(jù)連接的全局_ConnectionPtr接口
，然后使用_RecordsetPtr執(zhí)行存儲(chǔ)過程和SQL語句。
/***********************基本流程***********************************/
(1)初始化COM庫(kù)，引入ADO庫(kù)定義文件
(2)用Connection對(duì)象連接數(shù)據(jù)庫(kù)
(3)利用建立好的連接，通過Connection、Command對(duì)象執(zhí)行SQL命令，或利用Recordset對(duì)象取得結(jié)果記
錄集進(jìn)行查詢、處理。
(4)使用完畢后關(guān)閉連接釋放對(duì)象。
/***********************【1】COM庫(kù)的初始化***********************************/
我們可以使用AfxOleInit()來初始化COM庫(kù)，這項(xiàng)工作通常在CWinApp::InitInstance()的重載函數(shù)中完
成，請(qǐng)看如下代碼:
BOOL CADOTest1App::InitInstance()
{
AfxOleInit();
......
}
/*****************【2】用#import指令引入ADO類型庫(kù)**********************/
我們?cè)趕tdafx.h中加入如下語句：
#import "c:\program files\common files\system\ado\msado15.dll" no_namespace rename("EOF","adoEOF")
其最終作用同我們熟悉的#include類似,編譯的時(shí)候系統(tǒng)會(huì)為我們生成msado15.tlh,ado15.tli兩個(gè)C++頭文件來定義ADO庫(kù)。
/***************【3】創(chuàng)建Connection對(duì)象并連接數(shù)據(jù)庫(kù)********************/
首先我們需要添加一個(gè)指向Connection對(duì)象的指針:
_ConnectionPtr m_pConnection;
BOOL CADOTest1Dlg::OnInitDialog()
{
CDialog::OnInitDialog();
try
{
HRESULT hr = m_pConnection.CreateInstance("ADODB.Connection");//創(chuàng)建Connection對(duì)象
if(SUCCEEDED(hr))
{
hr = m_pConnection->Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=test.mdb","","",adModeUnknown);//連接數(shù)據(jù)庫(kù)
//上面一句中連接字串中的Provider是針對(duì)ACCESS2000環(huán)境的，對(duì)于ACCESS97,需要改為:Provider=Microsoft.Jet.OLEDB.3.51; }
}
}
catch (_com_error e) //COM錯(cuò)誤取得,當(dāng)執(zhí)行COM功能的時(shí)候，如果出錯(cuò)，可以捕捉到_com_error的異常
{
CString strComError;
strComError.Format("錯(cuò)誤編號(hào): %08lx\n錯(cuò)誤信息: %s\n錯(cuò)誤源: %s\n錯(cuò)誤描述: %s",
e.Error(), // 錯(cuò)誤編號(hào)
e.ErrorMessage(), // 錯(cuò)誤信息
(LPCSTR) e.Source(), // 錯(cuò)誤源
(LPCSTR) e.Description()); // 錯(cuò)誤描述
::MessageBox(NULL,strComError,"錯(cuò)誤",MB_ICONEXCLAMATION);
}
}
也可以使用UDL文件進(jìn)行連接。
try
{
m_pConnection.CreateInstance(__uuidof(Connection));
m_pConnection->ConnectionString ="File Name=e.udl";
m_pConnection->Open("","","",NULL);
}
catch(_com_error e)
{....}
◆在這段代碼中我們是通過Connection對(duì)象的Open方法來進(jìn)行連接數(shù)據(jù)庫(kù)的，下面是該方法的原型
HRESULT Connection15::Open (_bstr_t ConnectionString, _bstr_t UserID, _bstr_t Password, long Options )
ConnectionString 為連接字串,
UserID 是用戶名,
Password 是登陸密碼,
Options 是連接選項(xiàng),用于指定Connection對(duì)象對(duì)數(shù)據(jù)的更新許可權(quán),
Options可以是如下幾個(gè)常量:
adModeUnknown: 缺省。當(dāng)前的許可權(quán)未設(shè)置
adModeRead: 只讀
adModeWrite: 只寫
adModeReadWrite: 可以讀寫
adModeShareDenyRead: 阻止其它Connection對(duì)象以讀權(quán)限打開連接
adModeShareDenyWrite: 阻止其它Connection對(duì)象以寫權(quán)限打開連接
adModeShareExclusive: 阻止其它Connection對(duì)象打開連接
adModeShareDenyNone: 允許其它程序或?qū)ο笠匀魏螜?quán)限建立連接
◆常用的數(shù)據(jù)庫(kù)連接方法：
(1)通過JET數(shù)據(jù)庫(kù)引擎對(duì)ACCESS2000數(shù)據(jù)庫(kù)的連接
m_pConnection->Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\test.mdb","","",adModeUnknown);
(2)通過DSN數(shù)據(jù)源對(duì)任何支持ODBC的數(shù)據(jù)庫(kù)進(jìn)行連接:
m_pConnection->Open("Data Source=adotest;UID=sa;PWD=;","","",adModeUnknown);
//m_pConnection->Open("DSN=test;","","",0); //連接叫作test的ODBC數(shù)據(jù)源
(3)不通過DSN對(duì)SQL SERVER數(shù)據(jù)庫(kù)進(jìn)行連接：
m_pConnection->Open("driver={SQL Server};Server=127.0.0.1;DATABASE=vckbase;UID=sa;PWD=139","","",adModeUnknown);
其中Server是SQL服務(wù)器的名稱，DATABASE是庫(kù)的名稱
◆先介紹Connection對(duì)象中兩個(gè)有用的屬性ConnectionTimeOut與State
ConnectionTimeOut用來設(shè)置連接的超時(shí)時(shí)間，需要在Open之前調(diào)用，例如:
m_pConnection->ConnectionTimeout = 5; //設(shè)置超時(shí)時(shí)間為5秒
m_pConnection->Open("Data Source=adotest;","","",adModeUnknown);
State屬性指明當(dāng)前Connection對(duì)象的狀態(tài)，0表示關(guān)閉，1表示已經(jīng)打開，我們可以通過
讀取這個(gè)屬性來作相應(yīng)的處理，例如:
if(m_pConnection->State)
m_pConnection->Close(); //如果已經(jīng)打開了連接則關(guān)閉它
4】/*****************執(zhí)行SQL命令并取得結(jié)果記錄集****************/
為了取得結(jié)果記錄集，我們定義一個(gè)指向Recordset對(duì)象的指針:
_RecordsetPtr m_pRecordset;
并為其創(chuàng)建Recordset對(duì)象的實(shí)例:
m_pRecordset.CreateInstance("ADODB.Recordset");
SQL命令的執(zhí)行可以采用多種形式，下面我們一進(jìn)行闡述。
◆(1)利用Connection對(duì)象的Execute方法執(zhí)行SQL命令
Execute方法的原型如下所示:
_RecordsetPtr Connection15::Execute (_bstr_t CommandText, VARIANT * RecordsAffected, long Options )
其中
CommandText 是命令字串，通常是SQL命令。
RecordsAffected 是操作完成后所影響的行數(shù),
Options 表示CommandText中內(nèi)容的類型，Options可以取如下值之一：
adCmdText: 表明CommandText是文本命令
adCmdTable: 表明CommandText是一個(gè)表名
adCmdProc: 表明CommandText是一個(gè)存儲(chǔ)過程
adCmdUnknown: 未知
Execute執(zhí)行完后返回一個(gè)指向記錄集的指針，下面我們給出具體代碼并作說明。
try
{
_variant_t ra;
m_pConnection->Execute("CREATE TABLE 學(xué)生信息(學(xué)號(hào) INTEGER,姓名 TEXT,年齡 INTEGER,生日 DATETIME)",&ra,adCmdText);
m_pConnection->Execute("INSERT INTO 學(xué)生信息(學(xué)號(hào),姓名,年齡,生日) VALUES (112105, '程紅秀',22,'1982-08-16')",&ra,adCmdText);//往表格里面添加記錄
m_pRecordset = m_pConnection->Execute("SELECT COUNT(*) FROM 學(xué)生信息",&ra,adCmdText); //執(zhí)行SQL統(tǒng)計(jì)命令得到包含記錄條數(shù)的記錄集
_variant_t vCount = m_pRecordset->GetCollect((_variant_t)(long)(0)); //取得第一個(gè)字段的值放入vCount變量
m_pRecordset->Close();
CString message;
message.Format("共有%d條記錄",vCount.lVal);
AfxMessageBox(message);
}
catch (_com_error e)
{ ...}
◆(2)利用 Command對(duì)象 來執(zhí)行SQL命令
try
{
_CommandPtr m_pCommand;
m_pCommand.CreateInstance("ADODB.Command");
m_pCommand->ActiveConnection = m_pConnection; //關(guān)鍵的一句，將建立的連接賦值給它
m_pCommand->CommandText="INSERT INTO 學(xué)生信息(學(xué)號(hào),姓名,年齡,生日) VALUES (112105, '程紅秀',22,'1982-08-16')";
m_pCommand->Execute(NULL,NULL,adCmdText);
m_pCommand->CommandText="SELECT COUNT(*) FROM 學(xué)生信息";
m_pRecordset=m_pCommand->Execute(NULL,NULL,adCmdText);
_variant_t vCount = m_pRecordset->GetCollect((_variant_t)(long)0); //取得第一個(gè)字段的值
CString str;
str.Format("共有%d條記錄",vCount.lVal);
AfxMessageBox(str);
m_pRecordset->Close();
}
catch (_com_error e) {...}
在這段代碼中我們只是用Command對(duì)象來執(zhí)行了SELECT查詢語句，
Command對(duì)象在進(jìn)行存儲(chǔ)過程的調(diào)用中能真正體現(xiàn)它的作用。下次我們將詳細(xì)介紹。
◆(3)直接用Recordset對(duì)象進(jìn)行查詢?nèi)〉糜涗浖?
例如
m_pRecordset->Open("SELECT * FROM 學(xué)生信息",_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是數(shù)據(jù)查詢字符串
②ActiveConnection是已經(jīng)建立好的連接（我們需要用Connection對(duì)象指針來構(gòu)造一個(gè)_variant_t對(duì)象)
③CursorType光標(biāo)類型，它可以是以下值之一,請(qǐng)看這個(gè)枚舉結(jié)構(gòu):
enum CursorTypeEnum
{
adOpenUnspecified = -1, //不作特別指定
adOpenForwardOnly = 0, //前滾靜態(tài)光標(biāo)。這種光標(biāo)只能向前瀏覽記錄集，比如用MoveNext向前滾動(dòng),這種方式可以提高瀏覽速度。但諸如BookMark,RecordCount,AbsolutePosition,AbsolutePage都不能使用
adOpenKeyset = 1, //采用這種光標(biāo)的記錄集看不到其它用戶的新增、刪除操作，但對(duì)于更新原有記錄的操作對(duì)你是可見的。
adOpenDynamic = 2, //動(dòng)態(tài)光標(biāo)。所有數(shù)據(jù)庫(kù)的操作都會(huì)立即在各用戶記錄集上反應(yīng)出來。
adOpenStatic = 3 //靜態(tài)光標(biāo)。它為你的記錄集產(chǎn)生一個(gè)靜態(tài)備份，但其它用戶的新增、刪除、更新操作對(duì)你的記錄集來說是不可見的。
};
④LockType鎖定類型，它可以是以下值之一，請(qǐng)看如下枚舉結(jié)構(gòu)：
enum LockTypeEnum
{
adLockUnspecified = -1, //未指定
adLockReadOnly = 1, //只讀記錄集
adLockPessimistic = 2, //悲觀鎖定方式。數(shù)據(jù)在更新時(shí)鎖定其它所有動(dòng)作，這是最安全的鎖定機(jī)制
adLockOptimistic = 3, //樂觀鎖定方式。只有在你調(diào)用Update方法時(shí)才鎖定記錄。在此之前仍然可以做數(shù)據(jù)的更新、插入、刪除等動(dòng)作
adLockBatchOptimistic = 4， //樂觀分批更新。編輯時(shí)記錄不會(huì)鎖定，更改、插入及刪除是在批處理模式下完成。
};
⑤Options請(qǐng)參考本文中對(duì)Connection對(duì)象的Execute方法的介紹
/***********************【5】記錄集的遍歷、更新*************************/
根據(jù)我們剛才通過執(zhí)行SQL命令建立好的 學(xué)生信息 表，它包含四個(gè)字段:學(xué)號(hào)，姓名，年齡，生日
以下的代碼實(shí)現(xiàn)：打開記錄集，遍歷所有記錄，刪除第一條記錄，添加三條記錄，移動(dòng)光標(biāo)到第二條
記錄，更改其年齡，保存到數(shù)據(jù)庫(kù)。
try
{
_variant_t vUsername,vBirthday,vID,vOld;
_RecordsetPtr m_pRecordset;
m_pRecordset.CreateInstance("ADODB.Recordset");
m_pRecordset->Open("SELECT * FROM 學(xué)生信息",_variant_t((IDispatch*)m_pConnection,true),adOpenStatic,adLockOptimistic,adCmdText);
while(!m_pRecordset->adoEOF)
{
vID = m_pRecordset->GetCollect(_variant_t((long)0)); //取得第1列的值,從0開始計(jì)數(shù)，你也可以直接給出列的名稱，如下一行
vUsername = m_pRecordset->GetCollect("姓名"); //取得姓名字段的值
vOld = m_pRecordset->GetCollect("年齡");
vBirthday = m_pRecordset->GetCollect("生日");
TRACE("id:%d,姓名:%s,年齡:%d,生日:%s\r\n",
vID.lVal,
(LPCTSTR)(_bstr_t)vUsername,
vOld.lVal,
(LPCTSTR)(_bstr_t)vBirthday); //在DEBUG方式下的OUTPUT窗口輸出記錄集中的記錄
m_pRecordset->MoveNext(); //移到下一條記錄
}
m_pRecordset->MoveFirst(); //移到首條記錄
m_pRecordset->Delete(adAffectCurrent); //刪除當(dāng)前記錄
for(int i=0;i<3;i++) //添加三條新記錄并賦值
{
m_pRecordset->AddNew(); //添加新記錄
m_pRecordset->PutCollect("學(xué)號(hào)",_variant_t((long)(i+10)));
m_pRecordset->PutCollect("姓名",_variant_t("王斌年"));
m_pRecordset->PutCollect("年齡",_variant_t((long)21));
m_pRecordset->PutCollect("生日",_variant_t("1930-3-15"));
}
m_pRecordset->Move(1,_variant_t((long)adBookmarkFirst)); //從第一條記錄往下移動(dòng)一條記錄,即移動(dòng)到第二條記錄處
m_pRecordset->PutCollect(_variant_t("年齡"),_variant_t((long)45)); //修改其年齡
m_pRecordset->Update(); //保存到庫(kù)中
} catch (_com_error e){}
/***********************【6】關(guān)閉記錄集與連接 *************************/
記錄集或連接都可以用Close方法來關(guān)閉
m_pRecordset->Close(); //關(guān)閉記錄集
m_pConnection->Close(); //關(guān)閉連接
在stdafx.h中進(jìn)行宏定義:
#if !defined CATCH_ERROR
#define CATCH_ERROR \
{ \
CString strComError; \
strComError.Format("錯(cuò)誤編號(hào): %08lx\n錯(cuò)誤信息: %s\n錯(cuò)誤源: %s\n錯(cuò)誤描述: %s", \
e.Error(), \
e.ErrorMessage(), \
(LPCSTR) e.Source(), \
(LPCSTR) e.Description()); \
::MessageBox(NULL,strComError,"錯(cuò)誤",MB_ICONEXCLAMATION); \
}
#endif
使用方法：
try
{ ...}
catch(_com_error e)
{
CATCH_ERROR;
}