企业官网建设流程全解析

1. VB 读取 Access 表记录总数到底难在哪

如果你在用 VB6 或者 VBA 写 Access 相关的小工具，迟早会遇到一个需求：把某张表的记录总数读出来，赋给一个变量，然后拿去做分页、做进度条、做统计报表。听起来简单，但真正动手时你会发现，RecordCount这个属性经常返回 -1，让人一头雾水。

这个问题的根源在于游标类型。ADO 的Recordset默认使用服务端游标（adUseServer），这种游标是"只进"的，数据库不会一次性把结果集全部拉回来，所以它根本不知道总共有多少条记录，RecordCount就返回 -1。只有切换到客户端游标（adUseClient），ADO 才会把整个结果集缓存到本地，这时RecordCount才是真实值。

除了 ADO，老项目里还大量存在 DAO 的写法。DAO 的Recordset用dbOpenSnapshot或dbOpenDynaset打开后，RecordCount是直接可用的，不需要额外设置游标。两种方式各有适用场景，本文会把它们都讲清楚。

另外，很多朋友在开发过程中会借助 AI 辅助工具来生成或调试这类数据库代码。这时候一个稳定的模型调用通道就很重要，TaoToken 提供的统一 Key 通道可以让你在多个模型之间切换，不用为每个模型单独配置密钥，后面我会给出具体的接入配置。

这篇文章面向的是正在用 VB6、VBA 或 VB.NET 操作 Access 数据库的开发者，尤其是那些被RecordCount = -1卡住、或者想搞清楚 DAO 和 ADO 区别的人。读完你能直接复制代码跑起来，也能知道报错时该往哪个方向排查。

2. TaoToken 统一 Key 通道的前置准备

在写数据库代码之前，先花几分钟把 AI 辅助通道配好。我自己的习惯是：写 Access 相关代码时，遇到连接字符串记不清、SQL 语法拿不准，直接让模型帮我生成骨架，比翻文档快得多。TaoToken 的好处是一个 Key 能调多个模型，不用在好几个平台之间来回切换。

你需要做三件事：

第一，注册并拿到 API Key。访问控制台地址https://taotoken.net/console，登录后在 API Keys 页面创建一个新 Key。这个 Key 就是你的统一凭证，后面所有模型调用都用它。

第二，确认你要用的模型。如果你只是偶尔问几个 SQL 问题，用模型对话页面就够了，地址是https://taotoken.net/model-chat。如果你打算长期用 AI 辅助写代码，比如让它帮你生成 VB 的数据库操作类，那建议开通 Coding Plan，地址是https://taotoken.net/coding-plan，额度更划算。

第三，记下 API 端点。所有请求走https://taotoken.net/api，注意这个地址不带任何查询参数，是干净的 API 根路径。文档在https://taotoken.net/doc，里面有完整的请求格式说明。

注意：API Key 不要硬编码在 VB 源码里然后提交到代码仓库。建议放在配置文件或环境变量中读取，避免泄露。

配置好之后，你就可以在写代码卡壳时随时问模型了。比如"ADO 连接 Access 2007 的 accdb 文件，连接字符串怎么写"，模型会直接给你可用的答案。

3. 可复制的连接字符串与 RecordCount 代码骨架

这一节是核心，我把 DAO 和 ADO 两种方式的完整代码都给你，直接复制改表名就能用。

3.1 ADO 方式：客户端游标是关键

先看 ADO。记住那个坑：必须设置CursorLocation = adUseClient，否则RecordCount返回 -1。

' ADO 方式获取 Access 表记录总数 ' 引用：Microsoft ActiveX Data Objects 2.8 Library Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Dim totalCount As Long ' 连接字符串：Access 2007+ 用 accdb，旧版用 mdb ' Provider 用 Microsoft.ACE.OLEDB.12.0 支持 accdb ' 如果只有旧版驱动，用 Microsoft.Jet.OLEDB.4.0 支持 mdb Dim connStr As String connStr = "Provider=Microsoft.ACE.OLEDB.12.0;" & _ "Data Source=C:\data\mydb.accdb;" Set conn = New ADODB.Connection conn.Open connStr Set rs = New ADODB.Recordset ' 关键一步：设置为客户端游标 rs.CursorLocation = adUseClient ' 只取需要的字段，不要用 select *，减少内存占用 rs.Open "SELECT ID FROM 订单表", conn, adOpenStatic, adLockReadOnly ' 此时 RecordCount 才是真实值 totalCount = rs.RecordCount Debug.Print "记录总数：" & totalCount rs.Close conn.Close Set rs = Nothing Set conn = Nothing

这里有几个细节值得说。adOpenStatic是静态游标，配合adUseClient使用最稳。adLockReadOnly表示只读，不锁表，适合统计场景。查询字段写ID而不是*，因为统计总数不需要所有列，字段越少客户端缓存越快。

如果你要统计的是带条件的记录数，比如"状态为已完成的订单有多少条"，把 SQL 改成SELECT ID FROM 订单表 WHERE 状态='已完成'即可，RecordCount会返回符合条件的条数。

3.2 DAO 方式：老项目的稳妥选择

DAO 在 VB6 时代是主流，现在维护老系统还会遇到。它的RecordCount不需要设置游标，但打开方式有讲究。

' DAO 方式获取 Access 表记录总数 ' 引用：Microsoft DAO 3.6 Object Library Dim db As DAO.Database Dim rs As DAO.Recordset Dim totalCount As Long ' 打开数据库 Set db = OpenDatabase("C:\data\mydb.mdb") ' 用快照方式打开，RecordCount 直接可用 Set rs = db.OpenRecordset("SELECT ID FROM 订单表", dbOpenSnapshot) ' 如果记录集非空，RecordCount 就是总数 If Not rs.EOF Then totalCount = rs.RecordCount Else totalCount = 0 End If Debug.Print "记录总数：" & totalCount rs.Close db.Close Set rs = Nothing Set db = Nothing

