एडीओ डिलीट रिकॉर्ड्स
डेटाबेस में किसी तालिका में रिकॉर्ड को हटाने के लिए हम SQL DELETE कमांड का उपयोग कर सकते हैं।
तालिका में एक रिकॉर्ड हटाएं
हम नॉर्थविंड डेटाबेस में ग्राहक तालिका में एक रिकॉर्ड हटाना चाहते हैं। हम पहले एक तालिका बनाते हैं जो ग्राहक तालिका में सभी रिकॉर्ड सूचीबद्ध करती है:
<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>
यदि उपयोगकर्ता "ग्राहक आईडी" कॉलम में बटन पर क्लिक करता है तो उसे "demo_delete.asp" नामक एक नई फ़ाइल पर ले जाया जाएगा। "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="Delete record">
</form>
<%
else
sql="DELETE FROM customers"
sql=sql & " WHERE customerID='" & cid & "'"
on error resume next
conn.Execute sql
if err<>0 then
response.write("No update permissions!")
else
response.write("Record " & cid & " was deleted!")
end if
end if
conn.close
%>
</body>
</html>