Jag skulle egentligen inte råda det, det finns mycket bättre sätt att göra detta i applikationslagret, men följande undviker loopar och är mycket mindre omfattande än din nuvarande metod:
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. Jag har ändrat ditt tvådelade objektnamn (@schema och @table) för att bara acceptera det fullständiga objektnamnet.
Tanken är att i princip använda XML-tillägget inom SQL-Server för att omvandla tabellen till XML, sedan bara ersätta starttaggarna med {ColumnName:
och sluttaggarna med ,
. Det krävs sedan ytterligare två ersättningar för att sluta lägga till den avslutande parentesen i den sista kolumnen i varje rad och ta bort den sista ,
från JSON-strängen.