vc 用ado访问Oracle数据库的代码示例

简介:
#pragma once
 
class  CDBOp 
{
public :
     bool  ReConnect();
     bool  CloseConnect();
     bool  OpenConnect(CString hostName, CString dBName, CString userName, CString password);
     bool  GetItemData(CString itemID, float  &price, CString &descript);  //取存储过程数据,这里只是举例说明
     CString GetErrorMsg();
     CDBOp();
     virtual  ~CDBOp();
private :
     _ConnectionPtr m_pConnection;  //连接对象
     _RecordsetPtr m_pRecordset;     //记录集对象
     bool    m_bConnectSuccess;     //连接是否成功
     CString   m_strConnString;      //数据库连接字符串
     CString   m_strErrMsg;           //保存错误信息
};
 
 
 
 
#include "StdAfx.h"
#include "DBOp.h"
 
//类实现
 
 
CDBOp::CDBOp():m_bConnectSuccess( false )
{
     ::CoInitialize(NULL);
     m_pConnection.CreateInstance( "ADODB.Connection" );
     m_pConnection->ConnectionTimeout=30;
     m_pRecordset.CreateInstance( "ADODB.Recordset" );
}
CDBOp::~CDBOp()
{
     //::CoUninitialize();
     CloseConnect();
}
//打开连接(数据库类型,主机名,数据库名,登陆名,密码)
//数据库类型: 0 为Sql server, 1为 Oracle
bool  CDBOp::OpenConnect(
                         CString hostName,
                         CString dBName,
                         CString userName,
                         CString password)       
{
     CString strConn;
 
     //MSDAORA or OraOLEDB.Oracle.1
     strConn = "Provider=OraOLEDB.Oracle.1" ;
     strConn+= ";Persist Security Info=true" ;
     strConn+= ";User ID=" ;
     strConn+= userName;
     strConn+= ";Password=" ;
     strConn+= password;
     strConn+= ";Data Source=(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)" ;
     strConn+= "(HOST=" ;
     strConn+= hostName;
     strConn+= ")(PORT=1521))(CONNECT_DATA=" ;
     strConn+= "(SERVICE_NAME=" ;
     strConn+= dBName;
     strConn+= ")))" ;
 
 
     if  (strConn.IsEmpty())
     {
         m_strErrMsg= "The connect string is null." ;
         return  false ;
     }
     CloseConnect();
     m_strConnString =strConn;
 
     return  ReConnect();
}
//再次连接
bool  CDBOp::ReConnect()
{
     m_strErrMsg=_T( "" );
     m_bConnectSuccess= false ;
     HRESULT  hr;
     try
     {
         hr = m_pConnection->Open(_bstr_t(m_strConnString), "" , "" , adModeUnknown);
         if  (SUCCEEDED(hr))
             m_bConnectSuccess= true
     }
     catch (_com_error e)
    
         m_strErrMsg.Format(_T( "Connect database failure!\r\n\r\n message error:%s\r\n\r\n The connect string:%s" ),e.ErrorMessage(),m_strConnString);
     }
     return  m_bConnectSuccess;
}
//关闭链接
bool  CDBOp::CloseConnect()
{
     if  (m_bConnectSuccess)
     {
         if  (m_pConnection->State==1)
             m_pConnection->Close();
         m_bConnectSuccess = false ;
     }
     return  true ;
}
//取得错误信息
CString CDBOp::GetErrorMsg()
{
     return  m_strErrMsg;
}
 
