Question

我正在尝试使用JET连接查询Excel工作簿中的几个命名范围，并在尝试添加时收到错误（运行时错误'-2147217900（80040e14）'：不支持连接表达式）第二个条件是其中一个连接：

Dim strQuery As String
strQuery = "SELECT mrx.Underlying "
strQuery = strQuery & ",mrx.[exp] "
strQuery = strQuery & ",sum(mrx.[codc]) "
strQuery = strQuery & ",max(mapDt.[Str]) "
strQuery = strQuery & "FROM ((([dataMRX] AS mrx "

strQuery = strQuery & "LEFT OUTER JOIN [mapDt] AS mapDt on "
strQuery = strQuery & "(mrx.[exp] = mapDt.[DtNumeric])) "

strQuery = strQuery & "LEFT OUTER JOIN [mapUdl] AS mapUdl on "
strQuery = strQuery & "(mrx.[Underlying] = mapUdl.[rmpUdl])) "

strQuery = strQuery & "LEFT OUTER JOIN [dataTtm] AS ttm on "
strQuery = strQuery & "(ttm.[Underlying] = mapUdl.[ttmUdl] "
strQuery = strQuery & "AND ttm.[End Month] = mapDt.[Dt])) "

strQuery = strQuery & "GROUP BY mrx.Underlying, mrx.[exp] "
strQuery = strQuery & "ORDER BY mrx.Underlying DESC "

具体来说，如果我删除最后一个左外连接(ttm.[Underlying] = mapUdl.[ttmUdl]或tmm.[End Month] = mapDt.[Dt])中的第一个或第二个连接条件，则查询工作正常。但是，如果出现这两种情况，我会收到错误。

我正在使用JET 4.0：

strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFile _
    & ";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";"

Answer 1

我不完全确定这是正确的，但它确实使用Jet引擎执行。请试一试。

SELECT sub.Underlying ,sub.[exp] ,sum(sub.[codc]) ,max(sub.[Str]) 
FROM (
    SELECT mrx.underlying, mrx.exp, mrx.codc, mapDt.Dt, mapDt.str, mapUdl.ttmUdl 
    FROM ( 
       [dataMRX] AS mrx 
       LEFT OUTER JOIN [mapDt] AS mapDt on (mrx.[exp] = mapDt.[DtNumeric])
    )
    LEFT OUTER JOIN [mapUdl] AS mapUdl on (mrx.[Underlying] = mapUdl.[rmpUdl])
) as sub
LEFT OUTER JOIN [dataTtm] AS ttm on ((ttm.[Underlying] = sub.[ttmUdl]) AND (ttm.[End Month] = sub.[Dt]))    

GROUP BY sub.Underlying, sub.[exp] 
ORDER BY sub.Underlying DESC

错误：“不支持连接表达式”

1 个答案: