Caching in ASP.Net using C# and VB.Net

Hi Nishu,

Refer below sample.

HTML

<asp:GridView runat="server" ID="gvCustomers" />
<hr />
<asp:GridView runat="server" ID="GridView1" />
<br />
<asp:Button Text="GetData" runat="server" OnClick="GetData" />

Namespaces

C#

using System.Data;
using System.Data.SqlClient;
using System.Configuration;

VB.Net

Imports System.Data.SqlClient
Imports System.Data

Code

C#

protected void Page_Load(object sender, EventArgs e)
{
    if (!this.IsPostBack)
    {
        if (Cache["dt"] == null)
        {
            string constr = ConfigurationManager.ConnectionStrings["constr"].ConnectionString;
            SqlConnection con = new SqlConnection(constr);
            SqlCommand cmd = new SqlCommand("SELECT CustomerId,Name,Country FROM CustomerTest", con);
            SqlDataAdapter da = new SqlDataAdapter(cmd);
            DataTable dt = new DataTable();
            da.Fill(dt);
            Cache["dt"] = dt;
            gvCustomers.DataSource = dt;
            gvCustomers.DataBind();
        }
        else
        {
            DataTable dt = Cache["dt"] as DataTable;
            gvCustomers.DataSource = dt;
            gvCustomers.DataBind();
        }
    }
}

protected void GetData(object sender, EventArgs e)
{
    if (Cache["dt"] != null)
    {
        DataTable dt = Cache["dt"] as DataTable;
        GridView1.DataSource = dt;
        GridView1.DataBind();
    }
}

VB.Net

Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
    If Not Me.IsPostBack Then
        If Cache("dt") Is Nothing Then
            Dim constr As String = ConfigurationManager.ConnectionStrings("constr").ConnectionString
            Dim con As SqlConnection = New SqlConnection(constr)
            Dim cmd As SqlCommand = New SqlCommand("SELECT CustomerId,Name,Country FROM CustomerTest", con)
            Dim da As SqlDataAdapter = New SqlDataAdapter(cmd)
            Dim dt As DataTable = New DataTable()
            da.Fill(dt)
            Cache("dt") = dt
            gvCustomers.DataSource = dt
            gvCustomers.DataBind()
        Else
            Dim dt As DataTable = TryCast(Cache("dt"), DataTable)
            gvCustomers.DataSource = dt
            gvCustomers.DataBind()
        End If
    End If
End Sub

Protected Sub GetData(ByVal sender As Object, ByVal e As EventArgs)
    If Cache("dt") IsNot Nothing Then
        Dim dt As DataTable = TryCast(Cache("dt"), DataTable)
        GridView1.DataSource = dt
        GridView1.DataBind()
    End If
End Sub

Screenshot