2012軟考程序員輔導(dǎo):vc中用ado連接oracle的方法

在利用ado連接數(shù)據(jù)庫之前，需要做一些準備
    1.用#import指令引入ADO類型庫
    我們在stdafx.h中加入如下語句：
    #import “c:program filescommon filessystemadomsado15.dll” no_namespace rename（“EOF”,“adoEOF”） .
    這一語句有何作用呢？其最終作用同我們熟悉的#i nclude類似，編譯的時候系統(tǒng)會為我們生成msado15.tlh,ado15.tli兩個C++頭文件來定義ADO庫。
    幾點說明：
    （1） 您的環(huán)境中msado15.dll不一定在這個目錄下，請按實際情況修改
    （2） 在編譯的時候肯能會出現(xiàn)如下警告，對此微軟在MSDN中作了說明，并建議我們不要理會這個警告。msado15.tlh（405） : warning C4146: unary minus operator applied to unsigned type, result still unsigned
    2、初始化OLE/COM庫環(huán)境
    必須注意的是，ADO庫是一組COM動態(tài)庫，這意味應(yīng)用程序在調(diào)用ADO前，必須初始化OLE/COM庫環(huán)境。在MFC應(yīng)用程序里，一個比較好的方法是在應(yīng)用程序主類的InitInstance成員函數(shù)里初始化OLE/COM庫環(huán)境。
    BOOL CMyAdoTestApp::InitInstance（）
    {
    if（！AfxOleInit（））//這就是初始化COM庫
    {
    AfxMessageBox（“OLE初始化出錯！”）；
    return FALSE;
    }
    }　　3.ADO庫包含三個基本接口：_ConnectionPtr接口、_CommandPtr接口和_RecordsetPtr接口。與數(shù)據(jù)庫的連接就是用_ConnectionPtr接口，它的連接字符串可以是自己直接寫，也可以指向一個ODBC DSN.以下的例子都測試通過，順便寫了SQL Server的例子。
    BOOL CTestconDlg::ConnectDatabase（）
    {
    CString m_server,m_data,m_uid,m_pwd;
    m_server=“192.168.0.24”;//服務(wù)器ip或名稱
    m_data=“crmdb”;//ODBC數(shù)據(jù)源
    m_uid=“njcrm”;//用戶名
    m_pwd=“crmdbo”;//密碼
    BOOL retFt=false;
    HRESULT hr;
    try
    {
    hr = m_pConnection.CreateInstance（“ADODB.Connection”）；///創(chuàng)建Connection對象
    if（SUCCEEDED（hr））
    {
    _bstr_t connStr;
    m_pConnection->CursorLocation=adUseClient;
    //begin---------------Oracle ODBC 配置數(shù)據(jù)源　　//控制面板->管理工具->數(shù)據(jù)源（ODBC）->系統(tǒng)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 配置數(shù)據(jù)源
    //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配置數(shù)據(jù)源
    // connStr=“DSN=new_kh_wh”;
    // m_pConnection->Open（_bstr_t（connStr），（_bstr_t）_T（“sa”），（_bstr_t）_T（“”），adConnectUnspecified）；
    //end---------------SQLServer ODBC配置數(shù)據(jù)源
    //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（“連接數(shù)據(jù)庫失??！\r\n錯誤信息：%s”,e.ErrorMessage（））；
    AfxMessageBox（errormessage）；///顯示錯誤信息
    retFt= false;
    }
    return retFt;
    }