第七章数据库应用.ppt

  1. 1、本文档共83页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
第七章数据库应用.ppt

第七章 数据库应用 7.1 数据库概述 7.1.1 任务一 了解Access关系数据库 7.1.2 任务二 SQL简介 7.2 使用数据库控件访问数据库 7.2.1 任务一 了解Data控件 7.2.2 任务二 ADO数据控件 7.3 数据报表的生成 7.3.1 任务一 了解数据环境设计器 7.3.2 任务二 了解数据报表设计器 (2)Data控件的方法 ① Refresh方法:主要用于建立或重新显示与Data控件相连接的数据库记录集。若修改了与数据库绑定的控件的属性时,就必须使用该方法来刷新记录集。 ② UpdateRecord方法:将数据绑定控件上的当前内容写入到数据库中,即可以在修改数据后调用该方法来确认修改。 ③ UpdateControls方法:将数据从数据库中重新读入到数据绑定控件中,即放弃对数据绑定控件中数据的修改。 ④ Close方法:关闭数据库或记录集。 2.记录集对象(Recordset) (1)Recordset对象的属性 ① BOF和EOF属性:这两个属性用来指示记录指针是否指向首记录之前(BOF为True)或末记录之后(EOF为True),如同时为True,表示记录集中无任何记录。 ② Absolute Position属性:用于返回当前记录的记录号。 ③ Bookmark属性:该属性返回或设置当前记录指针的书签,Bookmark采用的是String类型。在程序中可用来重定位记录集的指针。如下3条指令中,第1条指令是设置书签保存当前记录指针位置;第2条指令是将记录指针移到第1条记录(改变了当前指针的位置);第3条指令是将记录指针重新定位到原来的位置。 Mybookmark=Data1.Recordset.Bookmark Data1.Recordset.MoveFirst Data1.Recordset.Bookmark=Mybookmark ④ RecordCount属性:返回记录集中的记录数。 (2)Recordset对象的方法 ① AddNew和Edit方法:AddNew方法为数据库添加一条新记录,Edit方法使当前记录集进入修改状态。要注意的是,不管是添加还是修改记录,只有在执行了Update方法或通过Data控件移动当前记录时,才会使添加或修改起作用。 ② Move方法:该方法用于移动记录指针,以便浏览数据库中的数据。包括以下4种方法。 ? MoveFirst:将记录指针移到第一条记录。 MoveLast:将记录指针移到最后一条记录。 ? MoveNext:在当前记录的基础上下移一条记录。 ?? MovePrevious:在当前记录的基础上上移一条记录。 当记录集刚被打开时,记录指针指向第一条记录。 ③ Delete方法:该方法用于删除记录集中的当前记录。记录被删除后,其内容仍显示在数据绑定控件中,应使用Move方法移动记录指针。 ④ Find方法:用于查找满足条件的记录。若找到则将记录指针指向该记录,否则指向记录集的末尾。包括下列4种方法。 ??? FindFirst:查找符合条件的第一条记录。 ??? FindLast:查找符合条件的最后一条记录。 ??? FindNext:查找符合条件的下一条记录。 FindPrevious:查找符合条件的上一条记录。 例如: Data1.Recordset.FindFirst 姓名 Like张 查找姓“张”的第一条记录 【例7-6】设计一个学生信息浏览程序,对“学生信息数据库”的“学生信息表”进行浏览。窗体设计窗口如图7-8(a)所示,运行结果窗口如图7-8(b)所示。 具体操作步骤如下。 (1)按图7-8(a)设计窗体界面。 (2)按表7-4设置各控件属性。 (3)编写代码。 Private Sub Command1_Click() 首记录 Data1.Recordset.MoveFirst End Sub ? Private Sub Command2_Click() 上一记录 If Data1.Recordset.BOF Then MsgBox 已到第一记录, 48, 记录浏览 Else Data1.Recordset.MovePrevious End If End Sub Private Sub Command3_Click() 下一记录 If Data1.Recordset.EOF Then MsgBox 已到末记录, 48, 记录浏览 Else Dat

文档评论(0)

ziyouzizai + 关注
实名认证
内容提供者

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

1亿VIP精品文档

相关文档