MS Access：根据记录数使用不同分隔符连接记录集

Question

如何连接记录集并根据记录数分隔记录？对于一条记录没有分隔符，“和”对于两条记录以及两条以上的记录与“”和“最后一条记录之前的逗号之间的逗号”。

Answer 1

我会做这样的事情：

Dim test() As String 
Dim arraySize As Integer 
Dim arrayCounter As Integer 
Dim rec as RecordSet 

Set rec = CurrentDB.OpenRecordset("SELECT MyField FROM MyTable") 

'I was always told that MoveFirst/MoveLast gave the most 
' accurate count of records 
rec.MoveFirst 
rec.MoveLast 
arraysize = rec.RecordCount 

'reDim the array, now that you know the size 
reDim test(arraySize) 

'Fill the array 
For i = 0 to arraysize - 1 
    test(i) = rec(0) 
next I 

'Set up the text string 
MyText = "" 

For j = 0 to arraysize - 1 
    If (j - 1) = arraysize Then 
    MyText = MyText & " and " & test(j) 
    else 
    MyText = MyText & ", " & test(j) 
    End If 
Next j 

'Trim off the first comma 
MyFinalText = Trim(Right(MyText, Len(MyText) - 2))