حذف رکورد ADO
- صفحه قبلی بهروزرسانی ADO
- صفحه بعدی تسریع 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>لیست پایگاه داده</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>حذف رکورد</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>
- صفحه قبلی بهروزرسانی ADO
- صفحه بعدی تسریع ADO