|
|
一、ADO简介 ; s2 I8 W- S: H$ }+ {5 s& H
ADO(ActiveX Data Object)是Microsoft数据库应用程序开发的新接口,是建立在OLE DB之上的高层数据库访问技术,请不必为此担心,即使你对OLE DB,COM不了解也能轻松对付ADO,因为它非常简单易用,甚至比你以往所接触的ODBC API、DAO、RDO都要容易使用,并不失灵活性。本文将详细地介绍在VC下如何使用ADO来进行数据库应用程序开发,并给出示例代码。
8 d f! F' a5 `. ?9 d' p本文示例代码
! e, L. D. N _& _7 Q" [
) h, P1 ~8 m, m! y二、基本流程 ! z. G% [1 p( `( I
万事开头难,任何一种新技术对于初学者来说最重要的还是“入门”,掌握其要点。让我们来看看ADO数据库开发的基本流程吧! ( o' P7 h C, @5 k
(1)初始化COM库,引入ADO库定义文件
) N; _* g- F9 ]7 ^, y8 ?- B(2)用Connection对象连接数据库
5 {+ D8 _: R! y4 s. O: \(3)利用建立好的连接,通过Connection、Command对象执行SQL命令,或利用Recordset对象取得结果记录集进行查询、处理。
3 G' p) w7 S. c4 u4 z) i(4)使用完毕后关闭连接释放对象。
( v; ]$ Y) G7 a& K1 Z* r2 [/ T6 S, X `. H5 f
准备工作:
4 }" ?. ^- e _- [* ?4 x. x$ A8 p为了大家都能测试本文提供的例子,我们采用Access数据库,您也可以直接在我们提供的示例代码中找到这个test.mdb。
! r4 H2 d9 t: a$ v" ^) z下面我们将详细介绍上述步骤并给出相关代码。 $ j8 O0 |2 W) k8 Z* Q; ^
【1】COM库的初始化 " u/ u6 B* O- _+ q' y
我们可以使用AfxOleInit()来初始化COM库,这项工作通常在CWinApp::InitInstance()的重载函数中完成,请看如下代码:
2 S* d2 f/ H$ p
% ]7 {# p4 s/ U+ d2 v2 ~, @# ^# L( Z
BOOL CADOTest1App::InitInstance() & r5 O* Q, \! o
{ 4 p9 u- q, j3 f, ~: [
AfxOleInit(); & D8 P5 Z2 |: p
......
# T) t$ N* G; a0 G) u% Q9 W& p- l5 v0 i
【2】用#import指令引入ADO类型库
w* Z4 h; k% e我们在stdafx.h中加入如下语句:(stdafx.h这个文件哪里可以找到?你可以在FileView中的Header Files里找到)
" ?1 D' f. b- U4 W#import "c:\program files\common files\system\ado\msado15.dll" no_namespace rename("EOF","adoEOF")
; X; `& g' P$ ?6 D, `( Z这一语句有何作用呢?其最终作用同我们熟悉的#include类似,编译的时候系统会为我们生成msado15.tlh,ado15.tli两个C++头文件来定义ADO库。 4 h9 B2 A& i5 O( A4 m
, ~, j A7 B7 q5 Q几点说明: 2 E; T* }5 ]2 E2 e! }. A
(1) 您的环境中msado15.dll不一定在这个目录下,请按实际情况修改
5 c1 V6 f7 K# ^5 w7 j' e( g(2) 在编译的时候肯能会出现如下警告,对此微软在MSDN中作了说明,并建议我们不要理会这个警告。 7 ~) W1 m$ W7 O3 ^3 W: L) d3 L9 g
msado15.tlh(405) : warning C4146: unary minus operator applied to unsigned type, result still unsigned 0 n. {+ F: E8 |2 Y' F4 X
; z. t8 H2 m! I3 d
【3】创建Connection对象并连接数据库 5 g9 k; h2 n/ r% V) B, J; {% e
首先我们需要添加一个指向Connection对象的指针:
, q: N2 \, T- M& r) Y) m$ G& A_ConnectionPtr m_pConnection; ( o7 V6 i. U% f3 j: R* T7 @
下面的代码演示了如何创建Connection对象实例及如何连接数据库并进行异常捕捉。
0 R% @6 I9 H5 |- O% X3 [3 p/ u2 P& `$ R: i$ C
* N- S4 n3 Y. e1 j/ Y6 @! kBOOL CADOTest1Dlg::OnInitDialog() ?+ B+ Z3 P- ?2 p! w% ^5 \ `
{
( p5 r9 A% l5 C. D! A- k CDialog::OnInitDialog(); 3 O1 W1 [2 e$ h; m2 J" _
HRESULT hr; + K1 W3 l$ [8 H( g. K' u2 y9 d
try # t! D9 j/ T J) Y; y
{
& F$ P$ y% E9 V$ E( z hr = m_pConnection.CreateInstance("ADODB.Connection");///创建Connection对象 3 ?* e W/ f1 G; B4 b
if(SUCCEEDED(hr)) ! h5 k4 a/ Z, q1 N
{
0 @6 v6 C0 ], }# B0 v9 w- s _4 \ hr = m_pConnection->Open(" rovider=Microsoft.Jet.OLEDB.4.0;Data Source=test.mdb","","",adModeUnknown);///连接数据库
6 ~! [- B* ^5 N" V- N8 [' ? ///上面一句中连接字串中的Provider是针对ACCESS2000环境的,对于ACCESS97,需要改为 rovider=Microsoft.Jet.OLEDB.3.51; }
, M3 _8 J% Q8 w } + m- r( N1 v: s( `: i" u' L% Y7 C
catch(_com_error e)///捕捉异常
$ d+ t l+ J3 q { 2 |. m: @# m) C- ^/ E$ {
CString errormessage;
/ C5 |: Z8 l: \! j+ S9 R errormessage.Format("连接数据库失败!\r\n错误信息:%s",e.ErrorMessage());
/ h& g( S' U }) _" l' B0 A+ y AfxMessageBox(errormessage);///显示错误信息
! |% t' n$ h( G2 ^ }
& p) B9 R$ |( ?1 T' [1 q& S- x) \) o) ?0 I
在这段代码中我们是通过Connection对象的Open方法来进行连接数据库的,下面是该方法的原型
0 b# G9 [5 T& t' A+ NHRESULT Connection15::Open ( _bstr_t ConnectionString, _bstr_t UserID, _bstr_t Password, long Options ) ( L' q' x! u) C5 B6 x0 C
ConnectionString为连接字串,UserID是用户名, Password是登陆密码,Options是连接选项,用于指定Connection对象对数据的更新许可权, / i/ E7 m1 l9 q0 P+ S
Options可以是如下几个常量: ! y! {* W# W7 w3 ?
adModeUnknown:缺省。当前的许可权未设置
|( o& `' h% i4 {/ GadModeRead:只读 : Q. t$ K" _. z( n
adModeWrite:只写 0 ?9 A1 p& b6 }
adModeReadWrite:可以读写 / P) }8 @. ]! h7 T
adModeShareDenyRead:阻止其它Connection对象以读权限打开连接 : @) M& R/ b$ l8 ^' |9 u& _* O
adModeShareDenyWrite:阻止其它Connection对象以写权限打开连接
# G% T+ X! u2 DadModeShareExclusive:阻止其它Connection对象打开连接
9 F! I6 L4 A" d0 E3 A1 I0 gadModeShareDenyNone:允许其它程序或对象以任何权限建立连接 ' z' R" x4 p1 r- t/ b' I
3 i6 G7 B6 f, l3 y9 x2 {# g: T" N1 D
我们给出一些常用的连接方式供大家参考: - S; q6 g2 O# C, V Q; \ I
(1)通过JET数据库引擎对ACCESS2000数据库的连接 1 Y( g# F1 E T& z! z; k H
& t& Q: w& Y4 F4 k% f
m_pConnection->Open(" rovider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\test.mdb","","",adModeUnknown);
; k& h7 S7 }* G' s3 L2 @
: f* u3 I C; N% V(2)通过DSN数据源对任何支持ODBC的数据库进行连接:
' b2 k: K* x3 m9 O$ b1 Z' T) Fm_pConnection->Open("Data Source=adotest;UID=sa WD=;","","",adModeUnknown); % G/ ~: D- G: L' c
" P) y! E" F6 c(3)不通过DSN对SQL SERVER数据库进行连接: m_pConnection->Open("driver={SQL Server};Server=127.0.0.1;DATABASE=vckbase;UID=sa;PWD=139","","",adModeUnknown);
7 G. y, B8 R; m! `, Q! n0 q$ K" v) z- O) l Z
其中Server是SQL服务器的名称,DATABASE是库的名称 . b! j# ]; D4 {9 V- ~* O
' c C# {" Q1 a- A7 A% P
Connection对象除Open方法外还有许多方法,我们先介绍Connection对象中两个有用的属性ConnectionTimeOut与State
, y- J- r; f, L% n6 |3 K2 a& w0 o+ VConnectionTimeOut用来设置连接的超时时间,需要在Open之前调用,例如: m_pConnection->ConnectionTimeout = 5;///设置超时时间为5秒
" j: ?! d/ ]' D) l* Fm_pConnection->Open("Data Source=adotest;","","",adModeUnknown); i* g6 U8 L4 w( k' X3 z
; H u% J+ W* N" `5 L6 q6 b
' ?7 M( ^6 H% I1 S+ @: x3 MState属性指明当前Connection对象的状态,0表示关闭,1表示已经打开,我们可以通过读取这个属性来作相应的处理,例如:
* X3 a: ]" n2 E) t! dif(m_pConnection->State)
* l6 V( D% Z0 E m_pConnection->Close(); ///如果已经打开了连接则关闭它 % A# u: u; S) {, P0 x) r+ Q
, w; v6 y6 Y3 F, y/ n% f+ l5 M! _" T/ t6 g0 Y1 I
【4】执行SQL命令并取得结果记录集 ; k' ?- y7 k1 ?# X$ y
为了取得结果记录集,我们定义一个指向Recordset对象的指针:_RecordsetPtr m_pRecordset; ! `* K+ ?8 `1 R6 k- l; o [- U
并为其创建Recordset对象的实例: m_pRecordset.CreateInstance("ADODB.Recordset");
$ }& I0 K; s5 \1 uSQL命令的执行可以采用多种形式,下面我们一进行阐述。
, u4 C4 c. y/ V* y. i+ G/ r& O3 d3 n J; X7 P7 N& _
(1)利用Connection对象的Execute方法执行SQL命令 9 D1 V: o# x4 j; m1 @
Execute方法的原型如下所示: # b, |1 j1 S1 m, Q5 f
_RecordsetPtr Connection15::Execute ( _bstr_t CommandText, VARIANT * RecordsAffected, long Options ) 其中CommandText是命令字串,通常是SQL命令。参数RecordsAffected是操作完成后所影响的行数, 参数Options表示CommandText中内容的类型,Options可以取如下值之一:
$ ^0 O2 N; |0 |( s( P' L# S! D- H$ kadCmdText:表明CommandText是文本命令
9 A9 P3 U, U* m7 u5 W! E3 k- `: ]adCmdTable:表明CommandText是一个表名 0 K' j6 h' {& W; g6 S* ^
adCmdProc:表明CommandText是一个存储过程
1 c, z: M/ x4 J' M6 \+ A" NadCmdUnknown:未知 ( e; a9 R" @8 c0 U7 b3 Z
7 q( L+ c( }% F6 [* I! WExecute执行完后返回一个指向记录集的指针,下面我们给出具体代码并作说明。 _variant_t RecordsAffected; $ C' \7 H- ^* s) C$ X
///执行SQL命令:CREATE TABLE创建表格users,users包含四个字段:整形ID,字符串username,整形old,日期型birthday 6 R2 g5 N( o7 r! k
m_pConnection->Execute("CREATE TABLE users(ID INTEGER,username TEXT,old INTEGER,birthday DATETIME)",&RecordsAffected,adCmdText);
4 w& ^+ ~4 h7 U+ R9 w3 d1 S ///往表格里面添加记录
) a& f- B: a8 }1 Z$ {$ v* ] m_pConnection->Execute("INSERT INTO users(ID,username,old,birthday) valueS (1, nullnullnullnullnullnullnullnullWashingtonnullnullnullnullnullnullnullnull,25,nullnullnullnullnullnullnullnull1970/1/1nullnullnullnullnullnullnullnull)",&RecordsAffected,adCmdText);
2 S* v$ i3 r ]9 l7 H' { ///将所有记录old字段的值加一 & I) a$ F" J8 A$ Y' |3 X
m_pConnection->Execute("UPDATE users SET old = old+1",&RecordsAffected,adCmdText); & ~0 Y* V, F& c7 e/ n1 r
///执行SQL统计命令得到包含记录条数的记录集 1 P& f. Q) K, m: ~& N
m_pRecordset = m_pConnection->Execute("SELECT COUNT(*) FROM users",&RecordsAffected,adCmdText);
/ ?- u& C+ ^% o; |( m) ~ _variant_t vIndex = (long)0; ! C- K0 X) N8 j S8 |- k
_variant_t vCount = m_pRecordset->GetCollect(vIndex);///取得第一个字段的值放入vCount变量 % p% P( e* \8 S; o' N7 S1 @
m_pRecordset->Close();///关闭记录集
! Y& @% n7 W& J1 Y$ U4 A CString message; 0 X# U* J( w$ W
message.Format("共有%d条记录",vCount.lVal); 5 |; U2 {. r7 I& z
AfxMessageBox(message);///显示当前记录条数
# Z1 W% A: Y3 v
0 }: r; g2 Z, [+ ]* k3 Y. s
) y B! k" o% `' a, u! q6 ?7 m(2)利用Command对象来执行SQL命令 - M& U1 j8 e* Z. z9 X
_CommandPtr m_pCommand;
; L+ y E1 z3 P# `* S' B m_pCommand.CreateInstance("ADODB.Command");
# t7 f- n5 y4 |# |3 @4 T4 F& Q _variant_t vNULL; , P5 E4 k4 Z8 e- m4 }+ ~0 \8 P
vNULL.vt = VT_ERROR;
5 ^0 J' T8 l* a; V vNULL.scode = DISP_E_PARAMNOTFOUND;///定义为无参数
4 A9 H( ]7 P' f& m. v$ j h m_pCommand->ActiveConnection = m_pConnection;///非常关键的一句,将建立的连接赋值给它 ' B$ t* h, n4 a
m_pCommand->CommandText = "SELECT * FROM users";///命令字串
1 F1 m5 P4 d1 A. x3 k$ [7 a& j- Z m_pRecordset = m_pCommand->Execute(&vNULL,&vNULL,adCmdText);///执行命令,取得记录集
0 e. O" \2 }9 B1 ^- g6 r& a4 G s7 o6 {
在这段代码中我们只是用Command对象来执行了SELECT查询语句,Command对象在进行存储过程的调用中能真正体现它的作用。下次我们将详细介绍。
# w8 f# }1 K* N0 B& ?5 y5 ^% y, G( h* z0 ?3 d
+ W9 F" B, Y! r' Z7 E
(3)直接用Recordset对象进行查询取得记录集
7 H, e9 V! p8 m- A/ N% R例如 ) O9 [3 ]8 u0 m5 R! P" G
4 i+ i' s( p* M
m_pRecordset->Open("SELECT * FROM users",_variant_t((IDispatch *)m_pConnection,true),adOpenStatic,adLockOptimistic,adCmdText);
+ v! y) r5 H! o; E$ g$ n/ q W+ u/ w% o) x; c
Open方法的原型是这样的:
: ^; l8 n4 i. L3 C3 AHRESULT Recordset15::Open ( const _variant_t & Source, const _variant_t & ActiveConnection, enum CursorTypeEnum CursorType, enum LockTypeEnum LockType, long Options ) 1 s1 r% x, [! x6 S! X5 @ v
其中: : y) P8 ]* B( `/ T1 J1 j$ f G0 n9 R
①Source是数据查询字符串 ' J& c/ H% d9 J# s, F2 v. z
②ActiveConnection是已经建立好的连接(我们需要用Connection对象指针来构造一个_variant_t对象)
5 t0 f9 q' ^7 q- j3 k# X③CursorType光标类型,它可以是以下值之一,请看这个枚举结构:
8 P# P1 L8 p8 k7 v+ L# [4 senum CursorTypeEnum
+ O! |" x8 o5 b2 k% w* a' p# Z% q{ / z3 g% x/ w5 F
adOpenUnspecified = -1,///不作特别指定
2 U5 v# v8 b4 V1 k4 u8 `+ SadOpenForwardOnly = 0,///前滚静态光标。这种光标只能向前浏览记录集,比如用MoveNext向前滚动,这种方式可以提高浏览速度。但诸如BookMark,RecordCount,AbsolutePosition,AbsolutePage都不能使用
$ v7 f7 k2 e4 Z% C3 ~: p- l. \' NadOpenKeyset = 1,///采用这种光标的记录集看不到其它用户的新增、删除操作,但对于更新原有记录的操作对你是可见的。 5 o# u/ r; l0 t: M
adOpenDynamic = 2,///动态光标。所有数据库的操作都会立即在各用户记录集上反应出来。
5 T j2 ^; l {0 ^" BadOpenStatic = 3///静态光标。它为你的记录集产生一个静态备份,但其它用户的新增、删除、更新操作对你的记录集来说是不可见的。
' U/ J# W3 I8 X) V0 L7 z! I* _}; ( q8 U$ R6 c% @1 i: B. [
④LockType锁定类型,它可以是以下值之一,请看如下枚举结构: 9 B/ J+ J% T) T$ f/ s7 L
enum LockTypeEnum 4 B& }4 m/ k5 ^
{ 4 c1 O- j# h" g) m
adLockUnspecified = -1,///未指定 . r3 c6 p4 D' ^, K$ V# @
adLockReadOnly = 1,///只读记录集 0 ]" u2 h5 N4 c0 a2 I5 P9 q! \
adLockPessimistic = 2,悲观锁定方式。数据在更新时锁定其它所有动作,这是最安全的锁定机制 6 T* Y* p3 u8 C4 k+ B4 N
adLockOptimistic = 3,乐观锁定方式。只有在你调用Update方法时才锁定记录。在此之前仍然可以做数据的更新、插入、删除等动作
q8 S9 I6 [7 HadLockBatchOptimistic = 4,乐观分批更新。编辑时记录不会锁定,更改、插入及删除是在批处理模式下完成。
0 U. A2 s1 A7 s; t# z6 T! p- R}; 5 I. y6 N/ K8 P% R i& J9 e
⑤Options请参考本文中对Connection对象的Execute方法的介绍
8 a u& j- M3 T6 Z' a1 `
" @* D2 C) @/ x
7 K/ m- m3 _) M+ m9 t2 o" N' U- Z; g【5】记录集的遍历、更新 * x! C4 e2 B& r2 W5 x3 |* w, Z0 n% M
根据我们刚才通过执行SQL命令建立好的users表,它包含四个字段:ID,username,old,birthday 8 {3 W% P/ s. I* k; l
以下的代码实现:打开记录集,遍历所有记录,删除第一条记录,添加三条记录,移动光标到第二条记录,更改其年龄,保存到数据库。
- Q2 j) y Y* b( B4 Q. A/ d& Z; X8 L2 B( T9 I- ?- j
9 o4 b) |, p7 j7 t \_variant_t vUsername,vBirthday,vID,vOld; " B- \% J& P( P. ?5 X
_RecordsetPtr m_pRecordset;
( I/ S6 w' L4 `: e* D7 N, b/ y6 s, Ym_pRecordset.CreateInstance("ADODB.Recordset"); + i1 h9 n' H/ u2 O9 b
m_pRecordset->Open("SELECT * FROM users",_variant_t((IDispatch*)m_pConnection,true),adOpenStatic,adLockOptimistic,adCmdText); ! s7 o* i. C& ~8 M. @* e; y3 X$ i# @8 W
while(!m_pRecordset->adoEOF)///这里为什么是adoEOF而不是EOF呢?还记得rename("EOF","adoEOF")这一句吗?
' _$ }0 \( ], f# J) x2 y{
3 y& n! L; { @, m" r! LvID = m_pRecordset->GetCollect(_variant_t((long)0));///取得第1列的值,从0开始计数,你也可以直接给出列的名称,如下一行
" \) M: z7 D: avUsername = m_pRecordset->GetCollect("username");///取得username字段的值 , z% }! F `5 Y6 f O" m
vOld = m_pRecordset->GetCollect("old"); 1 i! Z" r! e3 P
vBirthday = m_pRecordset->GetCollect("birthday"); . S" M% _' u, `: o
///在DEBUG方式下的OUTPUT窗口输出记录集中的记录 ) {2 L) F5 W+ r+ e( \+ w h$ W/ P
if(vID.vt != VT_NULL && vUsername.vt != VT_NULL && vOld.vt != VT_NULL && vBirthday.vt != VT_NULL) : a# Q4 ~$ b5 z k+ i# G0 {
TRACE("id:%d,姓名:%s,年龄:%d,生日:%s\r\n",vID.lVal,(LPCTSTR)(_bstr_t)vUsername,vOld.lVal,(LPCTSTR)(_bstr_t)vBirthday);
2 |( F' p; `* l" f1 pm_pRecordset->MoveNext();///移到下一条记录 ' b& v6 c4 _! D0 s- P/ {
} 5 C; @0 A& i* Y! M9 r" ^
m_pRecordset->MoveFirst();///移到首条记录
" b9 v \# G- ?6 F5 vm_pRecordset->Delete(adAffectCurrent);///删除当前记录
# j4 u- `" V% h& I# ^8 \( N///添加三条新记录并赋值 8 b2 B+ V" g* S/ k m: s
for(int i=0;i<3;i++)
) ?( r) k4 D z/ f' f/ C" e{
9 o& ]& q6 @; u' ]5 }+ v$ x1 Mm_pRecordset->AddNew();///添加新记录 9 g' ]1 I6 q# M
m_pRecordset->PutCollect("ID",_variant_t((long)(i+10)));
4 ?9 v; M1 v! Y" {; W- X9 Z Hm_pRecordset->PutCollect("username",_variant_t("叶利钦")); 6 R) `- F, q0 ?2 C4 p' b! _% F+ W
m_pRecordset->PutCollect("old",_variant_t((long)71)); " _! p' c$ o- P" w0 C* t8 f- T
m_pRecordset->PutCollect("birthday",_variant_t("1930-3-15")); * Y/ R5 h2 I2 n2 E% J
}
* M0 O3 o/ U; _9 {. Fm_pRecordset->Move(1,_variant_t((long)adBookmarkFirst));///从第一条记录往下移动一条记录,即移动到第二条记录处
0 {; Y8 N. B1 L" f Am_pRecordset->PutCollect(_variant_t("old"),_variant_t((long)45));///修改其年龄
5 R) G1 Y" v" l, J% w$ T7 D1 Tm_pRecordset->Update();///保存到库中
. p0 T E/ j6 I% X; \' O2 s7 e
0 y5 [- Y, |- L5 R1 J& ?2 G【6】关闭记录集与连接 3 n0 j( k) o+ ~! i, }- C3 x
记录集或连接都可以用Close方法来关闭
/ f* j9 ?# C' r4 `& g8 ~% Y m_pRecordset->Close();///关闭记录集 : Z9 O8 L: F2 J) V1 X# H
m_pConnection->Close();///关闭连接 ' c, a# i& R- k; Z( ?
+ T7 A% x/ w% J
至此,我想您已经熟悉了ADO操作数据库的大致流程,也许您已经胸有成竹,也许您还有点胡涂,不要紧!建议你尝试写几个例子,这样会更好地熟悉ADO,最后我给大家写了一个小例子,例子中读出所有记录放到列表控件中、并可以添加、删除、修改记录。
( L! d: } h: p+ B2 g* F0 {, a( H点这里下载示例代码 ) ?, Y9 @! f! s' e. H% e. H; l
3 P: T K# q+ {
后记:限于篇幅ADO中的许多内容还没有介绍,下次我们将详细介绍Recordset对象的属性、方法并解决几个关键的技术:绑定方式处理记录集数据、存储过程的调用、事务处理、图象在数据库中的保存与读取、与表格控件的配合使用等。 |
|