حذف جمعه‌بندی ADO

ما می‌توانیم از دستور DELETE SQL برای حذف یک رکورد خاص از جدول دیتابیس استفاده کنیم.

حذف رکوردهای جدول

آپ می‌خواهید یک رکورد از جدول Customers دیتابیس Northwind را حذف کنید. ابتدا باید یک جدول ایجاد کنید تا تمام رکوردهای Customers را لیست کنید.

<html>
<body>
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/webdata/northwind.mdb"
set rs=Server.CreateObject("ADODB.Recordset")
rs.open "SELECT * FROM customers",conn
%>
<h2>List Database</h2>
<table border="1" width="100%">
<tr>
<%
for each x in rs.Fields
  response.write("<th>" & ucase(x.name) & "</th>")
next
%>
</tr>
<% do until rs.EOF %>
<tr>
<form method="post" action="demo_delete.asp">
<%
for each x in rs.Fields
  if x.name="customerID" then%>
    <td>
    <input type="submit" name="customerID" value="<%=x.value%>">
    </td>
  <%else%>
    <td><%Response.Write(x.value)%></td>
  <%end if
next
%>
</form>
<%rs.MoveNext%>
</tr>
<%
loop
conn.close
%>
</table>
</body>
</html>

اگر کاربر دکمه‌ای در ستون "customerID" کلیک کند، فایل جدیدی به نام "demo_delete.asp" باز می‌شود. این فایل شامل کد منبع برای ایجاد فیلدهای ورودی بر اساس فیلدهای موجود در پایگاه داده است و همچنین شامل یک دکمه "حذف" برای حذف ورودی فعلی است:

<html>
<body>
<h2>Delete Record</h2>
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/webdata/northwind.mdb"
cid=Request.Form("customerID"
if Request.form("companyname")="" then
  set rs=Server.CreateObject("ADODB.Recordset")
  rs.open "SELECT * FROM customers WHERE customerID='" & cid & "'",conn
  %>
  <form method="post" action="demo_delete.asp">
  <table>
  <%for each x in rs.Fields%>
  <tr>
  <td><%=x.name%></td>
  <td><input name="<%=x.name%>" value="<%=x.value%>"></td>
  <%next%>
  </tr>
  </table>
  <br /><br />
  <input type="submit" value="حذف جمعه‌بندی">
  </form>
<%
else
  sql="DELETE FROM customers"
  sql=sql & " WHERE customerID='" & cid & "'"
  on error resume next
  conn.Execute sql
  if err<>0 then
    response.write("اجازه به‌روزرسانی وجود ندارد!")
  else 
    response.write("جمعه‌بندی " & cid & " حذف شد!")
  end if 
end if
conn.close
%>
</body>
</html>