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

目录
打赏
0
0
0
0
265
分享
相关文章
崖山异构数据库迁移利器YMP初体验-Oracle迁移YashanDB
文章是作者小草对崖山异构数据库迁移利器 YMP 的初体验分享,包括背景、YMP 简介、体验环境说明、YMP 部署(含安装前准备、安装、卸载、启动与停止)、数据迁移及遇到的问题与解决过程。重点介绍了 YMP 功能、部署的诸多细节和数据迁移流程,还提到了安装和迁移中遇到的问题及解决办法。
从ORACLE源进行批量数据迁移到GBase8a参考示例
从ORACLE源进行批量数据迁移到GBase8a参考示例
从ORACLE源进行批量数据迁移到GBase8a参考示例
数据库数据恢复—ORACLE常见故障的数据恢复方案
Oracle数据库常见故障表现: 1、ORACLE数据库无法启动或无法正常工作。 2、ORACLE ASM存储破坏。 3、ORACLE数据文件丢失。 4、ORACLE数据文件部分损坏。 5、ORACLE DUMP文件损坏。
187 11
Oracle数据恢复—Oracle数据库文件有坏快损坏的数据恢复案例
一台Oracle数据库打开报错,报错信息: “system01.dbf需要更多的恢复来保持一致性,数据库无法打开”。管理员联系我们数据恢复中心寻求帮助,并提供了Oracle_Home目录的所有文件。用户方要求恢复zxfg用户下的数据。 由于数据库没有备份,无法通过备份去恢复数据库。
服务器数据恢复—华为S5300存储Oracle数据库恢复案例
服务器存储数据恢复环境: 华为S5300存储中有12块FC硬盘,其中11块硬盘作为数据盘组建了一组RAID5阵列,剩下的1块硬盘作为热备盘使用。基于RAID的LUN分配给linux操作系统使用,存放的数据主要是Oracle数据库。 服务器存储故障: RAID5阵列中1块硬盘出现故障离线,热备盘自动激活开始同步数据,在同步数据的过程中又一块硬盘离线,RAID5阵列瘫痪,上层LUN无法使用。
Oracle数据库的应用场景有哪些?
【10月更文挑战第15天】Oracle数据库的应用场景有哪些?
381 64
oracle数据恢复—Oracle数据库文件大小变为0kb的数据恢复案例
存储掉盘超过上限,lun无法识别。管理员重组存储的位图信息并导出lun,发现linux操作系统上部署的oracle数据库中有上百个数据文件的大小变为0kb。数据库的大小缩水了80%以上。 取出&并分析oracle数据库的控制文件。重组存储位图信息,重新导出控制文件中记录的数据文件,发现这些文件的大小依然为0kb。
Oracle数据库优化方法
【10月更文挑战第25天】Oracle数据库优化方法
85 7
oracle数据库技巧
【10月更文挑战第25天】oracle数据库技巧
53 6
Oracle数据库优化策略
【10月更文挑战第25天】Oracle数据库优化策略
61 5

热门文章

最新文章

推荐镜像

更多
AI助理

你好,我是AI助理

可以解答问题、推荐解决方案等