ASP.NET Inline code using VB - ASP

	Find Code:
Home : Code : Forums : Submit : Mailing List : About : Contact

All

VB.NET

ASP.NET

C#

Snippets

Popular

Forums

Articles

Tips

Links

Books

Contest

ASP.NET Inline code using VB
Author: Brinda Balakrishan
Submitted: 8/27/2014
Version: VB 2010
Compatibility: ASP.NET 2.0, ASP.NET 3.5, ASP.NET 4.0
Category: ASP.NET
Views: 4237
By using this code you can perform insert, update, delete, clear operation in ASP.NET. Inline code using VB.
Declarations:
'none
Code:
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="WebForm6.aspx.vb" Inherits="Webnew.WebForm6" %> <%@ Import Namespace="System.Data" %> <%@ Import Namespace="System.Data.OleDb" %> <!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 runat="server"> <title>Untitled Page</title> <script runat="server"> Sub Page_Load() If Not Me.IsPostBack Then Dim Constr As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\csbdu\Documents\Database10.accdb" Dim Qry As String = "Select Sno,Sname From Table1" Dim Con As New OleDbConnection(Constr) Dim Cmd As New OleDbCommand(Qry, Con) End If End Sub Sub BtnClick(ByVal S As Object, ByVal E As EventArgs) Dim Constr As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\csbdu\Documents\Database10.accdb" Dim Qry As String = "Select Sno,Sname From Table1" Dim Con As New OleDbConnection(Constr) Dim Cmd As New OleDbCommand(Qry, Con) Con.Open() Cmd.CommandType = Data.CommandType.Text Cmd.CommandText = ("INSERT INTO Table1 (sno,sname) VALUES (" & TextBox1.Text & " , '" & TextBox2.Text & "')") Cmd.ExecuteNonQuery() MsgBox("record inserted") Con.Close() End Sub Sub Btn1Click(ByVal S As Object, ByVal E As EventArgs) Dim stmt As String Dim Constr As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\csbdu\Documents\Database10.accdb" Dim Conn As New OleDbConnection(Constr) Conn.Open() stmt = "update Table1 set sname=@sname where sno=@sno" Dim Cmd As New OleDb.OleDbCommand(stmt, Conn) Cmd.Parameters.Add("@sname", TextBox2.Text) Cmd.Parameters.Add("@sno", TextBox1.Text) Cmd.ExecuteNonQuery() MsgBox("record updated") Conn.Close() End Sub Sub Btn2Click(ByVal S As Object, ByVal E As EventArgs) Dim stmt As String Dim Constr As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\csbdu\Documents\Database10.accdb" Dim Co As New OleDbConnection(Constr) Co.Open() stmt = "Delete from Table1 where sno=@sno" Dim Cmd As New OleDb.OleDbCommand(stmt, Co) Cmd.Parameters.Add("@sno", TextBox1.Text) Cmd.ExecuteNonQuery() MsgBox("record delete") Co.Close() End Sub Sub Btn3Click(ByVal S As Object, ByVal E As EventArgs) Dim Constr As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\csbdu\Documents\Database10.accdb" Dim Qry As String = "Select Sno,Sname From Table1" Dim Con As New OleDbConnection(Constr) Dim Cmd As New OleDbCommand(Qry, Con) Con.Open() Cmd.CommandType = Data.CommandType.Text Cmd.CommandText = ("delete from Table1") Cmd.ExecuteNonQuery() MsgBox("database cleared") Con.Close() End Sub </script> </head> <body> <form id="form1" runat="server" onload="Page_Load"> <div> <asp:Label id="Label1" runat="server" Width="147px" Height="23px"> sno</asp:Label> <asp:TextBox Runat="server" ID="TextBox1" /> <asp:Label id="Label2" runat="server" Width="139px" Height="24px"> sname</asp:Label> <asp:TextBox Runat="server" ID="TextBox2" /> <asp:Button id="Button1" runat="server" Width="68px" Height="27px" Text="insert" OnClick= "Btnclick"></asp:Button> <asp:Button id="Button2" runat="server" Width="68px" Height="27px" Text="update" OnClick= "Btn1click"></asp:Button> <asp:Button id="Button3" runat="server" Width="68px" Height="27px" Text="delete" OnClick= "Btn2click"></asp:Button> <asp:Button id="Button4" runat="server" Width="68px" Height="27px" Text="clear" OnClick= "Btn3click"></asp:Button> </div> </form> </body> </html>