ADO 添加记录（保姆级教程）

💡一则或许对你有用的小广告

欢迎加入小哈的星球 ，你将获得：专属的项目实战 / 1v1 提问 / Java 学习路线 / 学习打卡 / 每月赠书 / 社群讨论

• 新项目:《从零手撸：仿小红书（微服务架构）》 正在持续爆肝中，基于 Spring Cloud Alibaba + Spring Boot 3.x + JDK 17...，点击查看项目介绍 ;
• 《从零手撸：前后端分离博客项目（全栈开发）》 2 期已完结，演示链接： http://116.62.199.48/ ;

截止目前， 星球 内专栏累计输出 82w+ 字，讲解图 3441+ 张，还在持续爆肝中.. 后续还会上新更多项目，目标是将 Java 领域典型的项目都整一波，如秒杀系统, 在线商城, IM 即时通讯，权限管理，Spring Cloud Alibaba 微服务等等，已有 2900+ 小伙伴加入学习 ，欢迎点击围观

前言：走进ADO的世界

在数据驱动的现代应用开发中，ADO 添加记录是连接代码与数据库的核心操作之一。无论是构建个人博客的评论系统，还是开发企业级的库存管理工具，开发者都需要通过ADO（ActiveX Data Objects）与数据库进行交互。对于编程初学者而言，理解如何通过ADO向数据库添加记录，不仅能掌握基础的数据库操作逻辑，更能为后续学习更复杂的数据库交互技术打下坚实基础。

本篇文章将从ADO的基础概念讲起，逐步拆解添加记录的完整流程，并通过实际代码案例与常见问题解答，帮助读者快速掌握这一技能。

ADO的核心概念：导航数据库的“地图与指南针”

1. ADO的定义与作用

ADO是微软推出的一套用于访问数据库的组件集合，可以看作是开发者与数据库之间的“翻译官”。它提供了统一的接口，让开发者能够通过代码操作各种类型的数据库（如SQL Server、Access、Oracle等），而无需关心底层的通信细节。

2. ADO的核心对象模型

ADO包含三个核心对象，它们共同协作完成数据操作：

• Connection 对象：负责建立与数据库的连接，如同“门禁系统”，决定能否进入数据世界。
• Command 对象：用于执行SQL语句或存储过程，是“指令发送器”，告诉数据库具体需要做什么。
• Recordset 对象：存储从数据库中查询到的数据，类似“临时工作区”，开发者可以在此增删改查记录。

步骤详解：如何通过ADO添加记录

1. 连接数据库：搭建沟通的桥梁

在添加记录之前，必须先建立与数据库的连接。这一步骤类似于在图书馆找到入口并出示通行证：

' VBScript示例：建立Access数据库连接  
Dim conn  
Set conn = CreateObject("ADODB.Connection")  
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _  
          "Data Source=C:\mydatabase.accdb;"  

关键点：

• 连接字符串（如Provider和Data Source）必须准确指定数据库类型和路径。
• 不同数据库的连接字符串格式不同，需查阅对应文档（如SQL Server的连接字符串通常包含Server和Database参数）。

2. 创建Recordset对象：开辟临时工作区

Recordset是操作数据的核心容器。通过它，可以像操作Excel表格一样增删记录：

Dim rs  
Set rs = CreateObject("ADODB.Recordset")  
rs.Open "Customers", conn, 1, 3 ' 1=adOpenKeyset, 3=adLockOptimistic  

关键点：

• 第二个参数conn表示使用已建立的连接。
• 第三个和第四个参数分别控制记录集的打开模式和锁定类型，需根据需求选择（例如adOpenStatic适合只读场景）。

3. 添加新记录：在数据海洋中抛下“锚点”

通过AddNew方法向Recordset中添加一条空白记录，再逐个字段赋值，如同在表格中填写新行：

rs.AddNew  
rs("CustomerID") = "CUST123"  
rs("Name") = "张三"  
rs("Email") = "zhangsan@example.com"  
rs.Update ' 提交更改到数据库  

