ASPX Code
<body>
<form id="form1" runat="server">
<div>
<table>
<tr>
<td>
</td>
<td colspan="2">
<asp:Label ID="lblResult" runat="server"></asp:Label>
</td>
</tr>
<tr>
<td>
Name:
</td>
<td>
<asp:TextBox ID="txtName" runat="server"></asp:TextBox>
</td>
</tr>
<tr>
<td>
Email:
</td>
<td>
<asp:TextBox ID="txtEmail" runat="server"></asp:TextBox>
</td>
</tr>
<tr>
<td>
Age:
</td>
<td>
<asp:TextBox ID="txtAge" runat="server"></asp:TextBox>
</td>
</tr>
<tr>
<td>
<asp:Button ID="btnSave" runat="server" Text="Save" OnClick="btnSave_Click"/>
</td>
<td>
<asp:Button ID="btnClear" runat="server" Text="Clear" OnClick="btnClear_Click"/>
</td>
</tr>
</table>
</div>
</form>
</body>
VB.NET CODE
Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Web
Imports System.Data
Imports System.Data.SqlClient
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Configuration
Public Class TestReloadForms
Inherits System.Web.UI.Page
Private con As SqlConnection
Private adap As SqlDataAdapter
Private dt As DataTable
Private cmd As SqlCommand
Dim strConnString As String
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
Session("CheckRefresh") = Server.UrlDecode(System.DateTime.Now.ToString())
End If
End Sub
Public Sub New()
con = New SqlConnection(ConfigurationManager.ConnectionStrings("ConStr").ConnectionString)
End Sub
Protected Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
If Session("CheckRefresh").ToString() <> "" Then
cmd = New SqlCommand("insert into Student values(@Name,@Email,@Age)", con)
cmd.Parameters.AddWithValue("@Name", txtName.Text)
cmd.Parameters.AddWithValue("@Email", txtEmail.Text)
cmd.Parameters.AddWithValue("@Age", txtAge.Text)
con.Open()
Dim i As Integer = cmd.ExecuteNonQuery()
If (i > 0) Then
lblResult.Text = "Saved!..."
Session("CheckRefresh") = ""
End If
Else
lblResult.Text = "Page Refreshed"
txtName.Text = ""
txtEmail.Text = ""
txtAge.Text = ""
End If
End Sub
Protected Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click
txtName.Text = ""
txtEmail.Text = ""
txtAge.Text = ""
End Sub
End Class
<body>
<form id="form1" runat="server">
<div>
<table>
<tr>
<td>
</td>
<td colspan="2">
<asp:Label ID="lblResult" runat="server"></asp:Label>
</td>
</tr>
<tr>
<td>
Name:
</td>
<td>
<asp:TextBox ID="txtName" runat="server"></asp:TextBox>
</td>
</tr>
<tr>
<td>
Email:
</td>
<td>
<asp:TextBox ID="txtEmail" runat="server"></asp:TextBox>
</td>
</tr>
<tr>
<td>
Age:
</td>
<td>
<asp:TextBox ID="txtAge" runat="server"></asp:TextBox>
</td>
</tr>
<tr>
<td>
<asp:Button ID="btnSave" runat="server" Text="Save" OnClick="btnSave_Click"/>
</td>
<td>
<asp:Button ID="btnClear" runat="server" Text="Clear" OnClick="btnClear_Click"/>
</td>
</tr>
</table>
</div>
</form>
</body>
VB.NET CODE
Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Web
Imports System.Data
Imports System.Data.SqlClient
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Configuration
Public Class TestReloadForms
Inherits System.Web.UI.Page
Private con As SqlConnection
Private adap As SqlDataAdapter
Private dt As DataTable
Private cmd As SqlCommand
Dim strConnString As String
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
Session("CheckRefresh") = Server.UrlDecode(System.DateTime.Now.ToString())
End If
End Sub
Public Sub New()
con = New SqlConnection(ConfigurationManager.ConnectionStrings("ConStr").ConnectionString)
End Sub
Protected Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
If Session("CheckRefresh").ToString() <> "" Then
cmd = New SqlCommand("insert into Student values(@Name,@Email,@Age)", con)
cmd.Parameters.AddWithValue("@Name", txtName.Text)
cmd.Parameters.AddWithValue("@Email", txtEmail.Text)
cmd.Parameters.AddWithValue("@Age", txtAge.Text)
con.Open()
Dim i As Integer = cmd.ExecuteNonQuery()
If (i > 0) Then
lblResult.Text = "Saved!..."
Session("CheckRefresh") = ""
End If
Else
lblResult.Text = "Page Refreshed"
txtName.Text = ""
txtEmail.Text = ""
txtAge.Text = ""
End If
End Sub
Protected Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click
txtName.Text = ""
txtEmail.Text = ""
txtAge.Text = ""
End Sub
End Class
No comments:
Post a Comment