Converting a Data Table to JSON String...............

Data Table to JSON String


Below function helps you to convert Datatable to JSON String

    Public Function ConvertDataTableToJSON(JDataTable As DataTable) As String
        Dim JResString As String = ""
        Dim List_Rows As New List(Of Dictionary(Of String, Object))
        Dim Dic_Row As Dictionary(Of String, Object)
        For Each JDTAB_Row As DataRow In JDataTable.Rows
            Dic_Row = New Dictionary(Of String, Object)
            Dic_Row.Add(JDTAB_Row(0), JDTAB_Row(1))
            List_Rows.Add(Dic_Row)
        Next
        Dim JSerialiser As New DataContractJsonSerializer(List_Rows.[GetType]())
        Dim _MemoryStram As New MemoryStream()
        JSerialiser.WriteObject(_MemoryStram, List_Rows)
        JResString = Encoding.[Default].GetString(_MemoryStram.ToArray())
        _MemoryStram.Close()
        Return JResString
    End Function