将 MS Access SQL 选择查询转换为 VBA。使用聚合求和函数选择时中断

Question

背景

我正在尝试使用 Excel VBA 从 Microsoft Office Access 数据库加载数据。 代码运行良好，我现在尝试添加一个额外的列 Position 从名为 EqBucket 的日期库中提取到最终结果表中

SQL 可以在 Access 中找到，但不能解析为 VBA。 添加时的代码中断

SUM(Eq_Buckets.Position) AS PositionOfSum

我猜这与围绕该列的聚合总和有关，因为此问题从未出现在其他直接引用的列中。

感谢任何指针。谢谢

'''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''

信息： 1、SQL字符串存储在Sheets("SQL").Range("A1").value中 2.数据库表Eq_SingleName_LBU,Eq_BucketsEq_Portfolio_Ref只是一个参考表，可以忽略

'''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''' **如果我删除“Sum(Eq_Buckets.Position) AS PositionOfSum”，则代码在 VBA 中有效

这是 MS Access 中完全可以使用的 SQL 代码：

SELECT Eq_SingleName_LBU.Identifier AS Identifier, Eq_SingleName_LBU.Issuer AS Issuer, Eq_SingleName_LBU.MV_USD AS MV, Sum(Eq_Buckets.Position) AS PositionOfSum, Eq_SingleName_LBU.Issuer_Weight AS [Issuer Weight], Eq_SingleName_LBU.Test_Limit AS Limit, Eq_SingleName_LBU.Room_Limit AS [Remaining Limit], Eq_SingleName_LBU.Data_Date
FROM Eq_SingleName_LBU INNER JOIN (Eq_Buckets INNER JOIN Eq_Portfolio_Ref ON Eq_Buckets.Composite_Portfolio = Eq_Portfolio_Ref.BBG_Account_Codes) ON Eq_SingleName_LBU.Identifier = Eq_Buckets.BB_UniqueID
Where Eq_Buckets.Data_Date = (#03/12/2020#) and Eq_SingleName_LBU.UnderTest="Y"
GROUP BY Eq_SingleName_LBU.Identifier, Eq_SingleName_LBU.Issuer, Eq_SingleName_LBU.MV_USD, Eq_SingleName_LBU.Issuer_Weight, Eq_SingleName_LBU.Test_Limit, Eq_SingleName_LBU.Room_Limit, Eq_SingleName_LBU.Data_Date
HAVING (((Eq_SingleName_LBU.Data_Date) In (#03/12/2020#)))
ORDER BY Eq_SingleName_LBU.Data_Date;

'''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''

这是 SQL 字符串需要通过的 VBA 代码

Sub ADOImportFromAccessTable()

'On Error GoTo ErrorHandler
Application.ScreenUpdating = False
Application.Calculation = xlManual
Sheets("EQ1_SQL").Visible = True

    Dim con As Object
    Dim rst As Object
    Dim dbPath As String

    dbPath = "\\Db\Asset_db.accdb"
    Set con = CreateObject("ADODB.Connection")
    con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & dbPath
    con.Open

    Set rst = CreateObject("ADODB.Recordset")

'This is where the SQL code will be referenced.
strSql = ThisWorkbook.Sheets("SQL").Range("A1").Value
Debug.Print strSql
strSql = Replace(strSql, "{date1}", Date_1)
Debug.Print strSql
strSql = Replace(strSql, "{date2}", Date_2)

rst.Open strSql, con, adOpenDynamic, adLockOptimistic

    rst.Close
    Set rst = Nothing
    con.Close
    Set con = Nothing

End sub

'''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''

这是我从 Excel VB 编辑器收到的错误消息

Here is the error I get from VB editor.
Run-tme error '-2147467259 (80004005);: 
Method 'Open' of object' _ Recordset' failed

Answer 1

尝试在Position 周围添加括号，即Sum(B.[Position])，

您可以通过使用表名别名来缩短 SQL，例如

strSQL = " SELECT A.Identifier AS Identifier, A.Issuer AS Issuer, A.MV_USD AS MV," & _
             "   Sum(B.[Position]) AS PositionOfSum, " & _
             "   A.Issuer_Weight AS [Issuer Weight]," & _
             "   A.Test_Limit AS Limit, " & _
             "   A.Room_Limit AS [Remaining Limit]," & _
             "   A.Data_Date" & _
             " FROM Eq_SingleName_LBU AS A " & _
             " INNER JOIN Eq_Buckets AS B" & _
             " ON A.Identifier = B.BB_UniqueID" & _
             "   WHERE B.Data_Date = #2020/12/03# " & _
             "   AND A.UnderTest = 'Y' " & _
             " GROUP BY A.Identifier, A.Issuer," & _
             "   A.MV_USD, A.Issuer_Weight, A.Test_Limit," & _
             "   A.Room_Limit, A.Data_Date" & _
             " HAVING A.Data_Date IN (#2020/12/03#) " & _
             " ORDER BY A.Data_Date"