如何加速Access中带Inner Join的UPDATE查询执行速度？

哇，几十万条记录的UPDATE JOIN跑十小时确实够折磨人的！我帮你拆解下当前SQL里的核心问题，再给出具体的优化步骤：

1. 干掉连接条件里的函数调用——这是索引失效的元凶！ #

看你的ON子句里用了一堆函数：cstr(d.d_sentdte) = cstr(aa.a_sentdte)、right('00' + trim(str(d.m_d_nature)),2) = left(trim(cstr(aa.m_a_nature)),2)，这些函数会让Access完全无法使用字段上的索引，只能做全表扫描，这是慢的核心原因！

解决办法：

• 如果d_sentdte和a_sentdte是日期类型，直接比较d.d_sentdte = aa.a_sentdte就行，转字符串完全没必要，还容易引发格式匹配问题。
• 对于m_d_nature和m_a_nature这类需要格式化的字段，提前在两个表新增格式化后的字段（比如m_d_nature_fmt、m_a_nature_fmt），用UPDATE把处理后的值存进去，然后给这两个新字段建索引。之后连接时直接用d.m_d_nature_fmt = aa.m_a_nature_fmt，这样就能利用索引快速匹配了。

2. 给连接字段建复合索引 #

针对你的JOIN条件，给两个表分别建复合索引：

• 表csd_dis_xxxx_all：d_cino + d_sentdte + m_d_nature_fmt（刚才的格式化字段）
• 表adm_xxxx：a_cino + a_sentdte + m_a_nature_fmt
  复合索引能让Access一次性定位到匹配的记录组合，避免多次查找。

3. 把大UPDATE拆成批量操作 #

一次性更新几十万条记录会占用大量内存，还容易锁表。改成每次更新1000条（可以根据实际调整批量大小）：

Dim batchSize As Integer
batchSize = 1000
Dim updatedCount As Integer

Do
    ' 注意这里用优化后的连接条件
    strSQL = "UPDATE TOP " & batchSize & " [csd_dis_" & i_year & "_all] as d " _
           & "INNER JOIN [adm_" & a_yyyy & "] as aa ON d.d_cino = aa.a_cino AND d.d_sentdte = aa.a_sentdte AND d.m_d_nature_fmt = aa.m_a_nature_fmt " _
           & "SET d.match_adm = " & kk & ", d.a_local_p = aa.a_local_p, d.inst = aa.c_inst, ... " _
           & "WHERE d.match_adm=' ' AND " & matchkey ' matchkey本身应为条件字符串，无需额外引号
    
    CurrentDb.Execute strSQL, dbFailOnError
    updatedCount = CurrentDb.RecordsAffected
Loop While updatedCount = batchSize

这样每次只处理一小部分，内存压力小，也能随时看到更新进度。

4. 用临时表替代直接JOIN更新 #

有时候先把需要更新的匹配数据提取到临时表，再用临时表更新主表会更快：

' 第一步：创建临时表，存储主键和需要更新的字段
strSQL = "SELECT d.你的主键字段, aa.a_local_p, aa.c_inst, aa.dosy, ... " _
       & "INTO #TempUpdate " _
       & "FROM [csd_dis_" & i_year & "_all] as d " _
       & "INNER JOIN [adm_" & a_yyyy & "] as aa ON d.d_cino = aa.a_cino AND d.d_sentdte = aa.a_sentdte AND d.m_d_nature_fmt = aa.m_a_nature_fmt " _
       & "WHERE d.match_adm=' ' AND " & matchkey
CurrentDb.Execute strSQL, dbFailOnError

' 给临时表的主键字段建索引，加速后续更新
CurrentDb.Execute "CREATE INDEX idx_temp_pk ON #TempUpdate(你的主键字段)", dbFailOnError

' 第二步：用临时表更新主表
strSQL = "UPDATE d " _
       & "INNER JOIN #TempUpdate t ON d.你的主键字段 = t.你的主键字段 " _
       & "SET d.match_adm = " & kk & ", d.a_local_p = t.a_local_p, d.inst = t.c_inst, ... "
CurrentDb.Execute strSQL, dbFailOnError

' 第三步：删除临时表
CurrentDb.Execute "DROP TABLE #TempUpdate", dbFailOnError

临时表的查询和更新都是基于主键，效率会比直接JOIN高很多。

5. 其他小细节优化 #

• 检查matchkey：确保这个拼接的条件是有效的，不要是空或者恒真的条件，不然会更新大量不必要的记录。如果matchkey涉及其他字段，给这些字段也建索引。
• 压缩修复数据库：Access用久了会产生碎片，定期压缩修复能提升性能（VBA里可以用Application.CompactRepair "原数据库路径", "压缩后路径", False）。
• 字段类型一致性：确保d_cino和a_cino等连接字段的类型、长度完全一致，避免隐式转换导致索引失效。

内容的提问来源于stack exchange，提问作者Oliver