DAO 的dbOpenSnapshot是只读快照，性能好，RecordCount准确。如果你用dbOpenDynaset也可以，但它是可更新的，开销略大。统计场景用快照就够了。

3.3 两种方式对比

选哪个？如果是新写的 VB.NET 项目，用 ADO。如果是维护 VB6 老系统且只连 mdb，DAO 更省事。如果老系统要连 accdb，那就必须上 ADO 加 ACE 驱动。

4. 运行验证与结果核对

代码写完了，怎么确认RecordCount拿到的值是对的？我一般用三步核对。

第一步，在 Access 里手动打开那张表，看左下角状态栏显示的记录数，记下来。比如显示"记录：1/256"，那总数就是 256。

第二步，运行上面的 VB 代码，把totalCount打印出来。如果和 Access 里看到的一致，说明代码正确。

第三步，做个边界测试。找一张空表，运行代码看是否返回 0。再找一张只有 1 条记录的表，看是否返回 1。这两个边界能过，基本就没问题了。

如果你用的是 ADO 且返回 -1，先检查CursorLocation那行有没有写、有没有写在Open之前。顺序错了也会失效。如果报"未找到提供程序"，说明 ACE 驱动没装，去微软官网下载 Access Database Engine 安装即可。

验证通过后，你可以把这段逻辑封装成一个函数，传入表名返回记录数，方便复用：

Function GetRecordCount(ByVal tableName As String) As Long Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Dim connStr As String connStr = "Provider=Microsoft.ACE.OLEDB.12.0;" & _ "Data Source=C:\data\mydb.accdb;" Set conn = New ADODB.Connection conn.Open connStr Set rs = New ADODB.Recordset rs.CursorLocation = adUseClient rs.Open "SELECT ID FROM " & tableName, conn, adOpenStatic, adLockReadOnly GetRecordCount = rs.RecordCount rs.Close conn.Close Set rs = Nothing Set conn = Nothing End Function

调用时直接Debug.Print GetRecordCount("订单表")就行。

5. 本篇常见报错排查

这一节把我在实际项目里踩过的坑列出来，你遇到问题时可以对照着查。

报错一：RecordCount 返回 -1。这是最高频的问题。原因就一个：游标不是客户端游标。解决方法是确保rs.CursorLocation = adUseClient写在rs.Open之前。如果你用的是 DAO，检查是不是用了dbOpenForwardOnly，这种只进游标也会返回 -1，换成dbOpenSnapshot。

报错二：未找到提供程序，可能未正确安装。这是 ACE 驱动缺失。Access 2007 之后的 accdb 格式需要Microsoft.ACE.OLEDB.12.0驱动，系统默认不带。去微软下载页搜"Access Database Engine"安装。注意 32 位和 64 位要和你 VB 程序的位数匹配，不匹配会报同样的错。

报错三：找不到可安装的 ISAM。通常是连接字符串拼错了，比如Data Source写成了DataSource，或者路径里有中文没加引号。检查连接字符串的每个分号分隔项，路径用双引号包起来。

报错四：记录集为空时 RecordCount 为 0 但代码报错。如果表里没数据，rs.EOF为 True，直接读RecordCount在某些驱动下会异常。加个判断：If Not rs.EOF Then totalCount = rs.RecordCount Else totalCount = 0。

报错五：多用户环境下记录数不准。客户端游标是把数据拉到本地缓存的，如果在你读取的瞬间别人往表里插了数据，你拿到的还是旧值。统计场景一般能接受，如果要求实时精确，改用SELECT COUNT(*)查询，让数据库自己算。

说到SELECT COUNT(*)，其实这是另一种获取总数的思路，不依赖RecordCount：

Dim rs As ADODB.Recordset Set rs = conn.Execute("SELECT COUNT(*) AS cnt FROM 订单表") totalCount = rs.Fields("cnt").Value

这种方式不需要设置游标，也不受游标类型影响，缺点是每次都要执行一次聚合查询。数据量小的时候两种方式差别不大，数据量大时COUNT(*)反而更快，因为它不用把数据拉到本地。

排查时如果拿不准，可以把你的连接字符串和报错信息丢给模型，让它帮你分析。TaoToken 的模型对话入口在https://taotoken.net/model-chat，直接粘贴代码和报错就行。

6. 把 AI 辅助接入你的 VB 开发流

数据库代码写多了会发现，连接字符串、SQL 语法、游标参数这些东西翻来覆去就那几套，但每次记不全。我现在习惯把常用的代码骨架存在本地，遇到新表新库时让模型帮我改改表名和字段名，比从头写快。

如果你也想把 AI 辅助固定到开发流程里，建议走 Coding Plan，地址是https://taotoken.net/coding-plan。它适合长期写代码的场景，额度比按次调用划算。接入时用统一的 API Key，端点走https://taotoken.net/api，具体请求格式看文档https://taotoken.net/doc。

配置好之后，你可以在 VB 的注释里直接写需求，比如"生成一个函数，传入表名返回记录数，用 ADO 客户端游标"，然后把生成的代码粘进去微调。实测下来，这种用法比手动查文档效率高不少，尤其是处理不熟悉的 Access 版本和驱动组合时。

最后提醒一句：AI 生成的代码一定要自己跑一遍验证，特别是连接字符串里的路径和驱动版本，这些和你的实际环境强相关，模型给的是通用模板，落地时得按自己的机器改。