VB程序设计26.pptVIP

第十一章 建立和访问数据库 学习目标 数据库的建立 Data控件 数据库概述 数据库（Data Base） 数据文件 特殊的存储结构 在表结构中，横行称记录，纵列称字段 三种模型： 层次型、网状型、关系型 Access数据库 Microsoft Access 微软桌面数据库管理系统 文件：* .MDB 示例： 建立一个myFriends.mdb，其中包含3个字段：姓名、生日、照片，拥有若干条记录 步骤（演示）： 启动Access 2000 新建数据库→空Access库→确定 输入名称myFriends.mdb Access数据库 步骤（续） 按“打开” 在新窗口输入三个字段名称及类型：姓名（文本）、生日（日期）、照片（OLE对象） Access数据库 步骤（续） 字段定义完成后关闭窗口 保存？是 另存为？Sheet1 是否设主键？是（自动加入ID字段） 输入各项记录。照片：插入→对象→来自文件 Access数据库 版本的转换 VB6.0不能使用Access 2000版本的MDB文件，需转换为旧版本（但VB6打SP5补丁后可直接使用）。 方法：工具→实用工具→转换数据库→早期版本 Data控件 Data控件： 默认名称：Data1 常用属性： Connect：数据库类型，默认为Access DatabaseName：需要连接的数据库 RecordSource：数据库中表的名称 数据绑定控件： 文本框、标签、OLE控件等 需设置的属性： DataSource：用于绑定的控件名，如Data1 DataField：用于显示的字段名 Data控件 示例：一个简单的VB数据库程序 Data控件 步骤 设置属性： Data1： DatabaseName RecordSource Text1、Text2、OLE1： DataSource DataField 设置代码： 无代码，依靠Data控件移动到其它记录 Data控件之性质 对象： Recordset对象：记录集 对记录的操作都是通过对该对象进行的：如 Data1.Recordset.MoveNext 方法： 增加记录：AddNew 修改记录：Edit 刷新记录：Update（用于前二个之后，将缓冲区写入数据库） 删除：Delete 关闭：Close 移动：Move、MoveFirst、MoveLast、MoveNext、MovePrevious Data控件 示例： 　Data1.Recordset.addnew 　　　将一条新记录写入缓冲区 　Data1.Recordset.Edit 　　　对当前记录进行修改，结果暂存于缓冲区 　Data1.Recordset.Update 　　　将缓冲区的内容写入数据库，保存改动 　Data1.Recordset.Close 　　　关闭数据库 　Data1.Recordset.Move 5 　　　从当前行开始下移5条记录 　Data1.Recordset.MoveFirst 　　　记录指针移到时第一条记录 Data控件 常用属性、方法与事件 综合示例 示例：用数据库实现的选择题练习系统 界面： 综合示例 数据库结构? Access库。共8个字段：ID（序号）、Question（题目）、ans1（答案一）、ans2（答案二）、ans3（答案三）、ans4（答案四）、right（正确答案编号）、kind（类别）。 表明这是第6题，正确答案为第4个，其类别为第1类（基础题）。数据库取名为lz.gif，而没用*.mdb。 综合示例 分析： Data1控件不显示，改用下一题、上一题移动记录指针，需编写代码 控件： 综合示例 属性设置 综合示例 属性设置 综合示例 代码(1)： Private Sub Form_Load() Me.Show Op(0).SetFocus 窗体加载时，第一个单选按钮获取焦点 End Sub Private Sub about_Click() 对应“关于”菜单 MsgBox Chr(13) 程序设计：李 壮 Chr(13) Chr(13) 2001年6月于海南琼州大学,vbOKOnly + vbInformation, 版本说明 End Sub 综合示例 代码(2)： Private Sub Command1_Click() 确定按钮 i = Data1.Recordset(right) - 1 从数据库中取正确答案编号 For j = 0 To 3 If Op(j) Then k = j