Dear All,
See the code which show the Id automatically in the form.
Form program - Default.aspx
---------------
<%@ 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 id="Head1" runat="server">
<title></title>
</head>
<body>
<form id="form1" runat="server">
<div>
Welcome to User Edit
</div>
Roll No <asp:TextBox ID="huprollno" runat="server"></asp:TextBox>
<br />
Name <asp:TextBox ID="hupname" runat="server"></asp:TextBox>
<br />
Marks <asp:TextBox ID="hupmarks" runat="server"></asp:TextBox>
<br />
<asp:Button ID="Button1" runat="server" Text="Insert" />
<br />
</form>
</body>
</html>
Code file - Default.aspx.vb
--------------
Imports System.Data
Imports System.Data.SqlClient
Partial Class _Default
Inherits System.Web.UI.Page
Public constr As String
Public ds As New DataSet()
Public da As SqlClient.SqlDataAdapter
Public mySqlConn1 As New SqlClient.SqlConnection(constr)
Public sql, sql1, code, asd, type, cartno As String
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim conn As New SqlConnection
Dim constr As String
constr = "Data Source=.\SQLEXPRESS;AttachDbFilename=E:\AUM HUP C#\HUPAEdit\App_Data\HUPDB.mdf;Integrated Security=true;User Instance=true"
conn.ConnectionString = constr
conn.Open()
sql = "insert into tblHUP values('" & hupname.Text & "','" & huprollno.Text & "','" & hupmarks.Text & "')"
Dim comm As New SqlCommand(sql, conn)
Dim i As Integer
i = comm.ExecuteNonQuery()
MsgBox("Data saved")
Response.Redirect("Default.aspx")
conn.Close()
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim conn As New SqlConnection
Dim constr As String
constr = "Data Source=.\SQLEXPRESS;AttachDbFilename=E:\AUM HUP C#\HUPAEdit\App_Data\HUPDB.mdf;Integrated Security=true;User Instance=true"
conn.ConnectionString = constr
conn.Open()
sql = "select max(rollno) as mid from tblHUP"
Dim comm As New SqlCommand(sql, conn)
Dim id As Integer
Dim dr As SqlDataReader
dr = comm.ExecuteReader
Dim a As Integer
If dr.Read() = True Then
a = 1
id = dr("mid")
End If
id = id + 1
huprollno.Text = id
huprollno.Enabled = False
dr.Close()
End Sub
End Class
