ADO 删除记录

ਅਸੀਂ SQL ਦੇ DELETE ਕਮਾਂਡ ਦੀ ਮਦਦ ਨਾਲ ਡਾਟਾਬੇਸ ਤੇਲਕ ਵਿੱਚ ਕਿਸੇ ਵੀ ਰਿਕਾਰਡ ਨੂੰ ਹਟਾ ਸਕਦੇ ਹਾਂ。

ਤੇਲਕ ਵਿੱਚ ਰਿਕਾਰਡ ਹਟਾਉਣਾ

ਅਸੀਂ Northwind ਡਾਟਾਬੇਸ ਦੇ Customers ਤੇਲਕ ਵਿੱਚ ਇੱਕ ਰਿਕਾਰਡ ਹਟਾਉਣਾ ਚਾਹੁੰਦੇ ਹਾਂ। ਪਹਿਲਾਂ ਤੋਂ ਅਸੀਂ 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 ਬੋਰਡਰ="1" ਵਿਸ਼ਾਲਤਾ="100%">
<tr>
<%
for each x in rs.Fields
  response.write("<th>" & ucase(x.name) & "</th>")
next
%>
</tr>
<% do until rs.EOF %>
<tr>
<form ਮੇਥੋਡ="post" ਐਕਸ਼ਨ="demo_delete.asp">
<%
for each x in rs.Fields
  if x.name="customerID" then%>
    <td>
    <input ਟਾਈਪ="submit" ਨਾਮ="customerID" ਮੁੱਲ="<%=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 ਮੇਥੋਡ="post" ਐਕਸ਼ਨ="demo_delete.asp">
  <table>
  <%ਫੋਰ ਹਰ ਇੱਕ x ਵਿੱਚ rs.Fields%>
  <tr>
  <td><%=x.name%></td>
  <td><input ਨਾਮ="<%=x.name%>" ਮੁੱਲ="<%=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>