Foros del web, para los que viven de bits

SET NOCOUNT ON
DECLARE @Respuestas TABLE
(ID int, PUNTO int, RESPUESTA varchar(10))

INSERT INTO @Respuestas(ID, PUNTO, RESPUESTA)
VALUES(1, 22, 'casa')
INSERT INTO @Respuestas(ID, PUNTO, RESPUESTA)
VALUES(2, 24, 'coche')
INSERT INTO @Respuestas(ID, PUNTO, RESPUESTA)
VALUES(3, 56, 'casa')
INSERT INTO @Respuestas(ID, PUNTO, RESPUESTA)
VALUES(4, 99, 'casa')
INSERT INTO @Respuestas(ID, PUNTO, RESPUESTA)
VALUES(5, 12, 'libro')
INSERT INTO @Respuestas(ID, PUNTO, RESPUESTA)
VALUES(6, 66, 'papel')
INSERT INTO @Respuestas(ID, PUNTO, RESPUESTA)
VALUES(5, 11, 'libro')

DECLARE @TablaPorRespuesta TABLE
(RowId int identity(1,1), RESPUESTA varchar(10), Puntos varchar(50))

INSERT INTO @TablaPorRespuesta(RESPUESTA, Puntos)
SELECT RESPUESTA,''
FROM @Respuestas
GROUP BY RESPUESTA

DECLARE @RowId int, @MaxRowId int, @Puntos varchar(50)

SET @RowId = 1
SELECT @MaxRowId = Count(1)
FROM @TablaPorRespuesta

WHILE @RowId <= @MaxRowId
BEGIN
	SET @Puntos = ''
	SELECT @Puntos = @Puntos + convert(varchar,Punto) + '--'
	FROM @TablaPorRespuesta TR
	INNER JOIN @Respuestas R
	ON TR.Respuesta = R.Respuesta
	WHERE @RowId = RowId
	Order by Punto

	UPDATE @TablaPorRespuesta SET Puntos = LEFT(@Puntos,LEN(@Puntos)-2)
	WHERE @RowId = RowId
	
	SET @RowId = @RowId + 1
END

SELECT Respuesta + ',' + Puntos AS Resultado
FROM @TablaPorRespuesta
Order by Respuesta

SET NOCOUNT OFF

SET NOCOUNT ON
CREATE TABLE Respuestas
(ID int, PUNTO int, RESPUESTA varchar(10))

CREATE FUNCTION FnObtenerString
(
	@RESPUESTA AS VARCHAR(50)
) RETURNS VARCHAR(100)
AS
BEGIN
	DECLARE @RETVALUE AS VARCHAR(100)

	SET @RETVALUE = ''

	SELECT @RETVALUE = @RETVALUE + CAST(PUNTO AS VARCHAR) + '--'
	FROM RESPUESTAS
	WHERE RESPUESTA = @RESPUESTA

	RETURN @RETVALUE
	
END

INSERT INTO Respuestas(ID, PUNTO, RESPUESTA)
VALUES(1, 22, 'casa')
INSERT INTO Respuestas(ID, PUNTO, RESPUESTA)
VALUES(2, 24, 'coche')
INSERT INTO Respuestas(ID, PUNTO, RESPUESTA)
VALUES(3, 56, 'casa')
INSERT INTO Respuestas(ID, PUNTO, RESPUESTA)
VALUES(4, 99, 'casa')
INSERT INTO Respuestas(ID, PUNTO, RESPUESTA)
VALUES(5, 12, 'libro')
INSERT INTO Respuestas(ID, PUNTO, RESPUESTA)
VALUES(6, 66, 'papel')
INSERT INTO Respuestas(ID, PUNTO, RESPUESTA)
VALUES(5, 11, 'libro')

SELECT RESPUESTA, DBO.FnObtenerString(RESPUESTA)
FROM RESPUESTAS
GROUP BY RESPUESTA