Excel VBA 连接各种数据库（二） VBA连接Oracle数据库

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

本文主要内容：

Oracle环境配置
ODBC驱动设置、第三方驱动下载
VBA连接Oracle连接方法
Oracle10g官方免账号下载地址
（2020年1月10日更新）关于连接数据库的问题

系统环境：

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要求每个数据库都需要单独配置一个数据源。

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.zip
http://download.oracle.com/otn/nt/oracle10g/10201/10201_client_win32.zip
http://download.oracle.com/otn/nt/oracle10g/10201/10201_clusterware_win32.zip
http://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.zip
http://download.oracle.com/otn/nt/oracle10g/10201/102010_win64_x64_client.zip
http://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.zip
http://download.oracle.com/otn/linux/oracle10g/10201/10201_client_linux32.zip
http://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.gz
http://download.oracle.com/otn/linux/oracle10g/10201/10201_client_linux_x86_64.cpio.gz
http://download.oracle.com/otn/linux/oracle10g/10201/10201_clusterware_linux_x86_64.cpio.gz
http://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.gz
http://download.oracle.com/otn/aix/oracle10g/10201/10gr2_aix5l64_client.cpio.gz
http://download.oracle.com/otn/aix/oracle10g/10201/10gr2_aix5l64_cluster.cpio.gz
http://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.zip
http://download.oracle.com/otn/solaris/oracle10g/10202/10202_client_solx86.zip
http://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.zip
http://download.oracle.com/otn/solaris/oracle10g/10201/x8664/10201_client_solx86_64.zip
http://download.oracle.com/otn/solaris/oracle10g/10201/x8664/10201_clusterware_solx86_64.zip