sql 将结果集系列化为json

存储过程如下：SET ANSI_NULLS ONGOSET QUOTED_IDENTIFIER ONGOCREATE PROCEDURE[dbo].[SerializeJSON](@ParameterSQL AS VARCHAR(MAX))ASBEGIN  DECLARE @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='<row>'DECLARE @EndRoot VARCHAR(100);SET @EndRoot='</row>'DECLARE @StartField VARCHAR(100);SET @StartField='<'DECLARE @EndField VARCHAR(100);SET @EndField='>'  SET @RowStart=CharIndex(@StartRoot,@XMLString,0)SET @JSON=''WHILE @RowStart>0BEGIN    SET @RowStart=@RowStart+Len(@StartRoot)    SET @RowEnd=CharIndex(@EndRoot,@XMLString,@RowStart)    SET @Row=SubString(@XMLString,@RowStart,@RowEnd-@RowStart)    SET @JSON=@JSON+'{'      -- for each row    SET @FieldStart=CharIndex(@StartField,@Row,0)    WHILE @FieldStart>0    BEGIN        -- parse node key        SET @FieldStart=@FieldStart+Len(@StartField)        SET @FieldEnd=CharIndex(@EndField,@Row,@FieldStart)        SET @KEY=SubString(@Row,@FieldStart,@FieldEnd-@FieldStart)        SET @JSON=@JSON+'"'+@KEY+'":'        -- parse node value        SET @FieldStart=@FieldEnd+1        SET @FieldEnd=CharIndex('</',@Row,@FieldStart)        SET @Value=SubString(@Row,@FieldStart,@FieldEnd-@FieldStart)        SET @JSON=@JSON+'"'+@Value+'",'          SET @FieldStart=@FieldStart+Len(@StartField)        SET @FieldEnd=CharIndex(@EndField,@Row,@FieldStart)        SET @FieldStart=CharIndex(@StartField,@Row,@FieldEnd)    END        IF LEN(@JSON)>0SET @JSON=SubString(@JSON,0,LEN(@JSON))    SET @JSON=@JSON+'},'    --/ for each row      SET @RowStart=CharIndex(@StartRoot,@XMLString,@RowEnd)ENDIF LEN(@JSON)>0SET @JSON=SubString(@JSON,0,LEN(@JSON))SET @JSON='['+@JSON+']'SELECT @JSON  ENDGO

<pre name="code" class="csharp">调用存储过程方式：

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