Student Database

4. crud operations Default.aspx <%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %> Student Database

Roll No:

Student Name:

Course:

Marks:

Vb code Imports System.Data Imports System.Data.OleDb Partial Class _Default Inherits System.Web.UI.Page Dim con As New OleDbConnection( "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C: \ Users \ Hemasri J \ OneDrive \ Documents \ Visual Studio 2010 \ WebSites \ WebSite11 \ Database4.mdb") ' INSERT Protected Sub btnInsert_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnInsert.Click Dim query As String = "INSERT INTO Table1 ([Roll No], Stud_Name, Course, Marks) VALUES (?, ?, ?, ?)" Dim cmd As New OleDbCommand(query, con) cmd.Parameters.AddWithValue("?", Val(txtRollNo.Text)) cmd.Parameters.AddWithValue("?", txtName.Text) cmd.Parameters.AddWithValue("?", txtCourse.Text) cmd.Parameters.AddWithValue("?", Val(txtMarks.Text)) con.Open() cmd.ExecuteNonQuery() con.Close() lblMessage.Text = "Student inserted successfully." RetrieveData() End Sub ' SELECT / RETRIEVE Protected Sub btnRetrieve_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnRetrieve.Click RetrieveData() End Sub Private Sub RetrieveData() Dim query As String = "SELECT * FROM Table1" Dim da As New OleDbDataAdapter(query, con) Dim dt As New DataTable() da.Fill(dt) DataGrid1.DataSource = dt DataGrid1.DataBind() End Sub ' UPDATE Protected Sub btnUpdate_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnUpdate.Click Dim query As String = "UPDATE Table1 SET Stud_Name=?, Course=?, Marks=? WHERE [Roll No]=?" Dim cmd As New OleDbCommand(query, con) cmd.Parameters.AddWithValue("?", txtName.Text) cmd.Parameters.AddWithValue("?", txtCourse.Text) cmd.Parameters.AddWithValue("?", Val(txtMarks.Text)) cmd.Parameters.AddWithValue ("?", Val(txtRollNo.Text)) con.Open() cmd.ExecuteNonQuery() con.Close() lblMessage.Text = "Student updated successfully." RetrieveData() End Sub ' DELETE Protected Sub btnDelete_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnDelete.Click Dim query As String = "DELETE FROM Table1 WHERE [Roll No]=?" Dim cmd As New OleDbCommand(query, con) cmd.Parameters.AddWithValue("?", Val(txtRollNo.Text)) con.Open() cmd.ExecuteNonQuery() con.Close() lblMessage.Text = "Table1 deleted successfully." RetrieveData() End Sub End Class 7 . Default.aspx <%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %> HTML Server Controls

Student Details

Name:

Department:

Subjects: < br />

VB code — Default.aspx.vb Partial Class _Default Inherits System.Web.UI.Page Protected Sub btnSubmit_ServerClick( ByVal sender As Object, ByVal e As System.EventArgs) lblResult.Text = "Name: " & txtName.Value & "
Department: " & ddlDept.Value End Sub End Class 8) Default.aspx <%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %> Web Server Controls

Student Form

Name:

Gender: < asp:RadioButton ID="rbFemale" runat="server" Text="Female" GroupName="Gender" />

Department: Computer Science Information Technology Commerce

Address:

Subjects: Java HTML ASP.NET

Year: I Year II Year III Year

VB code — Default.aspx.vb Partial Class _Default Inherits System.Web.UI.Page Protected Sub btnSubmit_Click( ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSubmit.Click Dim gender As String = "Not selected" If rbMale.Checked Then gender = "Male" ElseIf rbFemale.Checked Then gender = "Female" End If lblResult.Text = "Name: " & txtName.Text & "
Gender: " & gender & "
Department: " & ddlDept.SelectedValue & "
Address: " & txtAddress.Text & "
Year: " & rblYear.SelectedValue End Sub End Class 9. Default.aspx <%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %> ASP.NET Controls

Student Registration

Name:

Department: Computer Science Information Technology Commerce

Subjects: < asp:ListItem>Java HTML ASP.NET

Hobbies: Reading Music Sports Gender: Male Female

Select Date:

Default.aspx.vb Partial Class _Default Inherits System.Web.UI.Page Protected Sub btnSubmit_Click( ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSubmit.Click lblResult.Text = "Name: " & txtName.Text & "
Department: " & ddlDept.SelectedValue & "
Gender: " & rblGender.SelectedValue & "
Selected Date: " & Calendar1.SelectedDate.ToShortDateString() End Sub End Class 10. Default.aspx <%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %> Student Repeater

Student Details

ID	Name	Department
<%# Eval("StudentID") %>	<%# Eval("StudentName") %>	<%# Eval("Department") %>

Default.aspx.vb Imports System.Data Partial Class _Default Inherits System.Web.UI.Page Protected Sub Page_Load( ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load If Not IsPostBack Then Dim dt As New DataTable() dt.Columns.Add("StudentID") dt.Columns.Add("StudentName") dt.Columns.Add("Department") dt.Rows.Add("101", "Nandy", "Computer Science") dt.Rows.Add ("102", "Hans", "Information Technology") dt.Rows.Add("103", "Hira", "Computer Science") dt.Rows.Add("104", "Nivu", "Commerce") Repeater1.DataSource = dt Repeater1.DataBind() End If End Sub End Class 11. Default.aspx <%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %> Advertisement Page

Advertisement Home Page

Select Category: Education Sports

Default.aspx.vb Partial Class _Default Inherits System.Web.UI.Page Protected Sub ddlCategory_SelectedIndexChanged( ByVal sender As Object, ByVal e As System.EventArgs) AdRotator1.KeywordFilter = ddlCategory.SelectedValue End Sub End Class Advertisements.xml Education.jpg https://www.google.com Education Advertisement Education 50 Sports.jpg https://www.google.com Sports Advertisement Sports 50 12. Calendar.aspx <%@ Page Language="VB" AutoEventWireup ="false" CodeFile="Calendar.aspx.vb" Inherits="CalendarPage" %> Calendar Control

Student Details

Student Form

Student Registration

Student Details

Advertisement Home Page

Calendar

Student Information

Missbrauch melden

PDF-Details

Kontaktdaten

web sem