您当前的位置: 首页 > 网站编程 > ASP教程 > ADO初学者教程:ADO 更新记录

ADO初学者教程:ADO 更新记录

作者:guanchaofeng 来源:不详 发布时间: 2009-03-23 14:19 点击:
我们可使用SQL的UPDATE来更新数据库表中的某条记录。 更新数据库表中的记录 我们希望更新Northwind数据中Customers表的某条记录。首先我们需要创建一个表格,来列出Customers中的所有记录。 htmlbody%set conn=Server.CreateObject("ADODB.Connection")conn.

ADO初学者教程:ADO 更新记录

我们可使用SQL的UPDATE来更新数据库表中的某条记录。


更新数据库表中的记录

我们希望更新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_update.asp"><%for each x in rs.Fields  if lcase(x.name)="customerid" then%>    <td>    <input type="submit" name="customerID" value="<%=x.value%>">    </td>  <%else%>    <td><%Response.Write(x.value)%></td>  <%end ifnext%></form><%rs.MoveNext%></tr><%loopconn.close%></table></body></html>

如果用户点击"customerID"列中的按钮,会打开一个新文件"demo_update.asp"。此文件包含了创建输入域的源代码,这些输入域基于数据库中记录的字段,同时也含有一个保存修改的“更新按钮”:

<html><body><h2>Update 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_update.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="Update record">  </form><%else  sql="UPDATE customers SET "  sql=sql & "companyname='" & Request.Form("companyname") & "',"  sql=sql & "contactname='" & Request.Form("contactname") & "',"  sql=sql & "address='" & Request.Form("address") & "',"  sql=sql & "city='" & Request.Form("city") & "',"  sql=sql & "postalcode='" & Request.Form("postalcode") & "',"  sql=sql & "country='" & Request.Form("country") & "'"  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 updated!")  end if end ifconn.close%></body></html>

分享到:
本文"ADO初学者教程:ADO 更新记录"由远航站长收集整理而来,仅供大家学习与参考使用。更多网站制作教程尽在远航站长站。
顶一下
(0)
0%
踩一下
(0)
0%
[点击 次] [返回上一页] [打印]
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
表情:
用户名: 密码: 验证码:
关于本站 - 联系我们 - 网站声明 - 友情连接- 网站地图 - 站点地图 - 返回顶部
Copyright © 2007-2013 www.yhzhan.com(远航站长). All Rights Reserved .
远航站长:为中小站长提供最佳的学习与交流平台,提供网页制作与网站编程等各类网站制作教程.
官方QQ:445490277 网站群:26680406 网站备案号:豫ICP备07500620号-4