"Auto Refresh ASP.net page how to" by VB.net

Through this article, I am going to explain how we can auto refresh data on an ASP.NET
page after a certain interval. Lets for the time, use database Oracle and set our interval time for refreshing data as 10 seconds.

"<% Me.Response.AppendHeader("Refresh", "10")
Call funt_onclick(Form_ID, System.EventArgs.Empty)
%>
"

The the page will be refreshed after every 10 seconds.

Now create two textboxes as named Textbox1,Textbox2 under a form named form1.

In page1.aspx:
<%@ Page Language="VB" AutoEventWireup="True" CodeFile="page1.aspx.vb" Inherits="page1" %>
<% Me.Response.AppendHeader("Refresh", "10")
Call funt_onclick(form1, System.EventArgs.Empty)
%>

Code page (page1.aspx.vb) :
Partial Class page1
Inherits System.Web.UI.Page
Sub funt_onclick(ByVal sender As Object, ByVal e As EventArgs)

Call OraGET_Data()

End Sub

Private Sub OraGET_Data()
Dim OraConStr="" 'Give your Database connection string
Dim OraSql As String
Dim ORAcMD As System.Data.OracleClient.OracleCommand
Dim ORA_DR As System.Data.OracleClient.OracleDataReader

Dim myOraCon As New System.Data.OracleClient.OracleConnection(OraConStr)
Try

If (myOraCon.State = ConnectionState.Closed) Then
myOraCon.Open()
End If

'Oracle Database Sql Command
'+++++++++++++++++++++++++++
OraSql = "SELECT RINDEX,IDATE FROM DATA_table" ' VB.NET
ORAcMD = New System.Data.OracleClient.OracleCommand(OraSql, myOraCon)
ORAcMD.CommandType = CommandType.Text

'Oracle Table Reader
'+++++++++++++++++++++++++++
'dr_Stm = New System.Data.OracleClient.OracleDataReader
ORA_DR = ORAcMD.ExecuteReader()
ORA_DR.Read()

'initailize data for Textbox

Textbox1.Text = ORA_DR.Item("RINDEX")
Textbox2.Text = ORA_DR.Item("IDATE")

Catch ExOra As System.Data.OracleClient.OracleException
Response.Write(ExOra.ToString)
Catch Exp_nor As Exception
Response.Write(Exp_nor.ToString)

Finally
Call OraDBConCloz(myOraCon)

End Try

End Sub


Private Sub OraDBConCloz(ByVal OraCon As System.Data.OracleClient.OracleConnection)
'---- Check connection open or not -------------
If (OraCon.State = ConnectionState.Open) Then
OraCon.Close()
OraCon.Dispose()
End If
End Sub

End Class