7 ADO数据库访问技术(三)

7. 9.0
数据集的关闭
rs.Close() Set rs = Nothing Set Conn = Nothing
7.9.1
读取数据集中的数据
格式一： Rs.Fields.Item(―user_id").Value
格式二：使用字段名称读取数据
Rs (―user_id")
格式三：使用字段序号读取数据
rs. Pagecount：
rs. Absolutepage：当前（指针指向）的页 rs. Pagesize： 当前页总的数据记录数
rs.movenext
下移一条记录
rs.eof
数据集的结尾
7.9.3
数据集页的控制（分页、翻页）——实例：rs2.asp
每页数据记录的列举： <%for i=1 to rs.pagesize%> 显示单条数据记录 <%rs.movenext if rs.eof then exit for next %>
– Rs("password")=request.Form("password")
– Rs.update()源自 7.9.5更新记录 —— rekey.asp、do_ rekey. asp
主键更新——（更新用户名）
– 以原用户名（主键字段）为查询条件。
• 如果为：rs.eof —— 返回更新页面//用户名不存在 • 如果为：not rs.eof
if not rs.eof then rs.delete() %>
7.9.6
删除记录 ——del_url.asp、del_form.asp
表单隐藏域提交删除标记 – <input name="tag" type="hidden" id="tag"> – <input type="submit" name="Submit" value="删 除" onClick="del('<%=(Rs.Fields.Item("username").Value)%>')"> – <script type="text/JavaScript"> function del(tag){
第七章 ADO数据库访问技术(三)
（一）连接数据库（源） （二）建立数据集 （三）操作数据集
教学内容 读取数据集中的数据； 数据集中的数据指针； 数据集页的控制； 添加记录 ； 更新记录；
删除记录。
教学重点、难点： 重点：数据集操作：数据集页的控制、添加记录、更 新记录、删除记录。 难点：数据集操作：数据集页的控制、添加记录、更 新记录、删除记录。
– 以新用户名（主键字段）为查询条件。
• 如果为： not rs.eof —— 返回更新页面//新用户名已被注册 • 如果为：rs.eof
– 以原用户名（主键字段）为查询条件。
• Rs("username")=request.Form("username1") • Rs.update()
7.9.6
<% Dim Rs__MMColParam Rs__MMColParam = "1" 删除记录 —— del_url.asp 、del_form.asp If7.9.6 (Request.form("tag") <> "") Then Rs__MMColParam = Request.form("tag") End If %> 删除标记为查询需要删除记录的条件，一般为主键。 <% URL地址变量提交删除标记： on error resume next Set Rs–= 删除标记： Server.CreateObject("ADODB.Recordset") Rs.ActiveConnection = MM_conn_STRING Rs.Source • = <a "SELECT * FROM users WHERE username = '" + href="del_url.asp?tag=<%=(Rs.Fields.Item("username").Value)% Replace(Rs__MMColParam, "'", "''") + "'" Rs.CursorType =删 0 除</a> >"> Rs.CursorLocation = 2 – 删除记录： Rs.LockType =3 Rs.Open()
7.9.0
连接字符串
Database = Server.MapPath(―..\..\db.mdb‖) ConnStr = ―Provider= Microsoft.Jet.OLEDB.4.0 ; Data Source =‖ & Database Set conn=Server.Createobject(―ADODB.Connection‖)
Conn.Open ConnStr
7. 9.0
数据集的建立
Sql = ―Select * From user ‖ PageSize = 10 Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = Conn
rs.Source = sql rs.CursorType = 0 rs.CursorLocation = 2 rs.LockType = 1 rs.PageSize = PageSize rs.Open()
rs.ActiveConnection = Conn
rs.Source = sql rs.CursorType = 3
rs.CursorLocation = 2
rs.LockType = 1 rs.PageSize = PageSize
rs.Open()
7.9.3
数据集页的控制（分页、翻页） 数据集中总的页数
7.9.4
添加记录 —— reg.asp、do_ reg.asp
给其它字段赋值
– 要求添加字段 – 不要求的，但属于非空字段
Rs.update
7.9.5
更新记录 —— reNotkey.asp、do_ reNotkey. asp
非主键更新——（更新密码） – 以用户名（主键字段）为查询条件。
• 如果为：rs.eof —— 返回更新页面//用户名不存在 • 如果为：not rs.eof
Rs (0)
7.9.2
数据集中的数据指针——实例：rs1.asp
BOF
数据集开始位置 MoveFirst
MovePrevious 指针当前位置 MoveNext
MoveLast
EOF 数据集结束位置
7.9.3
数据集页的控制（分页、翻页）
Sql = ―Select * From user ‖ PageSize = 10 Set rs = Server.CreateObject("ADODB.Recordset")
重复显示的内容
7.9.3
数据集页的控制（分页、翻页）——实例：rs2.asp
页码的显示与链接 <%for i=1 to rs.pagecount response.write("<a href=rs2.asp?page="&i&">"&i&"</a>&nbsp;") next %> <%page=request("page") if page="" then page=1 rs.absolutepage=page
%>
7.9.3
数据集页的控制（分页、翻页）——实例：rs2.asp
向上翻页 <% if page<>1 then%> <a href="rs2.asp?page=<%=page-1%>">上一页</a> <%end if%> 向下翻页
<%if Cint(page)<>rs.pagecount then%>
document.form1.tag.value = tag;
document.form1.submit(); }
</script>
教学小结： rs. Pagecount： 数据集中总的页数
rs. Absolutepage：当前（指针指向）的页 rs. Pagesize： rs.movenext rs.eof 当前页总的数据记录数 下翻一页 数据集的结尾
答疑时间
Have question?
<a href="rs2.asp?page=<%=page+1%>">下一页</a>
<%end if%>
7.9.4
添加记录 —— reg.asp、do_ reg.asp
主键
– 是否为空：为空时不进行查询 – 是否重复：按主键进行查询
• 重复： not Rs.eof • 不重复： – on error resume next – Rs.eof Rs.LockType = 3 Rs.addnew
删除记录 —— 删除单条记录
查询需要删除的记录