在VS環境下以ADO方式操作Oracle資料庫

來源:互聯網
上載者:User

利用ADO引擎方式訪問Oracle資料庫的實現方法:

定義資料庫標頭檔為CDBOperation.h

#pragma once 
#import "C:\Program Files\Common Files\System\ADO\msado15.dll" no_namespace rename("EOF","adoEOF"),rename("LockTypeEnum","AdoLockTypeEnum"),rename("DataTypeEnum","AdoDataTypeEnum"),\
rename("FieldAttributeEnum","AdoFieldAttributeEnum"),rename("EditModeEnum","AdoEditModeEnum"),rename("RecordStatusEnum","AdoRecordStatusEnum"),rename("ParameterDirectionEnum","AdoParameterDirectionEnum")
class CDBOperation 

 public: 
  //初始化資料庫操作需要的對象 
  CDBOperation(void); 
  ~CDBOperation(void); 
 
  //串連至資料庫 
  bool ConnToDB(); 
 
  //資料庫操作函數 
  //查詢操作 刪除以及添加 
  _RecordsetPtr ExecuteWithResSQL(const char *); 
 
 private: 
  void PrintErrorInfo(_com_error &); 
 
 private: 
  //初始化資料庫連接、命令、記錄集 
  _ConnectionPtr CreateConnPtr(); 
  _CommandPtr CreateCommPtr(); 
  _RecordsetPtr CreateRecsetPtr(); 
 
 private: 
  //資料庫連接需要的串連、命令操作對象 
  _ConnectionPtr m_pConnection; 
  _CommandPtr m_pCommand; 
}; 

定義程式源檔案CDBOperation.cpp

#include "CDBOperation.h" 

CDBOperation::CDBOperation(void) 

    CoInitialize(NULL); 
    m_pConnection = CreateConnPtr(); 
    m_pCommand = CreateCommPtr(); 

CDBOperation::~CDBOperation(void) 

    m_pConnection->Close(); 

bool CDBOperation::ConnToDB() 

    if (NULL == m_pConnection) 
    { 
        printf("Failed to create connection\n"); 
        return false; 
    } 
    try 
    { 
  _bstr_t strConnect="Provider=OraOLEDB.Oracle;User ID=scott;Password=19900624;Persist Security Info=True;Data Source=\"(DESCRIPTION =(ADDRESS_LIST =(ADDRESS = (PROTOCOL = TCP)(HOST = 10.108.85.137)(PORT = 1521)) )(CONNECT_DATA = (SID = ORCL)(SERVER=DEDICATED)))\"";
    HRESULT hr=m_pConnection->Open(strConnect,"","",NULL);
        if (TRUE == FAILED(hr)) 
        { 
            return false; 
        } 
        m_pCommand->ActiveConnection = m_pConnection; 
        return true; 
    } 
    catch(_com_error &e) 
    { 
        PrintErrorInfo(e); 
        return false; 
    } 

_RecordsetPtr CDBOperation::ExecuteWithResSQL(const char *sql) 

    try 
    { 
        m_pCommand->CommandText = _bstr_t(sql); 
        _RecordsetPtr pRst = m_pCommand->Execute(NULL, NULL, adCmdText); 
        return pRst; 
    } 
    catch(_com_error &e) 
    { 
        PrintErrorInfo(e); 
        return NULL; 
    } 

void CDBOperation::PrintErrorInfo(_com_error &e) 

    printf("Error infomation are as follows\n"); 
    printf("ErrorNo: %d\nError Message:%s\nError Source:%s\nError Description:%s\n", e.Error(), e.ErrorMessage(), (LPCTSTR)e.Source(), (LPCTSTR)e.Description()); 

 
_ConnectionPtr CDBOperation::CreateConnPtr() 

    HRESULT hr; 
    _ConnectionPtr connPtr; 
    hr = connPtr.CreateInstance(__uuidof(Connection)); 
    if (FAILED(hr) == TRUE) 
    { 
        return NULL; 
    } 
    return connPtr; 

 
_CommandPtr CDBOperation::CreateCommPtr() 

    HRESULT hr; 
    _CommandPtr commPtr; 
    hr = commPtr.CreateInstance(__uuidof(Command)); 
    if (FAILED(hr) == TRUE) 
    { 
        return NULL; 
    } 
    return commPtr; 

 
_RecordsetPtr CDBOperation::CreateRecsetPtr() 

    HRESULT hr; 
    _RecordsetPtr recsetPtr; 
    hr = recsetPtr.CreateInstance(__uuidof(Recordset)); 
    if (FAILED(hr) ==TRUE) 
    { 
        return NULL; 
    } 
    return recsetPtr; 

  • 1
  • 2
  • 下一頁

相關文章

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.