'---------------------------------------------------------------------------------------
' Procedure : JoinRS
' DateTime : 25/09/04
' Author : José Bengoechea Ibaceta (Chea)
' Purpose : Devuelve una cadena de texto con todos los valores del campo NombreCampo
' : en el recordset RS, separados con Separador
' Estás autorizado a utilizar este código dentro de una aplicación
' siempre que esta nota de autor permanezca inalterada.
' En el caso de querer publicarlo en una página Web, por favor,
' contactar con el autor en
'
'
[email protected] '---------------------------------------------------------------------------------------
Public Function JoinRS(rs As ADODB.Recordset, NombreCampo As Variant, Separador _
As String) As String
Dim stTemp As String, v As Variant, i As Integer
v = rs.GetRows(, , NombreCampo)
ReDim matriz(UBound(v, 2)) As Variant
For i = 0 To UBound(v, 2) - 1
matriz(i) = v(0, i)
Next i
stTemp = Join(matriz, Separador)
JoinRS = stTemp
End Function