利用DAO与ADO实现VBA与Access数据库的连接

大家好，今日继续讲解VBA与数据库的第4讲内容：VBA如何与数据库建立连接。我的讲解从简单入手，逐渐将进入较为复杂的阶段，之前的内容主要以了解范畴的知识较多，将逐渐过渡到实际的操作。这讲内容仍需要读者以了解为侧重，但相关的知识点还是需要有一个清晰的轮廓。

VBA可以访问的数据库类型有Microsoft access、dBase、Microsoft SQLServer、Oracle 等，这给VBA的利用范围得到扩展。我们的讲解主要是VBA与Access数据库的连接方式，这种连接是大多数的应用。

一、利用ODBC方式连接Access数据库

利用这种方式连接数据库，必须先注册数据源DSN，目前，Windows提供32位和64位ODBC驱动程序，但在Access中，使用ODBC API访问数据库需要大量的VBA函数原型声明，操作繁琐，因此很少使用。这里就不再多说了。

二 通过OLEDB方式连接access数据库

OLE DB是用于访问数据的Microsoft系统级别的编程接口。它是一个规范，定义了一组组件接口规范，封装了各种数据库管理系统服务，是ADO的基本技术和ADO.NET的数据源

set conn=Server.CreateObject("ADODB.Connection")

conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&<数据库名>&";Persist Security Info=False"

三 通过DAO方式连接Access数据库

DAO提供了一个访问数据库的对象模型，利用其中定义的一系列数据访问对象（如：Database、Recordset等），可以实现对数据库的各种操作,由于在创建数据库时系统并不自动引用DAO库，所以需要用户自行进行引用设置。具体设置步骤如下：

（1）在VBE工作环境中，选择"工具"菜单中的"引用"命令，打开"引用"对话框。

（2）在"可使用的引用"列表中勾选 "Microsoft DAO 3.6 Object Library" 如下图：

利用DAO 访问数据库 首先要创建对象变量，

Dim ws As Workspace

Dim db As Database

Dim rs As Recordset

Set ws = DBEngine.workspae(0) '打开默认工作区

Set db = ws.OpenDatabase("<数据库名>") ' 打开数据库

四 利用ADO方式连接Access数据库

ADO是基于组件的数据库编程接口。使用ADO可以方便地连接任何符合ODBC（开放式数据库连接）标准的数据库。ADO是DAO的后继产物。相比DAO，ADO扩展了DAO使用的层次对象模型，用较少的对象、更多的方法和事件来处理各种操作，简单易用，是当前数据库开发的主流技术。

1 引用ADO

（1）在VBE工作环境中，选择"工具"菜单中的"引用"命令，打开"引用"对话框。

（2）在"可使用的引用"列表中勾选 Microsoft ActiveX Data Object *.* Library,这里的*.*是指的时ADO的版本号,一般来说,应用程序或ActiveX控件都具有向下兼容性,所以我们尽可能选择比较新的版本.以确保程序在能识别旧版本Access的同时,也能识别较新版本的Access.

2.用CreateObject创建对象: Set Conn = CreateObject(ADODB.Connection)

创建了对象之后,下一步我们要做的就是打开数据库了.先看下面的代码,可以成功的打开数据库：

Set Conn = CreateObject(ADODB.Connection)

strPath = ThisWorkbook.Path & "\mydata.accdb"

Conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strPath

在之后的《VBA与数据库》的讲解中，主要利用的是ADO的连接，以后会逐渐的展开给大家慢慢的讲解。

数据库内容是VBA内的一块较为重要的部分，同时也是对于学习人员水平的一个提高，但是，如果我之前的内容没有弄懂的朋友，还是请先弄懂之前的内容，在《VBA代码解决方案》中，我讲解了147讲较为有代表的案例，可以覆盖大多数的知识点，基本掌握后再看数据库相关的操作，更会好些。

今日内容回向：

1 常见的几种连接数据库的方式是否有个大概的印象呢？

2 这几种常见的方式中那种是比较年轻的呢?