Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

JOIN 操作语法错误 运行时错误'-2147217900 (80040e14)'

夏一秒  发表于:2020-06-21 09:33:51  
复制

Dim sql As String
Dim rs As ADODB.Recordset       '声明ADO记录集对象
Set rs = New ADODB.Recordset '实例化记录集对象


sql = " SELECT BFRQ.拜访日,BFRQ.投保人CID,System_MapDay.MOTH FROM " _
& " ( " _
& " ( SELECT Record.CID,Record.建档日期 AS 拜访日 FROM Record WHERE (Record.CID LIKE  '" & USer & "%') AND (Record.建档日期<>Record.完成再访) ) " _
& " UNION ALL " _
& " ( SELECT Record.CID,Record.完成再访 AS 拜访日 FROM Record WHERE ( Record.CID LIKE '" & USer & "%' ) AND ( Record.完成再访 IS NOT NULL ) )" _
& " UNION ALL " _
& " ( SELECT BD.投保人CID,CustomRenPolicy10.崔访日期 AS 拜访日 FROM " _
& " ( SELECT CustomRenPolicy.投保人CID,CustomRenPolicy.ID FROM CustomRenPolicy WHERE CustomRenPolicy.投保人CID LIKE  '" & USer & "%' ) AS BD " _
& "   LEFT JOIN CustomRenPolicy10 ON BD.ID=CustomRenPolicy10.保单ID WHERE CustomRenPolicy10.崔访日期 IS NOT NULL  ) " _
& "  ) AS BFRQ " _

& " LEFT JOIN System_MapDay  ON BFRQ.拜访日=System_MapDay.Day  "


其中 绿色部分 是经过测试运行没问题的。可以一旦加上 下一个左连接,就一直提示 【 JOIN 操作语法错误  运行时错误'-2147217900 (80040e14)' 】。 一直怀疑是某处 括号的问题,找了几天也没过关

请各位大侠、老师指教!

 

Top
张志 发表于:2020-06-21 10:27:44

试试删除第2行并将倒数第2行改为:& "  ) AS BFRQ " _




夏一秒 发表于:2020-06-22 08:30:08
还是不行啊。还请张老师再指点指点

总记录:2篇  页次:1/1 9 1 :