Computer Science Research: April 2017

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

Computer Science Research

Thursday, 6 April 2017

Show Id automatically in the form - VB.NET