Excel 编程 -- 再谈访问数据库
- 2026-04-06 12:09:21
Excel 编程 -- 再谈访问数据库前面我们讨论了 VBA 代码访问数据库的问题，那里的数据库指的是 SQL Server。访问 SQL Server 数据库需要网络中存在 SQL Server 数据库服务器，或者本机安装有 SQL Server 数据库。作为一般应用来讲，似乎用不着这样一把“杀牛刀”。 今天我们来谈谈 Excel VBA 代码访问微软的桌面数据库 Access。 微软 Office 里被使用最多的是 Word、Excel、PowerPoint 这“三剑客”，Outlook、OneNote 次之，Access 似乎用得不多，至于 Project、Visio、Publisher，那用得就更少了。（这里只是大体言之，就我个人来说，排序似乎是：OneNote、Word、Excel、Outlook、PowerPoint。） 今天不准备详细介绍 Access，只是简单谈谈如何在 Excel 中使用 VBA 代码访问 Access。 Access 属于桌面型数据库，也是文件型数据库。桌面型是就数据库系统的运行位置而言，文件型是就数据库系统的存储方式而言。 扩展名为 .accdb 的 Access 数据库是通过 Access 软件来操作的。用户可以通过 Access 的操作界面来涉及表、设计操作数据库的用户界面（数据录入、数据查询、数据更新等）。除此之外，其他软件如 Word、Excel 等 Office 组件可以通过 VBA 代码来访问 .accdb 数据库。 正如我们在《走向 OLE DB》中所说，微软设计 OLE DB 的雄心是统一数据源的访问方式——关系型数据库、文件型数据库、结构化数据源如 Excel、半结构化数据源如 Word 和 Outlook 等等。微软为访问文件型数据库设计了专用的 OLE DB 驱动程序（driver，有时也成为 provider），在 Office 2007 之前称为 Microsoft.Jet.OLEDB，从 Office 2007 开始，此驱动程序称为 Microsoft.ACE.OLEDB，最新的版本是 Microsoft.ACE.OLEDB.16.0。 因为从 Office 2007 开始有了 32 位版本和 64 位版本之分，因此驱动程序也分为 32 位版本和 64 位版本，而之前的 Microsoft.Jet.OLEDB 只有 32 位版本。 如果你的机器中安装有 Access，则应该有相应的 Microsoft.ACE.OLEDB，如果不确定有没有 Microsoft.ACE.OLEDB，请参考相关阅读中的《Delphi 编程 -- 访问数据库》，那里给出了一个 ListProviders，可以列出你的机器中所安装的 OLE DB 驱动程序。 今天我们讨论一个将 Excel 数据集写入 Access 数据库并读出到 Excel 中的例子。先看结果： 
左边是原来的数据集，我们的例子是将这个数据集写入 Access 的 .accdb 数据库。右边是从 .accdb 数据库中读出的数据。 从这个例子可以学到写入/读出 Access 数据库的方法。 下面来看程序构成： 
在这个例子中，我们写了一个 AceClient 类，放在 PiVBALib 的类模块中，而这个类的 Create 函数放在了模块 Module1 中。 而在 AceClient 的应用方 myExcel.xlsm 中，我们的例子所使用的工作表是 Sheet3，测试程序则放在 模块1 中，另外注意到，在 myExcel 的 VBAProject 中引用了 PiVBALib。 下面看主控程序 AceTest： 
首先声明一个 AceClient 类型的变量 aClient，然后调用 CreateAceClient 来创建 AceClient 类的实例（对象），这个 Create 函数接受一个参数，是 Access 的数据库文件名 Person.accdb。接着 aClient 打开与数据库的连接。 下面构造一个创建表 Person 的 SQL 语句，然后用 aClient.ExecuteSQL 的方法执行该 SQL 语句，执行的结果就是在 Person.accdb 数据库中创建了一个名为 Person 的表。 下面是以 aClient 和 Range("B2:E21") 为参数调用 WriteDataToAccess，将该区域的数据集写入 Access 数据库 Person.accdb 中，具体是写到 Person 表中。 将 Excel 数据集写入数据库完成后，接下来的 With 语句是将区域 A1:E1 的内容拷贝到区域 G1:K1，实际就是拷贝数据集的表头。表头拷贝好后，调用 ReadDataFromAccess，将前面写入数据库的数据从 Person.accdb 数据库的 Person 表中读出，将这个数据集写到 G2:K21 的区域中。结果如开头所示。 下面看 WriteDataToAccess 过程： 
WriteDataToAccess 接受两个参数：一个是 AceClient 类型的对象 aClient，一个是变体类型的变量 rs，实际是一个二维数组。 WriteDataToAccess 的过程体就是遍历 rs 这个二维数组，对每一行都构造一个 INSERT INTO 的数据插入 SQL 语句，然后调用 aClient.ExecuteSQL 执行该 SQL 语句，结果就是向 Person 表中插入一条记录。遍历完所有的行之后，整个数据集的写入数据库就完成了。 下面看从数据库中读出的 ReadDataFromAccess 过程： 
该过程接受三个参数，分别是 aClient，以便于读取数据库，iRow 和 iCol，分别是写入到 Excel 区域的起始行和起始列。 首先，以一条查询语句执行 aClient.GetDataSet，得到 Person 表的数据集 rowsest。然后，遍历此 rowset，对于数据集中的每一行，分别将各个字段（field）插入相应的单元格。 VBA 支持类模块，给我们提供了很大的便利。你不需要直到 AceClient 类的具体实现情况，只要了解如何创建 AceClient 类的对象，这个对象有哪些方法可以供我们使用即可。 那么，类 AceClient 到底是如何实现的呢？下面来看。 
在 AceClient 类的开始，我们声明了几个成员变量。这几个成员变量不需要被外界看到，所以都声明为“私有”（Private）类型。 接下来是 AceClient 类的第一个方法（注意：在类中定义的 Sub/Function 都统称为“方法”）Initialize，该方法接受一个参数，即 Access 数据库的文件名（我们说 Access 是文件型数据库系统）。 Initialize 方法主要做三件事： 
AceClient 的 OpenConnection、CloseConnection、ExecuteSQL 与我们先前所讨论的 DbClient 类中的相应方法类似，此处不再重复。 AceClient 还定义了一个 GetDataSet 方法，用来从数据库中查询数据。它接受一个 SQL 查询语句，返回一个 ADO 的 Recordset。 最后，我们来看如何创建 AceClient 的实例。 
函数 CreateAceClient 在 PiVBALib 中的模块 Module1 中定义，用来创建 AceClient 类的实例，并调用该实例的 Initialize 方法对其进行初始化。 至此，通过创建数据库（ADOX.Catalog.Create）、创建表（CREATE TABLE）、写入数据（INSERT INTO）、读出数据（SELECT FROM）等操作，我们就基本解决了在 Excel 的 VBA 代码中如何访问 Access 数据库的问题。 说明：以上代码仅供示例，并不具备产品质量（production quality）。 相关阅读 Excel VBA 编程 -- 访问数据库 ODBC (5) -- 走向 OLE DB Delphi 编程 -- 访问数据库（1）
桌面型数据库：强调 Access 是在个人电脑上运行和操作，是一个单机版本的数据库。 文件型数据库：强调 Access 的所有内容都存储在一个文件里，Access 所有的对象——表、查询、表单、报表、宏、VBA 代码——都存储于一个扩展名为 .accdb（旧版是 .mdb）的文件中。
将 dbFile 参数的值赋给成员变量 m_dbFile，保存以备后用。 判断 m_dbFile 文件是否存在，如果存在，则返回。 如果不存在，则调用 ADOX.Catalog 对象的 Create 方法创建 m_dbFile 所表示的 Access 数据库。 首先构造连接字符串 cnstr，该连接字符串只包括两部分：Provider 和 Data Source。 然后创建 ADOX.Catalog 对象，并赋给 aCat。 最后，调用 aCat 对象的 Create 方法，并将连接字符串 cnstr 作为参数。该方法的功能是创建连接字符串中 Data Source 所表示的 Access 数据库。
本文来自网友投稿或网络内容，如有侵犯您的权益请联系我们删除，联系邮箱：wyl860211@qq.com 。
随机文章
-
10个月宝宝每天需要喝多少奶粉？
- LearnE小灶 | 第五篇:Excel图表总被说“丑”?4个手动美化口诀,用自带功能做出高级感!
- 【Excel VBA编程】给代码“松绑”,从僵硬到灵动的设计进化
- 【PPT】血透导管置管术的护理查房
- 【PPT】2026春节后复工复产(六个一)安全培训(127页)
- 【通用】【春季下】开学第一课:马力全开PPT+发言稿 2个版本通用版
- 【PPT】复工复产八危、四归、六个一、十四重点培训
- Seedance 2.0保姆级使用手册PPT
- “浙江大学”专属PPT模板来啦,本硕博汇报答辩必备!
- “江苏科技大学”专属PPT模板来啦,本硕博汇报答辩必备!
- PPT 环境描写:(自然+社会)*5招=10美
