ADO初学者教程： ADO 删除记录
程序员文章站
2022-05-23 11:48:16
我们可使用sql的delete命令来删除表中的某条记录。
删除表中的记录
我们希望删除northwind数据库的customers...
我们可使用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 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="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>
下一篇： 云计算技术在电子文档管理领域的运用