ASP.Net/ADO.net Database/Delete OleDnConnection
Delete data from Access through OleDbConnection
<source lang="csharp">
<%@ Page Language=VB Debug=true %> <%@ Import Namespace="System.Data" %> <%@ Import Namespace="System.Data.OLEDB" %> <script runat=server> Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
If Not IsPostBack Then Dim DBConn as OleDbConnection Dim DBCommand As OleDbDataAdapter Dim DSPageData as New DataSet DBConn = New OleDbConnection( _ "PROVIDER=Microsoft.Jet.OLEDB.4.0;" _ & "DATA SOURCE=" _ & Server.MapPath("EmployeeDatabase.mdb;")) DBCommand = New OleDbDataAdapter _ ("Select LastName & ", " & FirstName " _ & "as EmpName, ID " _ & "From Employee " _ & "Order By LastName, FirstName", DBConn) DBCommand.Fill(DSPageData, _ "Employee") ddlEmps.DataSource = _ DSPageData.Tables("Employee").DefaultView ddlEmps.DataBind() End If
End Sub Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
Dim DBConn as OleDbConnection Dim DBDelete As New OleDbCommand DBConn = New OleDbConnection( _ "PROVIDER=Microsoft.Jet.OLEDB.4.0;" _ & "DATA SOURCE=" _ & Server.MapPath("EmployeeDatabase.mdb;")) DBDelete.rumandText = "Delete From Employee " _ & "Where ID = " & ddlEmps.SelectedItem.Value DBDelete.Connection = DBConn DBDelete.Connection.Open DBDelete.ExecuteNonQuery()
End Sub
</SCRIPT>
<HTML>
<HEAD>
<TITLE>Deleting Access Data</TITLE>
</HEAD>
<Body LEFTMARGIN="40">
<form runat="server">
Select the Employee to Delete
<asp:dropdownlist
id="ddlEmps" datatextfield="EmpName" datavaluefield="ID" runat="server"
/>
<asp:button
id="butDelete" text="Delete" onclick="SubmitBtn_Click" runat="server"
/> </form> </BODY> </HTML>
</source>
<A href="http://www.nfex.ru/Code/ASPDownload/EmployeeDatabase.zip">EmployeeDatabase.zip( 10 k)</a>