Thank you for the script was successful. Current constraints json if data more than one what i should do.
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<title></title>
</head>
<body>
<form id="form1" runat="server">
<div>
<asp:GridView ID="grdView" HeaderStyle-BackColor="#3AC0F2" HeaderStyle-ForeColor="White"
runat="server" AutoGenerateColumns="true">
</asp:GridView>
</div>
</form>
</body>
</html>
Imports System.Data
Imports System.Net
Imports Newtonsoft.Json.Linq
Public Class gridJson
Inherits System.Web.UI.Page
Public Property Totaldatacount() As Integer
Get
Return m_Totaldatacount
End Get
Set(value As Integer)
m_Totaldatacount = value
End Set
End Property
Private m_Totaldatacount As Integer
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim qcount As Integer = 0
Dim sb As New StringBuilder()
Dim c As New WebClient()
Dim data As String = New System.Net.WebClient().DownloadString("http://kn.tokonusaria.com/testpoint/node.json")
Dim jsonArray As JArray = JArray.Parse(data)
Dim obj As Object = JObject.Parse(jsonArray(0).ToString())
Totaldatacount = obj.Item("record").Count
Dim dt As New DataTable()
dt.Columns.AddRange(New DataColumn(5) {New DataColumn("nid", GetType(Integer)), New DataColumn("vid", GetType(Integer)), New DataColumn("type", GetType(String)), New DataColumn("language", GetType(String)), New DataColumn("title", GetType(String)), New DataColumn("uri", GetType(String))})
If obj.Item("record").Count >= 1 Then
While qcount < Totaldatacount
Dim nid As String = obj.Item("record").Item(qcount).Item("nid").ToString()
Dim vid As String = obj.Item("record").Item(qcount).Item("vid").ToString()
Dim type As String = obj.Item("record").Item(qcount).Item("type").ToString()
Dim language As String = obj.Item("record").Item(qcount).Item("language").ToString()
Dim title As String = obj.Item("record").Item(qcount).Item("title").ToString()
Dim uri As String = obj.Item("record").Item(qcount).Item("uri").ToString()
dt.Rows.Add(nid, vid, type, language, title, uri)
qcount = qcount + 1
End While
End If
If dt.Rows.Count > 0 Then
'Bind DataTable to your GridView
grdView.DataSource = dt
grdView.DataBind()
End If
End Sub
End Class