[摘要]作者: 胡朝晖 我们知道，在VB下进行基于ADO的编程相对比较简单，只要我们通过reference加载了适当的类型库以后，我们就可以正常的调用ADO对象，但是可能很多开发人员对于VC下的基于A...
作者: 胡朝晖
我们知道，在VB下进行基于ADO的编程相对比较简单，只要我们通过reference加载了适当的类型库以后，我们就可以正常的调用ADO对象，但是可能很多开发人员对于VC下的基于ADO，OLE DB的数据库开发就没有很多经验了。所以我们有必要先讨论一下VC下基于ADO开发的几种模式。
VC下关于ADO的操作分析
一般来说，用VC++有三种方法可以实现对ADO的操作:
1． 通过#import方法
2． 通过利用MFC OLE的ClassWizard
3． 通过Windows API中COM相关的函数
在所有这三种方法种，#import是最方便的方法，它允许你产生一个类似VB的类结构。使你的开发变的很方便。
#import方法
在#import中，你需要提供所包含的类型库的路径和名称，它能够自动产生一个对GUIDs的定义，同时对自动生成对ADO对象的封装。同时，能够列举它在类型库中所能找到的类型，对任何你所引用的类型库，VC++会在编译的时候自动生成两个文件:
一个头文件（.tlh）,它包含了列举的类型和对类型库中对象的定义
一个实现文件（.tli）对类型库对象模型中的方法产生封装。
比如，你在stdafx.h文件中增加对msado15.dd的import以后，VC++会产生msado15.tlh和msado15.tli两个文件。
#import也能够使用一个新的类，_com_ptr_t,也被称为智能指针。智能指针能够自动执行QuyerInterface,AddRef和Release函数。对一个COM对象模型使用#import产生代码和VBA很类似。
下面的代码演示了如何使用#import在你的应用中实现对ADO的操作：
#import "c:\program files\common files\system\ado\msado15.dll" \
no_namespace
rename ( "EOF", "adoEOF" )
对EOF进行该名是必要的，因为典型的VC++应用都已经定义了EOF作为常数-1。
下面分析用#import定义和初始化ADO对象
通常来说，操作一个自动化对象需要两个步骤：定义和初始化一个用来操作COM对象的变量。通过#import你可以在一行代码完成这个工作，通过使用智能指针(_com_ptr_t)的构造函数传递一个有效的CLSID或者是PROGID。开发人员也可以通过_com_ptr_t::CreateInstance()方法来定义对象的一个示例。具体代码如下所示：
_ConnectionPtr Conn1( __uuidof( Connection ) );
也可以采用下面的代码实现同样的功能
_ConnectionPtr Conn1 = NULL; file://定义对象
HRESULT hr = S_OK;
hr = Conn1.CreateInstance( __uuidof( Connection ) ); file://创建实例
推荐采用第二种方法，因为如果用第一种方法的话不能返回一个失败的HRESULT,所以也就不能判断ADO连接对象是成功还是失败。注意这里的__uuidof( Connection)中的Connection是在.tlh文件中定义的。通过把它传递给方法CreateInstance,实际上就是创建了一个有效的ADOConnection对象。
需要注意到的是#import中有一个属性为no_namespace,这是告诉编译器该类不在一个单独的名字空间中，使用no_namespace意味着你不需要在初始化变量的时候引用名字空间。当然如果在你的应用中需要倒入多个类型库的话，最后不要使用no_namespace,以免引起名字冲突。
下面是简单的基于ADO应用的代码，采用了#import方法：
#include
#import rename("EOF", "adoEOF")
void main()
{
HRESULT hr = S_OK;
file://因为没有在#import中指定no_namespace,所以必须采用ADODB：：这样的形式
file://来作为变量类型
ADODB::_RecordsetPtr Rs1 = NULL;
file://通过ODBC建立ADO连接
_bstr_t Connect( "DSN=AdoDemo;UID=sa;PWD=;" );
_bstr_t Source ( "SELECT * FROM Authors" );
CoInitialize();
file://初始化Rs1对象
hr = Rs1.CreateInstance( __uuidof( ADODB::Recordset ) );
file://对hr的返回正确性判断省略
Rs1->Open( Source, Connect,
ADODB::adOpenForwardOnly,
ADODB::adLockReadOnly, -1 );
file://这里可以对记录集Rs1进行操作
Rs1->Close();
Rs1 = NULL;
::MessageBox( NULL, "Success!", "", MB_OK );
CoUninitialize();
}
用MFC OLE创建ADO应用
MFC OLE类似于#import，能够对一个类型库产生一个封装（wrapper）,但是不象#import,MFC OLE不能够从类型库中产生枚举类型，但是它能够更干净的实现ADO。MFC类CString和COleVariant隐藏了BSTRS和Variants的细节。需要注意的是，有MFC OLE产生的类封装都是继承了类ColeDispatchDriver，由ADO产生的失败的HRESULTS被封装在类ColeDispatchException中。
首先我们需要说明一下用MFC OLE ClassWizard创建ADO应用的几个不可缺少的步骤:
从Tools菜单中，选择Options,然后选择Directories tab，在Show Directories中，选择Library Files，然后在directories增加路径C:\program files\common files\system\ado，这样做的目的是设置包含ADO类型库的路径。
从View菜单中，选择ClassWizard,点击Add Class按纽并选择From A Type Library...，然后在Type Library dialog box对话框中，从C:\program files\common files\system\ado选择文件msado15.dll,在Confirm Classes对话框中，选择所有列出的类并按OK按纽，退出ClassWizard。实际上，ClassWizard为你生成了两个文件msado15.h和msado15.cpp.
下面的代码是实现ADO应用的自己编写的代码：
AfxOleInit(); file://初始化COM对象
...
_Recordset Rs1; file://定义数据集对象
COleException e;
COleVariant Connect( "DSN=AdoDemo;UID=sa;PWD=;" );
COleVariant Source ( "SELECT * FROM Authors" );
file://创建数据集对象
Rs1.CreateDispatch( "ADODB.Recordset.2.0", &e );
Rs1.Open( (VARIANT) Source, (VARIANT) Connect, 0, 1, -1 );
file://这里可以对结果集Rs1进行处理
Rs1.Close();
Rs1.ReleaseDispatch();
AfxMessageBox("Success!");
#import和MFC OLE都围绕着一个给定的自动化对象产生了一个封装类，它们分别继承自_com_ptr_t和ColeDispatchDriver。但是事实上，你可以通过使用Windows API函数直接初始化ADO对象,下面讨论直接用Win32 API函数来操作COM对象。
用COM API创建ADO工程
为了直接使用ADO和COM对象，需要添加两个头文件adoid.h和adoint.h，这两个头文件定义了CLSIDs,接口定义和你操作ADO类型库所需要的枚举类型。同时你也需要增加头文件INITGUID.H。
为了能够编译用COM API创建的ADO工程文件，你需要安装OLE DB SDK或者是MSDASDK工具。下面是简单的示例代码：
#include
#include
#include "adoid.h" // ADO的GUID's
#include "adoint.h" // ADO的类、枚举等等
void main()
{
HRESULT hr = S_OK;
ADORecordset* Rs1 = NULL; // ADORecordset 是在adoint.h中定义的
VARIANT Source;
VARIANT Connect;
VariantInit( &Source );
VariantInit( &Connect );
Source.vt = VT_BSTR;
Source.bstrVal = ::SysAllocString( L"SELECT * FROM Authors");
Connect.vt = VT_BSTR;
Connect.bstrVal = ::SysAllocString( L"DSN=AdoDemo;UID=sa;PWD=;" );
hr = CoCreateInstance( CLSID_CADORecordset,
NULL,
CLSCTX_INPROC_SERVER,
IID_IADORecordset,
(LPVOID *) &Rs1 );
if( SUCCEEDED( hr ) ) hr = Rs1->Open( Source,
Connect,
adOpenForwardOnly,
adLockReadOnly,
-1 );
file://这里你可以对记录集Rs1进行处理
if( SUCCEEDED( hr ) ) hr = Rs1->Close();
if( SUCCEEDED( hr ) ) { Rs1->Release(); Rs1 = NULL; }
if( SUCCEEDED( hr ) ) ::MessageBox( NULL, "Success!", "", MB_OK );
}
……