bool  CDBOp::GetItemData(CString itemID, float  &price, CString &descript)
{
     _CommandPtr   pCommand = NULL;
     pCommand.CreateInstance( "ADODB.Command" );
#ifdef   _DEBUG  
     if    (pCommand   ==   NULL)  
     {  
         AfxMessageBox(_T( "Command Created fail! Please confirm whether initialize COM." ));  
     }  
#endif  
     ASSERT(pCommand   !=   NULL); 
     try  
     {  
         if  (m_bConnectSuccess== false )
         {
             if  (ReConnect()== false )
                 return  false ;
         }
         //输入参数   itemID   
         _ParameterPtr   pParamItemID;  
         pParamItemID.CreateInstance( "ADODB.Parameter" );  
         pParamItemID->Name= "ItemID" ;   //所用存储过程参数名称  
         pParamItemID->Type=adChar;    //参数类型  
         pParamItemID->Size=10;     //参数大小  
         pParamItemID->Direction=adParamInput;  //表明是输入参数  
         pParamItemID->Value=_variant_t(itemID);  
         pCommand->Parameters->Append(pParamItemID);   
 
 
         //输出参数   price   
         _ParameterPtr   pParamPrice;      
         pParamPrice.CreateInstance( "ADODB.Parameter" );  
         pParamPrice->Name= "Price" ;    //参数名称  
         pParamPrice->Type=adNumeric;    //参数类型  
         pParamPrice->Size=9;      //参数大小
         pParamPrice->Precision =9;
         pParamPrice->NumericScale =2; 
         pParamPrice->Direction=adParamOutput;  //声明是输出参数  
         pCommand->Parameters->Append(pParamPrice); 
 
         //输出参数   Descript   
         _ParameterPtr   pParamDescript;      
         pParamDescript.CreateInstance( "ADODB.Parameter" );  
         pParamDescript->Name= "Descript" ;   //参数名称  
         pParamDescript->Type=adVarChar;    //参数类型  
         pParamDescript->Size=160;     //参数大小
         pParamDescript->Direction=adParamOutput; //声明是输出参数  
         pCommand->Parameters->Append(pParamDescript); 
         //执行存储过程  
         pCommand->ActiveConnection=m_pConnection;  
         pCommand->CommandText= "spItemInfo" ;   //存储过程名称  
         pCommand->CommandType=adCmdStoredProc;  //表示为存储过程adCmdStoredProc  
         pCommand->Execute(NULL,   NULL,   adCmdStoredProc);  
 
 
         price=( float )(pParamPrice->Value);
         descript = ( char *)_bstr_t(pParamDescript->Value); 
         return  true ;
     }
     catch (_com_error   e)  
     {        
         m_strErrMsg.Format(_T( "Error:GetItemData. Reason:%s\n file: %s; line: %d\n" ), e.ErrorMessage(), __FILE__, __LINE__);      
         return  false ;
     }  
 
}

  转自http://www.cnblogs.com/finema/archive/2008/08/22/1273478.html

相关文章
|
8天前
|
SQL Oracle 关系型数据库
【Oracle】玩转Oracle数据库(一):装上去,飞起来!
【Oracle】玩转Oracle数据库(一):装上去,飞起来!
45 7
|
17天前
|
存储 NoSQL Java
Java数据库编程指南:实现高效数据存储与访问
【4月更文挑战第2天】Java开发者必须掌握数据库编程,尤其是JDBC,它是连接数据库的标准接口。使用Spring JDBC或JPA能简化操作。选择合适的JDBC驱动,如MySQL Connector/J,对性能至关重要。最佳实践包括事务管理、防SQL注入、优化索引和数据库设计。NoSQL数据库如MongoDB也日益重要,Java有对应的驱动支持。理解这些概念和技术是构建高效数据库应用的基础。
Java数据库编程指南:实现高效数据存储与访问
|
25天前
|
Oracle 关系型数据库 数据库
Oracle数据库基本概念理解(3)
Oracle数据库基本概念理解(3)
18 2
|
8天前
|
SQL Oracle 关系型数据库
【Oracle】玩转Oracle数据库(七):RMAN恢复管理器
【Oracle】玩转Oracle数据库(七):RMAN恢复管理器
35 5
|
25天前
|
Oracle 关系型数据库 数据库
Oracle数据库基本概念理解(2)
Oracle数据库基本概念理解(2)
13 1
|
3天前
|
SQL 缓存 Java
Java数据库连接池:优化数据库访问性能
【4月更文挑战第16天】本文探讨了Java数据库连接池的重要性和优势,它能减少延迟、提高效率并增强系统的可伸缩性和稳定性。通过选择如Apache DBCP、C3P0或HikariCP等连接池技术,并进行正确配置和集成,开发者可以优化数据库访问性能。此外,批处理、缓存、索引优化和SQL调整也是提升性能的有效手段。掌握数据库连接池的使用是优化Java企业级应用的关键。
|
8天前
|
存储 SQL Oracle
【Oracle】玩转Oracle数据库(二):体系结构、存储结构与各类参数
【Oracle】玩转Oracle数据库(二):体系结构、存储结构与各类参数
32 7
|
16天前
|
SQL 数据可视化 关系型数据库
轻松入门MySQL:深入探究MySQL的ER模型,数据库设计的利器与挑战(22)
轻松入门MySQL:深入探究MySQL的ER模型,数据库设计的利器与挑战(22)
|
16天前
|
存储 关系型数据库 MySQL
轻松入门MySQL:数据库设计之范式规范,优化企业管理系统效率(21)
轻松入门MySQL:数据库设计之范式规范,优化企业管理系统效率(21)
|
16天前
|
关系型数据库 MySQL 数据库
轻松入门MySQL:精准查询,巧用WHERE与HAVING,数据库查询如虎添翼(7)
轻松入门MySQL:精准查询,巧用WHERE与HAVING,数据库查询如虎添翼(7)