Read JSON Data Error: Received an invalid column length from the bcp client for colid

Hi arie.keren,

Refer below code.

HTML

<asp:GridView ID="grdView" runat="server" CellPadding="3" AutoGenerateColumns="False">
    <Columns>
        <asp:BoundField DataField="data_username" HeaderText="nama_user"></asp:BoundField>
        <asp:BoundField DataField="data_fullname" HeaderText="nama_lengkap"></asp:BoundField>
        <asp:BoundField DataField="data_email" HeaderText="email"></asp:BoundField>
        <asp:BoundField DataField="data_phone" HeaderText="telepon"></asp:BoundField>
        <asp:BoundField DataField="data_idcard_number" HeaderText="no_ktp"></asp:BoundField>
        <asp:BoundField DataField="data_reference" HeaderText="referensi"></asp:BoundField>
    </Columns>
</asp:GridView>

Namespaces

C#

using System.Data;
using Newtonsoft.Json.Linq;
using System.Web.Script.Serialization;

VB.Net

Imports System.Data
Imports Newtonsoft.Json.Linq
Imports System.Web.Script.Serialization

Code

C#

protected void Page_Load(object sender, EventArgs e)
{
    if (!IsPostBack)
    {
        BindData();
    }
}

private void BindData()
{
    string parameter_alamat = "http://222.124.22.217:8080/kreditnusantararest-1.0/users/webtoken?token=312c760f-f712-4f22-bc56-a889503c6945";
    DataTable dt = new DataTable();
    dt.Columns.AddRange(new DataColumn[9] { 
        new DataColumn("rcode", typeof(string)), 
        new DataColumn("rmessage", typeof(string)), 
        new DataColumn("data_users_id", typeof(string)), 
        new DataColumn("data_username", typeof(string)), 
        new DataColumn("data_fullname", typeof(string)), 
        new DataColumn("data_email", typeof(string)), 
        new DataColumn("data_phone", typeof(string)), 
        new DataColumn("data_idcard_number", typeof(string)), 
        new DataColumn("data_reference", typeof(string)) });

    string url = new System.Net.WebClient().DownloadString(parameter_alamat);
    JArray jsonArray = JArray.Parse("[" + url.Trim() + "]");

    for (int i = 0; i <= jsonArray.Count - 1; i++)
    {
        Infos isiData = (new JavaScriptSerializer()).Deserialize<Infos>(jsonArray[i].ToString());
        DataRow dr = dt.NewRow();
        dr["rcode"] = isiData.rcode;
        dr["rmessage"] = isiData.rmessage;
        if (isiData.data != null)
        {
            for (int j = 0; j <= isiData.data.Count - 1; j++)
            {
                dr["data_users_id"] = isiData.data[j].users_id;
                dr["data_username"] = isiData.data[j].username;
                dr["data_fullname"] = isiData.data[j].fullname;
                dr["data_email"] = isiData.data[j].email;
                dr["data_phone"] = isiData.data[j].phone;
                dr["data_idcard_number"] = isiData.data[j].idcard_number;
                dr["data_reference"] = isiData.data[j].reference;
            }
            dt.Rows.Add(dr);
        }
        else
        {
            dt.Rows.Add(dr);
        }
    }

    if (dt.Rows.Count > 0)
    {
        grdView.DataSource = dt;
        grdView.DataBind();
    }
}

public class Infos
{
    public int rcode { get; set; }
    public string rmessage { get; set; }
    public List<User> data { get; set; }
}

public class User
{
    public string users_id { get; set; }
    public string username { get; set; }
    public string fullname { get; set; }
    public string email { get; set; }
    public string phone { get; set; }
    public string idcard_number { get; set; }
    public string reference { get; set; }
}

VB.Net

Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
    If Not IsPostBack Then
        BindData()
    End If
End Sub

Private Sub BindData()
    Dim parameter_alamat As String = "http://222.124.22.217:8080/kreditnusantararest-1.0/users/webtoken?token=312c760f-f712-4f22-bc56-a889503c6945"
    Dim dt As DataTable = New DataTable()
    dt.Columns.AddRange(New DataColumn(8) {New DataColumn("rcode", GetType(String)), New DataColumn("rmessage", GetType(String)), New DataColumn("data_users_id", GetType(String)), New DataColumn("data_username", GetType(String)), New DataColumn("data_fullname", GetType(String)), New DataColumn("data_email", GetType(String)), New DataColumn("data_phone", GetType(String)), New DataColumn("data_idcard_number", GetType(String)), New DataColumn("data_reference", GetType(String))})
    Dim url As String = New System.Net.WebClient().DownloadString(parameter_alamat)
    Dim jsonArray As JArray = JArray.Parse("[" & url.Trim() & "]")
    For i As Integer = 0 To jsonArray.Count - 1
        Dim isiData As Infos = (New JavaScriptSerializer()).Deserialize(Of Infos)(jsonArray(i).ToString())
        Dim dr As DataRow = dt.NewRow()
        dr("rcode") = isiData.rcode
        dr("rmessage") = isiData.rmessage
        If isiData.data IsNot Nothing Then
            For j As Integer = 0 To isiData.data.Count - 1
                dr("data_users_id") = isiData.data(j).users_id
                dr("data_username") = isiData.data(j).username
                dr("data_fullname") = isiData.data(j).fullname
                dr("data_email") = isiData.data(j).email
                dr("data_phone") = isiData.data(j).phone
                dr("data_idcard_number") = isiData.data(j).idcard_number
                dr("data_reference") = isiData.data(j).reference
            Next

            dt.Rows.Add(dr)
        Else
            dt.Rows.Add(dr)
        End If
    Next
    If dt.Rows.Count > 0 Then
        grdView.DataSource = dt
        grdView.DataBind()
    End If
End Sub

Public Class Infos
    Public Property rcode As Integer
    Public Property rmessage As String
    Public Property data As List(Of User)
End Class

Public Class User
    Public Property users_id As String
    Public Property username As String
    Public Property fullname As String
    Public Property email As String
    Public Property phone As String
    Public Property idcard_number As String
    Public Property reference As String
End Class