Table structure
Default.aspx code
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<title>Untitled
Page</title>
<link href="style.css" rel="stylesheet" type="text/css" />
</head>
<body>
<form id="form1" runat="server">
<div>
</div>
<asp:GridView ID="GridView1" runat="server">
<HeaderStyle BackColor="#FFCC66" />
<AlternatingRowStyle BackColor="#FF6666" />
</asp:GridView>
<table>
<tr>
<td><a href="Default.aspx" id="uu">Refresh
to get random values</a></td>
</tr>
</table>
</form>
</body>
</html>
Default.aspx.vb code
Imports
System.Data.SqlClient
Imports
System.Data
Partial Class _Default
Inherits System.Web.UI.Page
Dim strConnString
As String =
System.Configuration.ConfigurationManager.ConnectionStrings.Item("ConnectionString").ToString()
Dim con As New SqlConnection(strConnString)
Dim sqlda As
SqlDataAdapter
Dim com As
SqlCommand
Dim ds As
DataSet
Dim str As String
Protected
Sub Page_Load(ByVal sender
As Object,
ByVal e As
System.EventArgs) Handles Me.Load
If Not
IsPostBack Then
bindgrid()
End If
End Sub
Sub bindgrid()
Try
con.Open()
str = "select * from student"
com = New SqlCommand(str,
con)
sqlda = New SqlDataAdapter(com)
ds = New DataSet
sqlda.Fill(ds, "student")
Dim dt As
DataTable = ds.Tables(0)
dt.Columns.Add(New DataColumn("RandomNumber",
GetType(Integer)))
Dim i As Integer
Dim r1
As New Random()
For i = 0
To dt.Rows.Count - 1
dt.Rows(i)("RandomNumber") = r1.Next(10000)
Next i
Dim dv As
DataView = dt.DefaultView
dv.Sort = "RandomNumber"
GridView1.DataSource = dv
GridView1.DataBind()
con.Close()
Catch ex As
Exception
Response.Write(ex.Message)
End Try
End Sub
End Class
Output
