Excel VBA 连接各种数据库(二) VBA连接Oracle数据库

您所在的位置:网站首页 oracle连接失败 Excel VBA 连接各种数据库(二) VBA连接Oracle数据库

Excel VBA 连接各种数据库(二) VBA连接Oracle数据库

2023-08-30 04:06| 来源: 网络整理| 查看: 265

  特别提醒:本人看博客园的消息还是比较少,如果对本文有疑问,可以发邮件到 [email protected]   我看邮箱还是比较勤快的 :)

 

(2019.08.02更新)本文内容在Windows10 企业版64bit下测试通过

 本文主要内容:

Oracle环境配置 ODBC驱动设置、第三方驱动下载 VBA连接Oracle连接方法 Oracle10g官方免账号下载地址 (2021年09月02日更新)关于连接数据库的问题

 

系统环境:

Windows 7 64bit Excel 2016 64bit Oracle_win64_11gR2_client完整客户端(64bit) 1. VBA连接Oracle前的环境配置

如果想连接本地数据库,必须先安装Oracle服务器端。

我这里使用的是内网其他电脑上的Oracle数据库,这里只安装Oracle客户端就可以。

1.1 安装Oracle完整版客户端

网上应该有各种关于VBA连接Oracle的帖子了,不过之前我按他们说的尝试,都无法连接成功,可能是操作系统版本的问题。以下介绍我自己尝试成功的两种办法:

从Oracle官网的数据库下载列表中,选择对应自己操作系统版本的完整版客户端下载,需要注册Oracle网站的用户(这里我使用的是11G64bit版本)

下载好以后,解压,然后点击 client\setup.exe 安装程序。在步骤1/6中,选择“管理员”,在步骤4/7中,可能会提示你Environment variable:"PATH" 项目  状态失败,不用管,选择忽略即可。

安装完毕后进入安装目录的\Administrator\product\11.2.0\client_1\network\admin\tnsnames.ora中设置服务,也可以通过 Net Manager工具设置

1.2 使用连接工具测试连接

数据库配置好之后,使用PLSQL Developer 或者Navicat等连接工具,测试一下数据库是否可以正常登陆,可以正常使用的话,再进行下面这一步。

如果无法正常登陆,请返回去重新检查连接服务设置。

PS:数据连接工具推荐使用Navicat,可以同时连接不同的数据库,非常方便。

我常用的是11.0.16版本   下载地址   提取码: s5kt

1.3 配置ODBC驱动

进入“控制面板”-》“管理工具”-》“数据源”。点击“添加”,选择和1.1中对应版本的Oracle ODBC驱动(我这里是11.02.00.01),点击“完成”,然后会弹出设置界面如下:

DataSourceName: 该ODBC连接的名称

TNS Service Name:在1.1中你设置的连接名称,如果为空,则说明客户端设置出错,应重新检查是否正确设置了tnsname.ora

User ID:登录数据库的用户名

填写完以上三个选项后,可以使用Test Connection测试一下连接是否正常,测试正常的话进入下一步。

特别提醒:

可能你的本地有其他依赖Oracle的软件,如果产生冲突,可以同时安装32bit和64bit的客户端解决。

我这里的情况是本地软件必须使用32bit的,那么我就先安装了64bit的完整客户端,然后安装了32bit的简化版客户端,这样就互不影响了

友情提醒:

如果你安装的客户端位数和操作系统不同,是没法正常配置ODBC数据源的。如果你不想装两个版本的客户端,也可以使用第三方驱动。

第三方驱动我测试成功的是 devart odbc driver for oracle 不过这玩意要149刀,不花钱的话只能试用30天。

 

1.4 配置VBE环境

在Excel这边,需要先在VBE中启动数据库连接支持。按下Alt+F11打开VBE,在菜单栏选择“工具”-“引用”,在弹出的引用窗口中,找到"Microsoft ActiveX Data Objects 6.1 Library"和"Microsoft ActiveX Data Objects Recordset 2.8 Library",把前面的框勾选上,点击确定即可。 (如果不是这两个版本,则选择一个版本号最高的勾选即可)

  2. VBA连接Oracle

在按照上述步骤配置了环境支持后,就可以在VBA中使用代码连接Oracle了。

首先需定义连接对象:

Dim conn as ADODB.Connection Set conn = new ADODB.Connection

这里也可以简写为:

Dim conn As New ADODB.Connection

连接数据库

strConn = "Driver={Oracle in OraClient11g_home1};Dbq=TNS服务名;Uid=数据库登录账户;Pwd=数据库登录密码;" conn.Open strConn '打开数据库

连接字符串ConnectionString中的各个参数应该很明了,就不一一解释了。注意这里的driver 设置中必须正确填写驱动的版本号,在ODBC界面可以明显看到版本号及名称。

上一段代码也可以简写为

conn.Open "Driver={Oracle in OraClient11g_home1};Dbq=TNS服务名;Uid=数据库登录账户;Pwd=数据库登录密码;" '打开数据库

再次提醒,Driver变量的值是必须要和数据源中添加的新数据源一致的,否则会提示找不到数据源。

至此,数据库连接成功!

可以使用连接对象的State属性和Version属性查看数据库状态和版本(检查是否连接成功)

MsgBox("连接成功!" & vbCrLf & "数据库状态:" & conn.State & vbCrLf & "数据库版本:" & conn.Version)

最后关闭数据库连接

conn.Close Set conn = Nothing

整个过程的完整代码如下:

