VBA使用ADODB执行SQL时条件生成VENTE列的正确语法咨询

• 无效语法结构：SELECT子句中错误将cl.CD_EVT直接写在CASE表达式前，形成cl.CD_EVT (case ...)的非法结构，CASE条件判断不需要前置被判断的字段
• 字符串常量漏写边界：CASE分支中when '3 COCVT' then OUI的返回值OUI未用单引号包裹，SQL引擎无法识别该值为字符串
• 需求匹配偏差：原有代码分支返回值写为OUI，和需求要求的符合条件返回OU的规则不一致
• 冗余判断写法：每个匹配值单独占一个WHEN分支，长文本拼接时极易因为VBA换行、漏写连接符出现语法错误

采用搜索式CASE写法简化判断逻辑，用IN批量匹配所有目标值，大幅缩短SQL拼接长度，修正所有语法问题后，完整的ADODB打开代码片段如下：

RECSET2.Open " select dossier.NO_POLICE, ev1.D_EFFET, ev1.ID_FAMILLE_PORTEF, ev1.ID_PORTEFEUILLE, gr.LB_COURT_GR_EVT, pers1.S_PRENOM||' '||pers1.S_NOM as Collaborateur, proto.CD_PROTOCOLE, comm.L_COMMENT_DOSSIER," & _
" dossier.UI_CREATION, ev1.LP_STATUT_EVT, sum(ev3.MT_BRUT) as Ecart, ev1.MT_BRUT," & _
" CASE WHEN cl.CD_EVT IN ('COPVT','XCOPVT','3 COPVT','COCVT','XCOCVT','3 COCVT') THEN 'OU' ELSE 'NON' END as VENTE," & _
" tiers2.CD_TIERS as Tmandataire, pers3.S_RAISONSOC as Mandataire,tiers1.CD_TIERS as Tdepositaire, pers2.S_RAISONSOC as Depositaire, ev1.IS_EVENEMENT from DB_DOSSIER dossier left join DB_EVENEMENT ev1 " & _

• VBA拼接SQL时，SQL层面的所有字符串常量统一用单引号'包裹，不要用VBA本身的双引号边界，避免转义冲突
• 长SQL拆分为VBA多行拼接时，每一行末尾必须保留 & _连接符，不要在行尾留空格破坏字符串拼接
• 原代码中重复选取了两次ev1.ID_FAMILLE_PORTEF，可根据实际报表需要删除重复字段，减少不必要的数据传输量

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