Excel的VBA ADODB.Connection的Sql計數distincts

Question

我想算distincts

Sub sql(sqlStr As String, PasteRnG As Range) 

Dim con As Object 
Dim rstData As Object 
Dim sDatabaseRangeAddress As String 


    Set con = CreateObject("ADODB.Connection") 
    Set rstData = CreateObject("ADODB.Recordset") 

    con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ActiveWorkbook.FullName & ";Extended Properties = ""Excel 12.0 Macro;HDR=yes"";" 
    rstData.Open sqlStr, con 

    PasteRnG.CopyFromRecordset rstData 

    rstData.Close 
    Set rstData = Nothing 
    Set con = Nothing 

End Sub 

查詢

sql "SELECT DISTINCT `P3`,`P2`,`P1`, COUNT(DISTINCT `P3`) AS countOf FROM [QQ$] ", Worksheets("QQQQ").Range("a3") 

錯誤的

SELECT DISTINCT `P3`,`P2`,`P1`, COUNT(DISTINCT `P3`) AS countOf FROM table; 

但我得到COUNT(DISTINCT P3 )

錯誤

我需要在每個不同的P3

Distinctlist P2 P1 CountOfDistinctInP3 
    111 ,  11, 1, 56pcs. 
    222,  22, 2, 25pcs. 

第4列數得到P3不能爲空！總是有值

但這精品工程，正如我需要

sql "SELECT DISTINCT `P3`, COUNT(`P3`) FROM [QQ$] GROUP BY `P3` ", Worksheets("QQQQ").Range("a3") 

但是，如果沒有P2和P1（（（

---

Answer 1

解決了，未聚合的SELECT中的每一列都需要在GRO中UP BY子句

sql "SELECT `P3`, `P2`, `P1`, COUNT(`P3`) FROM [QQ$] GROUP BY `P3`, `P2`, `P1` ", Worksheets("QQQQ").Range("a3") 

Answer 2

嘗試下面的查詢

select count (select distinct p3 from table) from table 

Answer 3

嘗試：

SELECT DISTINCT `P3`,`P2`,`P1`, COUNT(`P3`) AS countOf FROM table group by `P3` 

Answer 4

您的SQL似乎試圖計算P1，P2和P3的每個組合值的P3的不同值的數量。這將只會是0（如果P3爲NULL）或1.然而使用聚合函數（COUNT）將導致所有行減少到1行，因此P3可能有多個值（因此計數較大），但是P1和P2的值將是不確定的（它們可能來自任何行

你可能需要的是這樣的： - 。

SELECT `P2`,`P1`, COUNT(DISTINCT `P3`) AS countOf 
FROM table 
GROUP BY `P2`,`P1`; 

或者，如果你需要的P3

值的列表

SELECT `P2`,`P1`, COUNT(DISTINCT `P3`) AS countOf, GROUP_CONCAT(DISTINCT P3) 
FROM table 
GROUP BY `P2`,`P1`; 

SELECT `P3`, `P2`,`P1`, COUNT(`P3`) AS countOf, GROUP_CONCAT(DISTINCT P3) 
FROM table 
GROUP BY `P3`, `P2`,`P1`;