如何在VBA ADODB代码中将现有隐式内连接修改为左连接

你当前使用的是隐式内连接写法（多表用逗号分隔放在FROM子句、关联逻辑依赖WHERE条件），这种语法结构本身不支持左连接，必须调整为SQL标准的显式连接语法才能实现需求。

核心语法规则 #

左连接的固定结构为：
左表 LEFT JOIN 右表 ON 两表的匹配关联条件
这种写法可以保留左表中符合筛选条件的全部行，右表无匹配对应数据时自动返回空值。

适配后代码示例 #

以db_dossier（别名sousc）作为左表，将其余关联表全部改为左连接形式，同时修正原代码遗漏的表间关联逻辑（原代码未编写跨表匹配条件，会生成无意义的笛卡尔积结果）：

Public Sub SUPP_D_ATTENTE(NO_POLICE As String)
    Dim RECSET As New ADODB.Recordset
    RECSET.Open "SELECT sousc.lp_etat_doss AS cd_rga " & _
                "FROM db_dossier sousc " & _
                "LEFT JOIN db_personne pers ON sousc.通用关联字段 = pers.通用关联字段 " & _
                "LEFT JOIN db_garantie gar ON sousc.通用关联字段 = gar.通用关联字段 " & _
                "LEFT JOIN db_ctrat_support ctrats ON sousc.通用关联字段 = ctrats.通用关联字段 " & _
                "LEFT JOIN db_param_mandat_op mandaop ON sousc.通用关联字段 = mandaop.通用关联字段 " & _
                "LEFT JOIN db_rga rga ON sousc.lp_etat_doss = rga.匹配字段 " & _
                "WHERE sousc.no_police = '" & NO_POLICE & "' " & _
                "AND sousc.cd_dossier = 'SOUSC' " & _
                "AND sousc.lp_etat_doss NOT IN ('ANNUL','A30','IMPAY')", _
                YourADODBConnectionObject ' 替换为你代码中实际使用的数据库连接对象
End Sub

高频踩坑提示 #

• 禁止保留逗号分隔多表的隐式写法：这种结构下数据库默认按内连接逻辑处理，无法区分左右表顺序，完全达不到左连接的效果。
• 右表的关联、筛选条件不能写在WHERE子句：如果将pers.id = sousc.id这类匹配规则放在WHERE中，右表无匹配行时条件判断为假，会直接把左表的对应行过滤掉，让左连接退化成内连接。所有和右表相关的匹配、筛选规则，必须写在对应LEFT JOIN ... ON ...的子句范围内。
• 特殊数据库兼容注意：如果是Access旧版引擎，多表连续左连接需要注意关联条件不能跨未关联的表，否则会触发语法报错；SQL Server、MySQL、Oracle等主流数据库可直接使用标准左连接语法。

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