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

Question

Background

I'm trying to use Excel VBA to load data from Microsoft Office Access database. The code was worked fine and I am now trying to add an extra column Position drawn from the datebasetable named EqBucket into the final result table

The SQL works find in Access but it doesn't parse through to VBA. The code break when I add in

SUM(Eq_Buckets.Position) AS PositionOfSum

I'm guess it has to do with the aggregation sum wrapped around the column because this issue has never come up with other direct referenced columns.

Appreciate for any pointers. Thanks

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

Info: 1. SQL string is stored in Sheets("SQL").Range("A1").value 2. Database tables Eq_SingleName_LBU , Eq_Buckets << this is where the position data are stored 3. Eq_Portfolio_Ref is just a reference table which could be ignored

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' **IF I remove "Sum(Eq_Buckets.Position) AS PositionOfSum" the code works in VBA

Here is the FULLY working SQL code in MS Access:

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;

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

Here is the VBA code that the SQL string needs to fit through

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

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

Here is the error message I get from Excel VB editor

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

Answer 1

Try adding brackets around Position ie Sum(B.[Position]) ,

You can shorten the SQL by using table name aliases, for example

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"