ADO Kayıt Silme

Veritabanı tablosundaki belirli bir kaydı silmek için SQL'in DELETE komutunu kullanabiliriz.

Tablodaki kayıtları silmek

Northwind veritabanının Customers tablosundan bir kaydı sileceğiz. Öncelikle, Customers tablosundaki tüm kayıtları listelemek için bir tablo oluşturmamız gerekecek.

<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>

Eğer kullanıcı "customerID" sütunundaki düğmeye tıklarsa, "demo_delete.asp" adlı yeni bir dosya açılır. Bu dosya, veritabanında kayıtların alanlarına dayalı girdi alanlarının kaynak kodunu içerir ve mevcut kaydı silmek için bir "sil düğmesi" de içerir:

<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="Kayıt sil">
  </form>
<%
else
  sql="DELETE FROM customers"
  sql=sql & " WHERE customerID='" & cid & "'"
  on error resume next
  conn.Execute sql
  if err<>0 then
    response.write("Güncelleme izni yok!")
  else 
    response.write("Kayıt " & cid & " silindi!")
  end if 
end if
conn.close
%>
</body>
</html>