Eu realmente não aconselharia, existem maneiras muito melhores de fazer isso na camada do aplicativo, mas o seguinte evita loops e é muito menos detalhado do que seu método atual:
CREATE PROCEDURE dbo.GetJSON @ObjectName VARCHAR(255), @registries_per_request smallint = null
AS
BEGIN
IF OBJECT_ID(@ObjectName) IS NULL
BEGIN
SELECT Json = '';
RETURN
END;
DECLARE @Top NVARCHAR(20) = CASE WHEN @registries_per_request IS NOT NULL
THEN 'TOP (' + CAST(@registries_per_request AS NVARCHAR) + ') '
ELSE ''
END;
DECLARE @SQL NVARCHAR(MAX) = N'SELECT ' + @Top + '* INTO ##T ' +
'FROM ' + @ObjectName;
EXECUTE SP_EXECUTESQL @SQL;
DECLARE @X NVARCHAR(MAX) = '[' + (SELECT * FROM ##T FOR XML PATH('')) + ']';
SELECT @X = REPLACE(@X, '<' + Name + '>',
CASE WHEN ROW_NUMBER() OVER(ORDER BY Column_ID) = 1 THEN '{'
ELSE '' END + Name + ':'),
@X = REPLACE(@X, '</' + Name + '>', ','),
@X = REPLACE(@X, ',{', '}, {'),
@X = REPLACE(@X, ',]', '}]')
FROM sys.columns
WHERE [Object_ID] = OBJECT_ID(@ObjectName)
ORDER BY Column_ID;
DROP TABLE ##T;
SELECT Json = @X;
END
N.B. Eu mudei seu nome de objeto de duas partes (@schema e @table) para aceitar apenas o nome completo do objeto.
Exemplo no SQL Fiddle
A ideia é basicamente usar a extensão XML dentro do SQL-Server para transformar a tabela em XML, depois é só substituir as tags de início por
{ColumnName:
e as tags finais com ,
. Em seguida, são necessárias mais duas substituições para parar de adicionar o colchete de fechamento à última coluna de cada linha e remover o ,
final da string JSON.