[英]ms-access query needs to concatenate the numbering or counting
餐桌水果
FName
-----
orange
apple
apple
3mango
orange
orange
apple
mango
我想要一個帶有計數結果的查詢。
orange-1
apple-1
apple-2
mango-1
orange-2
orange-3
apple-3
mango-2
在MS SQL Server中,將有一個簡單的ROW_NUMBER()
窗口函數,因此您只需要MS Access中的等效函數。 但是為此,您需要在表中有一個id
列,因為您需要進行自聯接 。
此處也提供解決方案: 在MS Access中實現ROW_NUMBER / PARTITION BY
declare @tbl as table (
id int
,fname varchar(15)
)
insert into @tbl values (1,'orange')
insert into @tbl values (2,'apple')
insert into @tbl values (3,'apple')
insert into @tbl values (4,'mango')
insert into @tbl values (5,'orange')
insert into @tbl values (6,'orange')
insert into @tbl values (7,'apple')
insert into @tbl values (8,'mango')
SELECT
t1.id
,t1.fname
,COUNT(*) AS [Ino Seq]
FROM
@tbl AS t1
INNER JOIN
@tbl AS t2
ON t2.fname = t1.fname
and t1.id >= t2.id
GROUP BY t1.id, t1.fname
如果添加ID(自動編號),則可以將水果名稱用作組鍵來使用此功能:
Public Function RowCounter( _
ByVal strKey As String, _
ByVal booReset As Boolean, _
Optional ByVal strGroupKey As String) _
As Long
' Builds consecutive RowIDs in select, append or create query
' with the possibility of automatic reset.
' Optionally a grouping key can be passed to reset the row count
' for every group key.
'
' Usage (typical select query):
' SELECT RowCounter(CStr([ID]),False) AS RowID, *
' FROM tblSomeTable
' WHERE (RowCounter(CStr([ID]),False) <> RowCounter("",True));
'
' Usage (with group key):
' SELECT RowCounter(CStr([ID]),False,CStr[GroupID])) AS RowID, *
' FROM tblSomeTable
' WHERE (RowCounter(CStr([ID]),False) <> RowCounter("",True));
'
' The Where statement resets the counter when the query is run
' and is needed for browsing a select query.
'
' Usage (typical append query, manual reset):
' 1. Reset counter manually:
' Call RowCounter(vbNullString, False)
' 2. Run query:
' INSERT INTO tblTemp ( RowID )
' SELECT RowCounter(CStr([ID]),False) AS RowID, *
' FROM tblSomeTable;
'
' Usage (typical append query, automatic reset):
' INSERT INTO tblTemp ( RowID )
' SELECT RowCounter(CStr([ID]),False) AS RowID, *
' FROM tblSomeTable
' WHERE (RowCounter("",True)=0);
'
' 2002-04-13. Cactus Data ApS. CPH
' 2002-09-09. Str() sometimes fails. Replaced with CStr().
' 2005-10-21. Str(col.Count + 1) reduced to col.Count + 1.
' 2008-02-27. Optional group parameter added.
' 2010-08-04. Corrected that group key missed first row in group.
Static col As New Collection
Static strGroup As String
On Error GoTo Err_RowCounter
If booReset = True Then
Set col = Nothing
ElseIf strGroup <> strGroupKey Then
Set col = Nothing
strGroup = strGroupKey
col.Add 1, strKey
Else
col.Add col.Count + 1, strKey
End If
RowCounter = col(strKey)
Exit_RowCounter:
Exit Function
Err_RowCounter:
Select Case Err
Case 457
' Key is present.
Resume Next
Case Else
' Some other error.
Resume Exit_RowCounter
End Select
End Function
有關典型用法,請參見在線注釋。
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.