[英]access sql query to concatenate rows
我有csv格式的以下數據,並以訪問格式導出
House Number | Road name | Postcode
1 | alex road | sw2 4r
2 | alex road | sw2 4r
3 | alex road | sw1 2b
4 | alex road | sw2 4r
5 | alex road | sw2 4r
7 | brit road | bw2 4t
4 | brit road | bw2 4t
6 | brit road | bw2 4t
8 | brit road | bw2 4t
10 | brit road | bw2 4t
我需要一個ACCESS SQL查詢,該查詢可以按路名將所有記錄分組,總記錄可以超過20,000
我需要以下格式的輸出
Road Name | House Number | Postcode
--------------------------------------
alex road | 1,2,3,4,5 | sw2 4r,sw1 2b
brit road | 7,4,6,8,10 | bw2 4t
正如有一天所指出的那樣,在SO的早期文章中,使用ADO會更容易,這里有一個示例
查詢樣例:
SELECT d.DeptID, d.Department,
ConcatADO("SELECT FName & ' ' & SName, Address FROM Persons
WHERE DeptID=" & [d].[DeptID],", "," : ") AS Who
FROM Departments AS d INNER JOIN Persons AS p ON d.DeptID = p.DeptID
GROUP BY d.DeptID, d.Department, 3;
使用ADO的功能
Function ConcatADO(strSQL As String, strColDelim, strRowDelim, ParamArray NameList() As Variant)
Dim rs As New ADODB.Recordset
Dim strList As String
On Error GoTo Proc_Err
If strSQL <> "" Then
rs.Open strSQL, CurrentProject.Connection
strList = rs.GetString(, , strColDelim, strRowDelim)
strList = Mid(strList, 1, Len(strList) - Len(strRowDelim))
Else
strList = Join(NameList, strColDelim)
End If
ConcatADO = strList
Exit Function
Proc_Err:
ConcatADO = "***" & UCase(Err.Description)
End Function
因為在Access中沒有像group_concat這樣的函數。 所以我使用其內置的導入工具將csv文件導入到phpMyAdmin mysql數據庫中,並使用以下查詢對它們進行分組
SELECT road,pcode, group_concat(house_number)
FROM mytable
GROUP BY road, pcode
然后使用內置的導出工具phpmyadmin將其導出回csv。 我不知道是否有更好的方法可以做到這一點。
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.