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