软考程序员辅导：vc中用ado连接oracle的方法

在利用ado连接数据库之前，需要做一些准备

　　1.用#import指令引入ADO类型库

　　我们在stdafx.h中加入如下语句：

　　#import “c:program filescommon filessystemadomsado15.dll” no_namespace rename（“EOF”,“adoEOF”） .

　　这一语句有何作用呢？其最终作用同我们熟悉的#i nclude类似，编译的时候系统会为我们生成msado15.tlh,ado15.tli两个C++头文件来定义ADO库。

　　几点说明：

　　（1） 您的环境中msado15.dll不一定在这个目录下，请按实际情况修改

　　（2） 在编译的时候肯能会出现如下警告，对此微软在MSDN中作了说明，并建议我们不要理会这个警告。msado15.tlh（405） : warning C4146: unary minus operator applied to unsigned type, result still unsigned

　　2、初始化OLE/COM库环境

　　必须注意的是，ADO库是一组COM动态库，这意味应用程序在调用ADO前，必须初始化OLE/COM库环境。在MFC应用程序里，一个比较好的方法是在应用程序主类的InitInstance成员函数里初始化OLE/COM库环境。

　　BOOL CMyAdoTestApp::InitInstance（）

　　{

　　if（！AfxOleInit（））//这就是初始化COM库

　　{

　　AfxMessageBox（“OLE初始化出错！”）；

　　return FALSE;

　　}

　　}　　3.ADO库包含三个基本接口：_ConnectionPtr接口、_CommandPtr接口和_RecordsetPtr接口。与数据库的连接就是用_ConnectionPtr接口，它的连接字符串可以是自己直接写，也可以指向一个ODBC DSN.以下的例子都测试通过，顺便写了SQL Server的例子。

　　BOOL CTestconDlg::ConnectDatabase（）

　　{

　　CString m_server,m_data,m_uid,m_pwd;

　　m_server=“192.168.0.24”;//服务器ip或名称

　　m_data=“crmdb”;//ODBC数据源

　　m_uid=“njcrm”;//用户名

　　m_pwd=“crmdbo”;//密码

　　BOOL retFt=false;

　　HRESULT hr;

　　try

　　{

　　hr = m_pConnection.CreateInstance（“ADODB.Connection”）；///创建Connection对象

　　if（SUCCEEDED（hr））

　　{

　　_bstr_t connStr;

　　m_pConnection->CursorLocation=adUseClient;

　　//begin---------------Oracle ODBC 配置数据源　　//控制面板->管理工具->数据源（ODBC）->系统DNS->添加->Microsoft ODBC for Oracle->完成->配置……

　　// connStr=“DSN=”+m_data;

　　// m_pConnection->Open（_bstr_t（connStr），（_bstr_t）m_uid,（_bstr_t）m_pwd,adConnectUnspecified）；

　　//end---------------Oracle ODBC 配置数据源

　　//begin---------------Oracle 标准安全级别

　　// connStr=“Provider=OraOLEDB.Oracle;User ID=njcrm;Password=crmdbo;Data Source=192.168.0.24;”;

　　// m_pConnection->Open（_bstr_t（connStr），（_bstr_t）_T（“”），（_bstr_t）_T（“”），adConnectUnspecified）；

　　//end---------------Oracle 标准安全级别

　　//begin---------------Oracle 微软格式

　　// connStr=“Provider=MSDAORA.1;User ID=njcrm;Password=crmdbo;Data Source=192.168.0.24;Persist Security

　　Info=False”;

　　// m_pConnection->Open（_bstr_t（connStr），（_bstr_t）_T（“”），（_bstr_t）_T（“”），adConnectUnspecified）；

　　//end---------------Oracle 微软格式

　　//begin---------------Oracle 微软格式 变量

　　connStr=“Provider=OraOLEDB.Oracle;Persist Security Info=False;Data Source=”+m_server; m_pConnection->Open（_bstr_t（connStr），（_bstr_t）m_uid,（_bstr_t）m_pwd,adConnectUnspecified）；　　//end---------------Oracle 微软格式 变量

　　//begin---------------Oracle 信任连接1

　　// connStr=“Provider=MSDAORA.1;User ID=/;Password=;Data Source=192.168.0.24;Persist Security

　　Info=False”;

　　// m_pConnection->Open（_bstr_t（connStr），（_bstr_t）_T（“”），（_bstr_t）_T（“”），adConnectUnspecified）；

　　//end---------------Oracle 信任连接1

　　//begin---------------Oracle 信任连接2

　　// connStr=“Provider=MSDAORA.1;OSAuthent=1;Data Source=192.168.0.24;Persist Security Info=False”;

　　// m_pConnection->Open（_bstr_t（connStr），（_bstr_t）m_uid,（_bstr_t）m_pwd,adConnectUnspecified）；

　　//end---------------Oracle 信任连接2

　　//begin---------------SQLServer ODBC配置数据源

　　// connStr=“DSN=new_kh_wh”;

　　// m_pConnection->Open（_bstr_t（connStr），（_bstr_t）_T（“sa”），（_bstr_t）_T（“”），adConnectUnspecified）；

　　//end---------------SQLServer ODBC配置数据源

　　//begin---------------SQLServer

　　// connStr=“driver={SQL Server};Server=192.168.0.24;DATABASE=new_kh_bb;Uid=sa;Pwd=;”;

　　// m_pConnection->Open（_bstr_t（connStr），（_bstr_t）_T（“”），（_bstr_t）_T（“”），adConnectUnspecified）；

　　//end---------------SQLServer

　　retFt= true;

　　}

　　}

　　catch（_com_error e）///捕捉异常

　　{

　　CString errormessage;

　　errormessage.Format（“连接数据库失败！\r\n错误信息：%s”,e.ErrorMessage（））；

　　AfxMessageBox（errormessage）；///显示错误信息

　　retFt= false;

　　}

　　return retFt;

　　}