怎样在VC下用ADO连接ORACLE数据库

首先，要用#import语句来引用支持ADO的组件类型库(*.tlb)，其中类型库可以作为可执行程序(DLL、EXE等)的一部分被定位在其自身程序中的附属资源里，如：被定位在msado15.dll的附属资源中，只需要直接用#import引用它既可。可以直接在Stdafx.h文件中加入下面语句来实现：

#import "c:\program files\common files\system\ado\msado15.dll" \

no_namespace \

rename ("EOF", "adoEOF")

其中路径名可以根据自己系统安装的ADO支持文件的路径来自行设定。当编译器遇到#import语句时，它会为引用组件类型库中的接口生成包装类，#import语句实际上相当于执行了API涵数LoadTypeLib()。#import语句会在工程可执行程序输出目录中产生两个文件，分别为*.tlh(类型库头文件)及*.tli(类型库实现文件)，它们分别为每一个接口产生智能指针，并为各种接口方法、枚举类型，CLSID等进行声明，创建一系列包装方法。语句no_namespace说明ADO对象不使用命名空间，rename ("EOF", "adoEOF")说明将ADO中结束标志EOF改为adoEOF，以避免和其它库中命名相冲突。

其次，在程序初始过程中需要初始化组件，一般可以用CoInitialize(NULL)来实现，这种方法在结束时要关闭初始化的COM，可以用下面语句CoUnInitialize()来实现。在MFC中还可以采用另一种方法来实现初始化COM，这种方法只需要一条语句便可以自动为我们实现初始化COM和结束时关闭COM的 *** 作，语句如下所示： AfxOleInit()

接着，就可以直接使用ADO的 *** 作了。我们经常使用的只是前面用#import语句引用类型库时，生成的包装类.tlh中声明的智能指针中的三个，它们分别是_ConnectionPtr、_RecordsetPtr和_CommandPtr。下面分别对它们的使用方法进行介绍：

1、_ConnectionPtr智能指针，通常用于打开、关闭一个库连接或用它的Execute方法来执行一个不返回结果的命令语句(用法和_CommandPtr中的Execute方法类似)。

——打开一个库连接。先创建一个实例指针，再用Open打开一个库连接，它将返回一个IUnknown的自动化接口指针。代码如下所示：

_ConnectionPtr m_pConnection

// 初始化COM,创建ADO连接等 *** 作

AfxOleInit()

m_pConnection.CreateInstance(__uuidof(Connection))

// 在ADO *** 作中建议语句中要常用try...catch()来捕获错误信息，

// 因为它有时会经常出现一些意想不到的错误。jingzhou xu

try

{

// 打开本地Access库Demo.mdb

m_pConnection->Open("Provider=Microsoft.Jet.OLEDB.4.0Data Source=Demo.mdb","","",adModeUnknown)

}

catch(_com_error e)

{

AfxMessageBox("数据库连接失败，确认数据库Demo.mdb是否在当前路径下!")

return FALSE

}

——关闭一个库连接。如果连接状态有效，则用Close方法关闭它并赋于它空值。代码如下所示：

if(m_pConnection->State)

m_pConnection->Close()

m_pConnection= NULL

举个例子，连接SQL：

// 打开数据库

strDBClass.Format(_T("Provider=Microsoft.Jet.OLEDB.4.0Data Source=%sJet OLEDB:Database Password=%s"), m_strUnEntryptMdbFilePath,m_strMDBPassword)

// 创建连接

HRESULT hr = m_pConnection.CreateInstance(_uuidof(Connection))

_ConnectionPtr m_pConnection->Open(m_strDBClass,_T(""),_T(""),adConnectUnspecified)

// 声明表单指针

_RecordsetPtr pBandRecordset

pBandRecordset.CreateInstance(__uuidof(Recordset))

// 执行语句

CString strSQL（L"SELECT * FROM [Band]"）

m_pConnection->Execute((LPCTSTR)strSQL,NULL,0)

// 提取某一项 例如BandInfo

int iBandInfo = wcscmp(colum, L"BandInfo")

while(!recordsetPtr->adoEOF)

{

var = recordsetPtr->GetCollect(colum)

if(var.vt != VT_NULL)

strName = (LPCSTR)_bstr_t(var)

recordsetPtr->MoveNext()

}

---