vba如何通过odbc连接数据库连接数据库

大家好，今日继续讲解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=Micro;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.