复制代码 代码如下: 

SET ANSI_NULLS ONGOSET QUOTED_IDENTIFIER ONGOCREATE PROCEDURE[dbo].[SerializeJSON](@ParameterSQL AS VARCHAR(MAX))ASBEGINDECLARE @SQL NVARCHAR(MAX)DECLARE @XMLString VARCHAR(MAX)DECLARE @XML XMLDECLARE @Paramlist NVARCHAR(1000)SET @Paramlist = N'@XML XML OUTPUT'SET @SQL = 'WITH PrepareTable (XMLString)'SET @SQL = @SQL + 'AS('SET @SQL = @SQL + @ParameterSQL+ 'FOR XML RAW,TYPE,ELEMENTS'SET @SQL = @SQL + ')'SET @SQL = @SQL + 'SELECT @XML=[XMLString]FROM[PrepareTable]'EXEC sp_executesql @SQL, @Paramlist, @XML=@XML OUTPUTSET @XMLString=CAST(@XML AS VARCHAR(MAX))DECLARE @JSON VARCHAR(MAX)DECLARE @Row VARCHAR(MAX)DECLARE @RowStart INTDECLARE @RowEnd INTDECLARE @FieldStart INTDECLARE @FieldEnd INTDECLARE @KEY VARCHAR(MAX)DECLARE @Value VARCHAR(MAX)DECLARE @StartRoot VARCHAR(100);SET @StartRoot=''DECLARE @EndRoot VARCHAR(100);SET @EndRoot=''DECLARE @StartField VARCHAR(100);SET @StartField='<'DECLARE @EndField VARCHAR(100);SET @EndField='>'SET @RowStart=CharIndex(@StartRoot,@XMLString,0)SET @JSON=''WHILE @RowStart>0BEGINSET @RowStart=@RowStart+Len(@StartRoot)SET @RowEnd=CharIndex(@EndRoot,@XMLString,@RowStart)SET @Row=SubString(@XMLString,@RowStart,@RowEnd-@RowStart)SET @JSON=@JSON+'{'-- for each rowSET @FieldStart=CharIndex(@StartField,@Row,0)WHILE @FieldStart>0BEGIN-- parse node keySET @FieldStart=@FieldStart+Len(@StartField)SET @FieldEnd=CharIndex(@EndField,@Row,@FieldStart)SET @KEY=SubString(@Row,@FieldStart,@FieldEnd-@FieldStart)SET @JSON=@JSON+'"'+@KEY+'":'-- parse node valueSET @FieldStart=@FieldEnd+1SET @FieldEnd=CharIndex('0SET @JSON=SubString(@JSON,0,LEN(@JSON))SET @JSON=@JSON+'},'--/ for each rowSET @RowStart=CharIndex(@StartRoot,@XMLString,@RowEnd)ENDIF LEN(@JSON)>0SET @JSON=SubString(@JSON,0,LEN(@JSON))SET @JSON='['+@JSON+']'SELECT @JSONENDGO

复制代码 代码如下: 

EXEC[SerializeJSON]'SELECT*FROM[Employee_TBL]'