关键点：

• AddNew后需通过字段名（如CustomerID）直接赋值，无需SQL语句。
• Update方法是关键，它将临时记录提交到数据库，若未调用可能导致数据丢失。

4. 关闭资源：善始善终的“清洁工”

操作完成后，需关闭Recordset和Connection对象，释放系统资源：

rs.Close  
Set rs = Nothing  
conn.Close  
Set conn = Nothing  

实战案例：用VBScript向Access数据库插入订单

场景描述

假设有一个电商系统的Access数据库，包含一个名为Orders的表，字段包括：

• OrderID（自动编号）
• CustomerName（文本）
• Product（文本）
• Quantity（数字）

完整代码示例

' 创建连接对象  
Dim conn  
Set conn = CreateObject("ADODB.Connection")  
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _  
          "Data Source=C:\orders.accdb;"  

' 创建记录集对象  
Dim rs  
Set rs = CreateObject("ADODB.Recordset")  
rs.Open "Orders", conn, 1, 3  

' 添加新记录  
rs.AddNew  
rs("CustomerName") = "李四"  
rs("Product") = "笔记本电脑"  
rs("Quantity") = 2  
rs.Update  

' 输出成功信息  
WScript.Echo "订单已成功添加！"  

' 关闭资源  
rs.Close  
Set rs = Nothing  
conn.Close  
Set conn = Nothing  

代码解析

1. 连接字符串：使用Access数据库的默认提供者（Microsoft.ACE.OLEDB.12.0）。
2. 字段赋值：直接通过字段名设置值，Quantity必须为数字类型。
3. 错误处理：实际开发中建议添加On Error Resume Next和错误捕获代码，避免程序崩溃。

常见问题与解决方案

1. 连接失败：“Provider未注册”或“路径错误”

原因：连接字符串中的Provider不匹配数据库类型，或数据库路径不正确。
解决方案：

• 确认数据库类型并选择正确的Provider（如SQL Server使用SQLOLEDB）。
• 使用绝对路径（如C:\orders.accdb）避免路径解析错误。

2. 字段类型不匹配：“类型转换错误”

原因：赋值的字段类型与数据库定义不一致（如文本字段赋值数字）。
解决方案：

• 检查数据库表结构，确保字段类型匹配。
• 使用CStr()或CInt()等函数强制类型转换。

3. 未保存更改：数据“消失”

原因：未调用rs.Update或rs.Close后未提交事务。
解决方案：

• 确保在赋值后立即调用rs.Update。
• 若涉及事务，使用BeginTrans和CommitTrans包裹操作。

进阶技巧：使用事务保证数据一致性

在批量添加记录时，事务（Transaction）能确保所有操作要么全部成功，要么全部回滚，避免“半途而废”的数据残留问题：

' 开启事务  
conn.BeginTrans  

On Error Resume Next  
rs.AddNew  
rs("CustomerName") = "王五"  
rs("Product") = "平板电脑"  
rs("Quantity") = 1  
rs.Update  

If Err.Number = 0 Then  
    conn.CommitTrans ' 提交事务  
Else  
    conn.RollbackTrans ' 回滚事务  
    WScript.Echo "事务提交失败：" & Err.Description  
End If  
On Error GoTo 0  

结论：从基础到精通的进阶之路

通过本文的讲解，读者已经掌握了ADO 添加记录的完整流程，并通过案例和常见问题理解了其核心逻辑。从连接数据库到提交事务，每个步骤都如同搭建一座桥梁，连接着代码与数据的世界。

对于编程初学者，建议从简单案例入手，逐步尝试不同数据库类型和复杂场景；中级开发者则可探索ADO与事务、存储过程的结合，提升数据操作的健壮性。记住，实践是检验真理的唯一标准——动手编写代码，让理论转化为实际能力！

无论你是构建个人项目还是企业级应用，掌握ADO的基本操作，都将为你打开数据库编程的大门，助你在技术道路上走得更远。