高等教育大学课件《ADO对象模型-Recordset》.ppt

高等教育大学课件《ADO对象模型-Recordset》.ppt

  1. 1、本文档共32页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
ADO对象模型 ——asp中的使用 ADO对象模型 ADO对象模型 ADO对象模型 set rs=con.execute("select xh,xm from xs where nl>=20",,AdCmdText) 或 set cmd=Server.CreateObject("ADODB.Command") set cmd.ActiveConnection=con cmd.CommandText="select * from xs" cmd.CommandType=AdCmdText set rs=cmd.Execute 都能生成Recordset对象rs -再进入二重循环处理rs中的所有数据 Recordset 对象 Recordset对象概述 来自基本表或命令执行结果的记录全集。 通过 Recordset 对象可对几乎所有数据进行操作。 以查询为主,也可以用来更新数据。 所有 Recordset 对象均使用记录(行)和字段(列)进行构造。 任何时候,Recordset 对象所指的当前记录均为集合内的单个记录。理解为Recordset 对象有一个指针指向当前记录,可以移动该指针以遍历全部记录。 使用步骤 使用的一般过程 1 创建Recordset对象 set rs=Server.CreateObject("ADODB.Recordset") 2 设置连接信息 set conn=Server.CreateObject("ADODB.Connection") conn.open "DSN=mydb" rs.ActiveConnection=con 3 打开数据集 rs.open "SQL语句" 4 处理并显示数据 使用步骤-续1 4 处理并显示数据 r=0 '行计数 do until rs.eof '还没到记录末重复 r = r +1 c=0 '列计数 for each item in rs.fields '当前行的列集合 c=c+1 response.write "第"&r&"行第"&c&"列是"&&" 值是 "& item next rs.MoveNext '后移一行 loop 使用步骤-续2 5 如需要将Recordset中的内容保存到文件中 rs.Save "FileName", PersistFormat PersistFormat可选项,取值为 adPersistADTG(默认)使用专用的“Advanced Data Tablegram”格式保存。 adPersistXML使用 XML 格式保存。 移动和书签 方法 MoveFirst MoveLast MoveNext MovePrevious 和Move numRows [, Start] ****Start??? 可选,字符串或变体型,为书签。也可为下列 BookmarkEnum 值之一: AdBookmarkCurrent 默认。从当前记录开始。 AdBookmarkFirst 从首记录开始。 AdBookmarkLast 从尾记录开始。 Bookmark属性 设置或返回标识 Recordset 对象中当前记录的书签。 书签只能在支持书签功能的 Recordset 对象中使用。 移动和书签例 varBookmark = rs.Bookmark rs.Move 0, varBookmark rs.Move –1 '回退 同 rs.MovePrevious rs.Move 1 '前进 同 rs.MoveNext 增加新记录 AddNew [Fields , values] 例 varF=Array("xh","xm","nl") varV=Array("B0101001","LiPing",19) rs.AddNew varF,varV 或 rs.AddNew rs("xh")=request.form("xh") rs("xm")=request.form("xm") rs("nl")=request.form("nl") 最后再 rs.Update 完成一条记录的插入 批量更新记录 rs.CursorType = adOpenKeyset rs.LockType = adLockBatchOptimistic rs.Open "xs", "DSN=mydb", , , adCmdTable Do Until rs.EOF xs("nl")=xs("nl")+1 rstTitles.MoveNext Loop rs.Updat

文档评论(0)

188****7181 + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档