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>
</head>
<body>
<form id="form1" runat="server">
<div>
</div>
<asp:GridView ID="GridView1" runat="server" BackColor="#FF9999">
<HeaderStyle BackColor="#FFCC99" />
</asp:GridView>
</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 ds As DataSet
Dim com As SqlCommand
Dim str As String
Dim sqlda As SqlDataAdapter
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
GridView1.DataSource = getdata()
GridView1.DataBind()
End If
End Sub
Function getdata() As DataView
Dim dv As DataView
dv = Cache("student")
con.Open()
str = "select * from student"
com = New SqlCommand(str, con)
ds = New DataSet
sqlda = New SqlDataAdapter(com)
sqlda.Fill(ds, "student")
con.Close()
dv = ds.Tables("student").DefaultView
Cache("student") = dv
Return dv
End Function
End Class