Expertrating - ASP.Net Tutorial, ADO.NET

Home > Courses, Tutorials & eBooks > ASP.NET Tutorial > ADO.NET

ASP.NET Tutorial - ADO.NET

Page 13 of 14

Example 35 SqlFormDeleteDemo.aspx

<%@ Import Namespace="System.Data.SqlClient" %>

Sub Button_Click( s As Object, e As EventArgs )

Dim conNorthwind As SqlConnection

Dim strDelete As String

Dim cmdDelete As SqlCommand

Dim intCountRecord As Integer

conNorthwind = New SqlConnection( "Server=localhost;UID=sa;PWD=secret;database=Northwind" )

strDelete = "Delete Books Where Author=@AuthName"

cmdDelete = New SqlCommand( strDelete, conNorthwind )

cmdDelete.Parameters.Add( "@AuthName", txtAuthName.Text )

conNorthwind. Open ()

intCountRecord = cmdDelete.ExecuteNonQuery()

conNorthwind. Close ()

lblMessage. Text = intCountRecord & " records deleted!"

End Sub

</Script>

<html>

<head><title>SqlFormDelete.aspx</title></head>

<body>

<h2>Delete Books</h2>

<b>Author's Name:</b>

<br>

<asp:TextBox

ID="txtAuthName"

Runat="Server" />

<p>

<asp:Button

Text="Delete"

OnClick="Button_Click"

Runat="Server" />

<p>

<asp:Label

ID="lblMessage" Runat="Server" />

</form>

</body>

</html>

The output of this example is shown as below:

The above example contains one TextBox control named txtAuthName. When you click the Delete button, the Button Click subroutine is executed, and the book with the specified author is deleted from the Authors database table. A count of the number of records deleted is retrieved from the ExecuteNonQuery () method and assigned to a Label control named lblMessage.

The MS Access version of above example is shown as:

Example 36 OleDBFormDeleteDemo.aspx

<%@ Import Namespace="System.Data.OleDb" %>

Sub Button_Click (s As Object, e As EventArgs)

Dim conBooks As OleDbConnection

Dim strDelete As String

Dim cmdDelete As OleDbCommand

Dim intCountRecord As Integer

conBooks= New OleDbConnection( "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA Source=c:\Books.mdb")

strDelete = "Delete from Books Where Author=@AuthName"

cmdDelete = New OleDbCommand( strDelete, conBooks )

cmdDelete.Parameters.Add( "@AuthName", txtAuthName.Text )

conBooks. Open ()

intCountRecord = cmdDelete.ExecuteNonQuery()

conBooks. Close ()

lblMessage. Text = intCountRecord & " records deleted!"

End Sub

</Script>

<html>

<body>

<h3>Delete Books</h3>

<b>Author's Name:</b>

<br>

<asp:TextBox

ID="txtAuthName"

Runat="Server" />

<p>

<asp:Button

Text="Delete"

OnClick="Button_Click" Runat="Server" />

<p>

<asp:Label ID="lblMessage" Runat="Server" />

</form>

</body>

</html>

The output of above example is as shown below:-

ExpertRating ASP.NET Certification - Get Certified Now!!