DB Connectivity 1. SELECT Default.aspx <%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %> Default.aspx.vb Imports System.Data Imports System.Data.OleDb 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 DBConn As OleDb.OleDbConnection Dim DBCommand As OleDb.OleDbDataAdapter Dim DSPageData As New DataSet DBConn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;DATA SOURCE=StudentDB.accdb") DBCommand = New OleDbDataAdapter("SELECT RollNo,Stud_Name,Course,Marks from Students", DBConn) DBCommand.Fill(DSPageData, "Students") DataGrid.DataSource = DSPageData.Tables("Students").DefaultView DataGrid.DataBind() End If End Sub End Class 2. DELETE Default2.aspx <%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default2.aspx.vb" Inherits="Default2" %> Default2.aspx.vb Imports System.Data Imports System.Data.OleDb Partial Class Default2 Inherits System.Web.UI.Page Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Dim DBConn As OleDb.OleDbConnection Dim DBcommand As New OleDb.OleDbDataAdapter Dim DBDelete As New OleDb.OleDbCommand DBConn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;DATA SOURCE=StudentDB.accdb") DBDelete.CommandText = "Delete from Students where RollNo=3" DBDelete.Connection = DBConn DBDelete.Connection.Open() DBDelete.ExecuteNonQuery() DBConn.Close() End Sub End Class 3. INSERT Default3.aspx <%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default3.aspx.vb" Inherits="Default3" %> Default3.aspx.vb Imports System.Data Imports System.Data.OleDb Partial Class Default3 Inherits System.Web.UI.Page Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Dim DBConn As OleDb.OleDbConnection Dim DBInsert As New OleDb.OleDbCommand DBConn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;DATA SOURCE=StudentDB.accdb") Response.Write(txtnm.Text) DBInsert.CommandText = "Insert into Students(RollNo,Stud_Name,Course,Marks) values(?,?,?,?)" DBInsert.Parameters.AddWithValue("?", Val(txtrollno.Text)) DBInsert.Parameters.AddWithValue("?", txtnm.Text) DBInsert.Parameters.AddWithValue("?", txtm1.Text) DBInsert.Parameters.AddWithValue("?", Val(txtm2.Text)) DBInsert.Connection = DBConn DBInsert.Connection.Open() DBInsert.ExecuteNonQuery() DBConn.Close() End Sub End Class 4. UPDATE Default4.aspx <%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default4.aspx.vb" Inherits="Default4" %> Default4.aspx.vb Imports System.Data Imports System.Data.OleDb Partial Class Default4 Inherits System.Web.UI.Page Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Dim DBConn As OleDb.OleDbConnection Dim DBcommand As New OleDb.OleDbDataAdapter Dim DSPageData As New DataSet DBConn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;DATA SOURCE=StudentDB.accdb") DBcommand = New OleDbDataAdapter("SELECT RollNo,Stud_Name,Course,Marks from Students WHERE RollNo = " & Val(txtroll.Text), DBConn) DBcommand.Fill(DSPageData, "t2") txtroll.Text = DSPageData.Tables("t2").Rows(0).Item("RollNo") txtnm.Text = DSPageData.Tables("t2").Rows(0).Item("Stud_Name") txtm1.Text = DSPageData.Tables("t2").Rows(0).Item("Course") txtm2.Text = DSPageData.Tables("t2").Rows(0).Item("Marks") DBConn.Close() End Sub Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click Dim DBConn As OleDb.OleDbConnection Dim DBUpdate As New OleDb.OleDbCommand DBConn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;DATA SOURCE=StudentDB.accdb") Response.Write(txtnm.Text) DBUpdate.CommandText = "update Students set Stud_Name=?,Course=?,Marks=? where RollNo=?" DBUpdate.Parameters.AddWithValue("?", txtnm.Text) DBUpdate.Parameters.AddWithValue("?", txtm1.Text) DBUpdate.Parameters.AddWithValue("?", Val(txtm2.Text)) DBUpdate.Parameters.AddWithValue("?", Val(txtroll.Text)) DBUpdate.Connection = DBConn DBUpdate.Connection.Open() DBUpdate.ExecuteNonQuery() DBConn.Close() End Sub End Class Validation Controls SOURCE CODE — Default.aspx <%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %> Validation Controls

Missbrauch melden

PDF-Details

Kontaktdaten

WEB_IA2