当前位置: 首页 > 网络学院 > 服务端脚本教程 > ADO > ADO删除记录

ADO
ADO介绍
ADO数据库连接
ADO记录集
ADO显示记录
ADO查询语句
ADO记录排序
ADO添加记录
ADO更新记录
ADO删除记录
ADO演示
ADO提升执行速度
ADO Command对象
ADO Connection对象
ADO Error
ADO Field
ADO Parameter
ADO 属性
ADO Record
ADO Recordset
ADO Stream

ADO 中的 ADO删除记录


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-03-01   浏览: 981 ::
收藏到网摘: n/a

We may use the SQL DELETE command to delete a record in a table in a database. 
我们可以使用DELETE命令来删除数据库表单中的一条记录。


Delete a Record in a Table
删除表单中的一条记录

We want to delete a record in the Customers table in the Northwind database. We first create a table that lists all records in the Customers table:
我们希望删除“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>

If the user clicks on the button in the "customerID" column he or she will be taken to a new file called "demo_delete.asp". The "demo_delete.asp" file contains the source code on how to create input fields based on the fields from one record in the database table. It also contains a "Delete record" button that will delete the current record:
如果用户点击“customerID”列中的按钮,那么它将会打开一个新的名为“demo_update.asp”的文件。“demo_update.asp”文件中包含了“基于数据库中的一条记录所对应的字段来创建一个输入域”的源代码以及一个“删除记录[Delete record]”的按钮(可以通过它删除当前的记录信息):

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

评论 (0) All

登陆 | 还没注册?