Please help if there is something wrong with the script I created. Why the results of JSON Data not showing.
<head runat="server">
<title>JSON Data</title>
</head>
<body>
<form id="form1" runat="server">
<div>
<asp:GridView ID="grdView" runat="server" AutoGenerateColumns="true" Width="100%" CellPadding="4" ForeColor="#333333" GridLines="None" EmptyDataText="Data Not Found">
<AlternatingRowStyle BackColor="White" />
<EditRowStyle BackColor="#7C6F57" />
<FooterStyle BackColor="#1C5E55" Font-Bold="True" ForeColor="White" />
<HeaderStyle BackColor="#1C5E55" Font-Bold="True" ForeColor="White" />
<PagerStyle BackColor="#666666" ForeColor="White" HorizontalAlign="Center" />
<RowStyle BackColor="#E3EAEB" />
<SelectedRowStyle BackColor="#C5BBAF" Font-Bold="True" ForeColor="#333333" />
<SortedAscendingCellStyle BackColor="#F8FAFA" />
<SortedAscendingHeaderStyle BackColor="#246B61" />
<SortedDescendingCellStyle BackColor="#D4DFE1" />
<SortedDescendingHeaderStyle BackColor="#15524A" />
</asp:GridView>
</div>
</form>
</body>
Imports System.Web.Services
Imports System.Configuration
Imports System.Data.SqlClient
Imports System.Web
Imports System.Web.Script.Serialization
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Collections.Generic
Imports System.IO
Imports System.Linq
Imports System.Net
Imports Newtonsoft.Json.Linq
Public Class parameter
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim dt As New DataTable()
dt.Columns.AddRange(New DataColumn(9) {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_password", GetType(String)), New DataColumn("data_reference", GetType(String))})
Dim url As String = New System.Net.WebClient().DownloadString("http://128.199.235.96:8080/kreditnusantararest/users/webtoken?token=0fee77eb-1314-4040-9114-c49b4e3b7fd6")
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())
For j As Integer = 0 To isiData.data.Count - 1
Dim dr As DataRow = dt.NewRow()
dr("rcode") = isiData.rcode
dr("rmessage") = isiData.rmessage
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).idcardnumber
dr("data_password") = isiData.data(j).password
dr("data_reference") = isiData.data(j).reference
dt.Rows.Add(dr)
Next
Next
If dt.Rows.Count > 0 Then
grdView.DataSource = dt
grdView.DataBind()
End If
End Sub
Public Class Infos
Public Property rcode() As String
Get
Return m_rcode
End Get
Set(value As String)
m_rcode = value
End Set
End Property
Private m_rcode As String
Public Property rmessage() As String
Get
Return m_rmessage
End Get
Set(value As String)
m_rmessage = value
End Set
End Property
Private m_rmessage As String
Private m_data As List(Of Data)
Public Property data() As List(Of Data)
Get
Return m_data
End Get
Set(value As List(Of Data))
m_data = value
End Set
End Property
End Class
Public Class Data
Public Property users_id() As String
Get
Return m_users_id
End Get
Set(value As String)
m_users_id = value
End Set
End Property
Private m_users_id As String
Public Property username() As String
Get
Return m_username
End Get
Set(value As String)
m_username = value
End Set
End Property
Private m_username As String
Public Property fullname() As String
Get
Return m_fullname
End Get
Set(value As String)
m_fullname = value
End Set
End Property
Private m_fullname As String
Public Property email() As String
Get
Return m_email
End Get
Set(value As String)
m_email = value
End Set
End Property
Private m_email As String
Public Property phone() As String
Get
Return m_phone
End Get
Set(value As String)
m_phone = value
End Set
End Property
Private m_phone As String
Public Property idcardnumber() As String
Get
Return m_idcardnumber
End Get
Set(value As String)
m_idcardnumber = value
End Set
End Property
Private m_idcardnumber As String
Public Property password() As String
Get
Return m_password
End Get
Set(value As String)
m_password = value
End Set
End Property
Private m_password As String
Public Property reference() As String
Get
Return m_reference
End Get
Set(value As String)
m_reference = value
End Set
End Property
Private m_reference As String
End Class
End Class
