Public Function Concatenate(pstrSQL As String, Optional pstrDelim As String = ", ") As String
Dim rs As New ADODB.Recordset
rs.Open pstrSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Dim strConcat As String 'Build SQLstring
With rs
If Not .EOF Then
.MoveFirst
Do While Not .EOF
strConcat = strConcat & _
.Fields(0) & pstrDelim
.MoveNext
Loop
End If
.Close
End With
Set rs = Nothing
'Set db = Nothing
If Len(strConcat) > 0 Then
strConcat = Left(strConcat, Len(strConcat) - Len(pstrDelim))
End If
Concatenate = strConcat
End Function 作者: chinajax 时间: 2006-7-3 23:11
ACCESS 里有直接语句能做到么?作者: wwwwa 时间: 2006-7-3 23:15
以下是引用chinajax在2006-7-3 15:11:00的发言:
ACCESS 里有直接语句能做到么?
没有,只有用SQL语句+UDF作者: chinajax 时间: 2006-7-6 19:32
ACCESS里不是有 first last 这样的格式么? 相应的first last 之间的就没么?作者: hi-wzj 时间: 2006-7-6 19:56
用查询也可以做出来的,我的专栏中有例子。作者: chinajax 时间: 2006-7-6 22:17
楼上的给个具体连接. 我也想通过查询去做到作者: chinajax 时间: 2006-7-6 22:33
看到了, 谢谢8楼