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

相关文章
|
27天前
|
SQL Oracle 关系型数据库
Oracle数据库优化方法
【10月更文挑战第25天】Oracle数据库优化方法
35 7
|
27天前
|
Oracle 关系型数据库 数据库
oracle数据库技巧
【10月更文挑战第25天】oracle数据库技巧
26 6
|
27天前
|
存储 Oracle 关系型数据库
Oracle数据库优化策略
【10月更文挑战第25天】Oracle数据库优化策略
21 5
|
2月前
|
存储 Oracle 关系型数据库
数据库数据恢复—Oracle ASM磁盘组故障数据恢复案例
Oracle数据库数据恢复环境&故障: Oracle ASM磁盘组由4块磁盘组成。Oracle ASM磁盘组掉线 ,ASM实例不能mount。 Oracle数据库故障分析&恢复方案: 数据库数据恢复工程师对组成ASM磁盘组的磁盘进行分析。对ASM元数据进行分析发现ASM存储元数据损坏,导致磁盘组无法挂载。
|
2月前
|
存储 Oracle 关系型数据库
Oracle数据库的应用场景有哪些?
【10月更文挑战第15天】Oracle数据库的应用场景有哪些?
173 64
|
4月前
|
存储 自然语言处理 Oracle
Oracle数据库字符集概述及修改方式
【8月更文挑战第15天】Oracle 数据库字符集定义了数据的编码方案,决定可存储的字符类型及其表示方式。主要作用包括数据存储、检索及跨系统传输时的正确表示。常见字符集如 AL32UTF8 支持多语言,而 WE8MSWIN1252 主用于西欧语言。修改字符集风险高,可能导致数据问题,需事先备份并评估兼容性。可通过 ALTER DATABASE 语句直接修改或采用导出-导入数据的方式进行。完成后应验证数据完整性。此操作复杂,须谨慎处理。
|
4月前
|
数据采集 Oracle 关系型数据库
实时计算 Flink版产品使用问题之怎么实现从Oracle数据库读取多个表并将数据写入到Iceberg表
实时计算Flink版作为一种强大的流处理和批处理统一的计算框架,广泛应用于各种需要实时数据处理和分析的场景。实时计算Flink版通常结合SQL接口、DataStream API、以及与上下游数据源和存储系统的丰富连接器,提供了一套全面的解决方案,以应对各种实时计算需求。其低延迟、高吞吐、容错性强的特点,使其成为众多企业和组织实时数据处理首选的技术平台。以下是实时计算Flink版的一些典型使用合集。
|
3月前
|
Oracle 关系型数据库 数据库
数据库数据恢复—Oracle数据库文件出现坏块的数据恢复案例
打开oracle数据库报错“system01.dbf需要更多的恢复来保持一致性,数据库无法打开”。 数据库没有备份,无法通过备份去恢复数据库。用户方联系北亚企安数据恢复中心并提供Oracle_Home目录中的所有文件,急需恢复zxfg用户下的数据。 出现“system01.dbf需要更多的恢复来保持一致性”这个报错的原因可能是控制文件损坏、数据文件损坏,数据文件与控制文件的SCN不一致等。数据库恢复工程师对数据库文件进一步检测、分析后,发现sysaux01.dbf文件损坏,有坏块。 修复并启动数据库后仍然有许多查询报错,export和data pump工具使用报错。从数据库层面无法修复数据库。
数据库数据恢复—Oracle数据库文件出现坏块的数据恢复案例
|
2月前
|
SQL 存储 Oracle
Oracle数据库SQL语句详解与应用指南
在数字化时代,数据库已成为各类企业和组织不可或缺的核心组件。Oracle数据库作为业界领先的数据库管理系统之一,广泛应用于各种业务场景。掌握Oracle数据库的SQL语句是数据库管理员、开发人员及运维人员的基本技能。本文将详细介绍Oracle数据库SQL语句的基本概念、语法、应用及最佳实践。一、Or
60 3
|
3月前
|
Oracle 关系型数据库 数据库
Oracle数据恢复—异常断电导致Oracle数据库数据丢失的数据恢复案例
Oracle数据库故障: 机房异常断电后,Oracle数据库启库报错:“system01.dbf需要更多的恢复来保持一致性,数据库无法打开”。数据库没有备份,归档日志不连续。用户方提供了Oracle数据库的在线文件,需要恢复zxfg用户的数据。 Oracle数据库恢复方案: 检测数据库故障;尝试挂起并修复数据库;解析数据文件。

推荐镜像

更多
下一篇
无影云桌面