Sub 连接Oracle数据库()   '1. 引用ADO工具   '2. 创建连接对象   Dim conn As New ADODB.Connection   '3. 建立数据库的连接   strConn ="Driver={Oracle in OraClient11g_home1};Dbq=TNS服务名;Uid=数据库登录账户;Pwd=数据库登录密码;"   conn.Open strConn   MsgBox ("连接成功!" & vbCrLf & "数据库状态:" & conn.State & vbCrLf & "数据库版本:" & conn.Version)   conn.Close   Set conn = Nothing End Sub 

至此,Oracle的连接方法就结束了,至于使用VBA操作数据库,可以参考我的上一篇文章

 Excel VBA 连接各种数据库(一) VBA连接MySQL数据库

 (2020年1月10日更新)——————————————————

如果出现无法连接数据库的情况,很有可能是因为没有配置ODBC数据源,VBA要求每个数据库都需要单独配置一个数据源。

(2021年9月02日更新)——————————————————

有时候可能出现报错信息:  ORA-01013: 用户请求取消当前的操作

这可能是由于数据量太大,查询数据库时间过长,连接被关闭导致,网上提到的解决方法也不止一种,这里写一个VBA代码里的解决方法

只需要在连接串内增加一个参数即可:QTO=F; 表示放开对连接时间的限制,加上以后的连接串为:

strConn ="Driver={Oracle in OraClient11g_home1};Dbq=TNS服务名;Uid=数据库登录账户;Pwd=数据库登录密码;QTO=F;"

我自己遇到问题的时候,一个查询花了大概130秒,不加就一直报错,加上这个参数后正常。

参考文献:ORA-01013:用户请求取消当前的操作 (csdn博客)

 

3. Oracle10g下载资源分享

 如果要连接Oracle,需要安装完整版的客户端

从官网下载这些软件,你需要一个OTN免费帐号,不过如果通过迅雷进行下载,就不用登陆OTN了:(直接复制下载链接即可)

Oracle Database 10g Release 2 (10.2.0.1.0) Enterprise/Standard Edition for Microsoft Windows (32-bit)

http://download.oracle.com/otn/nt/oracle10g/10201/10201_database_win32.ziphttp://download.oracle.com/otn/nt/oracle10g/10201/10201_client_win32.ziphttp://download.oracle.com/otn/nt/oracle10g/10201/10201_clusterware_win32.ziphttp://download.oracle.com/otn/nt/oracle10g/10201/10201_gateways_win32.zip

Oracle Database 10g Release 2 (10.2.0.1.0) Enterprise/Standard Edition for Microsoft Windows (x64)

http://download.oracle.com/otn/nt/oracle10g/10201/102010_win64_x64_database.ziphttp://download.oracle.com/otn/nt/oracle10g/10201/102010_win64_x64_client.ziphttp://download.oracle.com/otn/nt/oracle10g/10201/102010_win64_x64_clusterware.zip

Oracle Database 10g Release 2 (10.2.0.1.0) Enterprise/Standard Edition for Linux x86

http://download.oracle.com/otn/linux/oracle10g/10201/10201_database_linux32.ziphttp://download.oracle.com/otn/linux/oracle10g/10201/10201_client_linux32.ziphttp://download.oracle.com/otn/linux/oracle10g/10201/10201_gateways_linux32.zip

Oracle Database 10g Release 2 (10.2.0.1.0) Enterprise/Standard Edition for Linux x86-64

http://download.oracle.com/otn/linux/oracle10g/10201/10201_database_linux_x86_64.cpio.gzhttp://download.oracle.com/otn/linux/oracle10g/10201/10201_client_linux_x86_64.cpio.gzhttp://download.oracle.com/otn/linux/oracle10g/10201/10201_clusterware_linux_x86_64.cpio.gzhttp://download.oracle.com/otn/linux/oracle10g/10201/10201_gateways_linux_x86_64.cpio.gz

Oracle Database 10g Release 2 (10.2.0.1.0) Enterprise/Standard Edition for AIX5L

http://download.oracle.com/otn/aix/oracle10g/10201/10gr2_aix5l64_database.cpio.gzhttp://download.oracle.com/otn/aix/oracle10g/10201/10gr2_aix5l64_client.cpio.gzhttp://download.oracle.com/otn/aix/oracle10g/10201/10gr2_aix5l64_cluster.cpio.gzhttp://download.oracle.com/otn/aix/oracle10g/10201/10gr2_aix5l64_gateways.cpio.gz

Oracle Database 10g Release 2 (10.2.0.2) Enterprise/Standard Edition for Solaris Operating System (x86)

http://download.oracle.com/otn/solaris/oracle10g/10202/10202_database_solx86.ziphttp://download.oracle.com/otn/solaris/oracle10g/10202/10202_client_solx86.ziphttp://download.oracle.com/otn/solaris/oracle10g/10202/10202_clusterware_solx86.zip

Oracle Database 10g Release 2 (10.2.0.1.0) Enterprise/Standard Edition for Solaris Operating System (x86-64)

http://download.oracle.com/otn/solaris/oracle10g/10201/x8664/10201_database_solx86_64.ziphttp://download.oracle.com/otn/solaris/oracle10g/10201/x8664/10201_client_solx86_64.ziphttp://download.oracle.com/otn/solaris/oracle10g/10201/x8664/10201_clusterware_solx86_64.zip

特别提醒:本人看博客园的消息还是比较少,如果对本文有疑问,可以发邮件到 [email protected]   我看邮箱还是比较勤快的 :)

 



【本文地址】


今日新闻


推荐新闻


CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3