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

相关文章
|
1天前
|
安全 算法 Java
数据库信息/密码加盐加密 —— Java代码手写+集成两种方式,手把手教学!保证能用!
本文提供了在数据库中对密码等敏感信息进行加盐加密的详细教程,包括手写MD5加密算法和使用Spring Security的BCryptPasswordEncoder进行加密,并强调了使用BCryptPasswordEncoder时需要注意的Spring Security配置问题。
13 0
数据库信息/密码加盐加密 —— Java代码手写+集成两种方式,手把手教学!保证能用!
|
1月前
|
SQL NoSQL Java
彻底革新你的数据库操作体验!Micronaut数据访问技巧让你瞬间爱上代码编写!
【9月更文挑战第10天】Java开发者们一直在寻找简化应用程序与数据库交互的方法。Micronaut作为一个现代框架,提供了多种工具和特性来提升数据访问效率。本文介绍如何使用Micronaut简化数据库操作,并提供具体示例代码。Micronaut支持JPA/Hibernate、SQL及NoSQL(如MongoDB),简化配置并无缝集成。通过定义带有`@Repository`注解的接口,可以实现Spring Data风格的命名查询。
50 6
|
1月前
|
前端开发 数据库
数据库表设计生成代码
BizWorks ToolKit插件集成Mybatis-Plus代码生成工具,支持从数据库表生成代码,便于研发过程中数据模型变更后的代码同步。本文介绍批量生成代码的方法、配置说明及项目示例。配置文件`*.mp.yaml`用于描述生成行为,可放置于`src/main/resource/bizworks/mybatis-plus/`路径下。配置包括数据库信息、输出目录及包名等。通过IDEA右键菜单即可启动代码生成。具体配置和示例详见文档。
26 2
|
1月前
|
前端开发 数据库 开发者
数据模型(数据库表设计)生成代码
BizWorks ToolKit 插件集成 Mybatis-Plus 代码生成工具,支持从数据库表批量生成代码,简化开发流程。本文详细介绍配置方法及项目示例,包括配置文件格式、生成选项及具体操作步骤,帮助开发者快速实现代码同步更新。配置文件 `.mp.yaml` 支持自定义输出目录、生成组件等,适用于多种项目结构。
32 0
|
1月前
|
关系型数据库 数据库 网络虚拟化
Docker环境下重启PostgreSQL数据库服务的全面指南与代码示例
由于时间和空间限制,我将在后续的回答中分别涉及到“Python中采用lasso、SCAD、LARS技术分析棒球运动员薪资的案例集锦”以及“Docker环境下重启PostgreSQL数据库服务的全面指南与代码示例”。如果你有任何一个问题的优先顺序或需要立即回答的,请告知。
49 0
|
1月前
|
SQL 安全 数据库
基于SQL Server事务日志的数据库恢复技术及实战代码详解
基于事务日志的数据库恢复技术是SQL Server中一个非常强大的功能,它能够帮助数据库管理员在数据丢失或损坏的情况下,有效地恢复数据。通过定期备份数据库和事务日志,并在需要时按照正确的步骤恢复,可以最大限度地减少数据丢失的风险。需要注意的是,恢复数据是一个需要谨慎操作的过程,建议在执行恢复操作之前,详细了解相关的操作步骤和注意事项,以确保数据的安全和完整。
65 0
|
2月前
|
JSON 数据格式 Java
化繁为简的魔法:Struts 2 与 JSON 联手打造超流畅数据交换体验,让应用飞起来!
【8月更文挑战第31天】在现代 Web 开发中,JSON 成为数据交换的主流格式,以其轻量、易读和易解析的特点受到青睐。Struts 2 内置对 JSON 的支持,结合 Jackson 库可便捷实现数据传输。本文通过具体示例展示了如何在 Struts 2 中进行 JSON 数据的序列化与反序列化,并结合 AJAX 技术提升 Web 应用的响应速度和用户体验。
81 0
|
2月前
|
开发者 前端开发 JavaScript
如何解锁Play Framework的模块化力量?揭秘构建未来Web应用的关键策略
【8月更文挑战第31天】在现代软件开发中,模块化设计对于构建可维护和可扩展的应用程序至关重要。Play Framework作为一个高性能Web应用框架,提供了强大的模块化支持,使开发者能够将应用分解为独立且可重用的模块。本文将探讨Play Framework中模块化设计的最佳实践,并通过示例代码展示如何创建模块、使用依赖注入管理模块依赖、模块化前端资源及测试模块,帮助开发者构建结构清晰、易于维护和扩展的应用程序。
30 0
|
2月前
|
数据库 Java 数据库连接
玩转Play Framework的秘密武器:Ebean ORM带你解锁高效数据库操作新姿势,让你的代码从此飞起来!
【8月更文挑战第31天】Play Framework 以其简洁的 API 和高效开发体验著称,Ebean ORM 则是其推荐的对象关系映射(ORM)工具之一。Ebean 可将 Java 对象轻松映射到数据库表,简化数据库交互。本文将指导你在 Play Framework 中使用 Ebean ORM 进行数据库操作,涵盖项目创建、依赖引入、数据库配置、模型定义及 CRUD 操作,并通过示例代码展示实现过程。通过这些步骤,你将学会如何利用 Ebean 的丰富功能,如事务管理、查询构建等,提升 Web 应用的数据库交互能力。
30 0
|
2月前
|
数据库 开发者
从EF6无缝切换到Entity Framework Core:一份详尽无遗的开发者实战攻略,带你领略数据库操作的全新境界,让代码优雅转身,性能与可维护性双丰收的秘密武器
【8月更文挑战第31天】本文通过详细的代码示例,介绍了如何将基于 EF6 的应用程序平滑迁移到 EF Core。从创建初始 EF6 项目并定义数据库上下文开始,逐步演示了如何使用 EF6 进行数据操作。随后,文章详细讲解了迁移到 EF Core 的步骤,包括配置 EF Core 数据库上下文、定义领域模型及数据操作等。通过具体示例,展示了 EF Core 的强大功能,帮助开发者构建高效且可扩展的数据访问层。
27 0

热门文章

最新文章

推荐镜像

更多