Visual Basic 清华大学vb编程语言基础 第14讲.ppt.pptVIP

第十四讲 数据库 关系型数据库模型 记录集是浏览数据库的工具 VB中数据库内的表不允许直接访问，而只能通过记录集对象进行记录的操作和浏览 数据库管理器 创建数据库 创建数据库 Data控件 Data控件属性 Data控件属性 Data控件-例 Data控件-例 数据网格控件-MsFlexGrid Data控件的事件 照片输入方法2 Data控件的事件 Data控件的常用方法 RecordSet对象的属性 RecordSet对象的属性 RecordSet对象的方法 Move方法-例 RecordSet对象的方法 Find方法-例 RecordSet对象的方法 数据库记录的增、删、改操作 数据库记录的增、删、改操作 数据库记录的增、删、改操作 数据库记录的操作-例 数据库记录的操作-例 数据库记录的操作-例 数据库记录的操作-例 记录完整性验证 使用ADO数据控件 ADO数据控件的常用属性 ADO数据控件与数据库连接 ADO数据控件与数据库连接 ADO数据控件与数据库连接 ADO控件上绑定控件的使用 DataGrid控件 编辑显示在DataGrid内的记录集 使用数据窗体向导 使用数据窗体向导-例1 使用数据窗体向导-例1 使用数据窗体向导-例1 使用数据窗体向导-例2 编辑记录-Edit方法 调用Edit方法 给各字段赋值 调用Update方法,确定所作修改 说明: 要放弃对数据的所有修改,可使用UpdateControls方法,也可使用Refresh方法,重读数据库,刷新记录集 数据控件本身具有修改当前记录的功能,直接修改被数据库所约束的绑定控件的内容后,单击数据控件上的任一箭头就可改变当前记录,确定所作的修改 Private Sub Command1_Click() Command2.Enabled = Not Command2.Enabled Command3.Enabled = Not Command3.Enabled Command4.Enabled = Not Command4.Enabled If Command1.Caption = 新增 Then Command1.Caption = 确认 mbookmark = Data1.Recordset.Bookmark Data1.Recordset.AddNew Text1.SetFocus Else Command1.Caption = 新增 Data1.Recordset.Update Data1.Recordset.MoveLast End If End Sub Dim mbookmark Private Sub Command2_Click() On Error Resume Next Data1.Recordset.Delete Data1.Recordset.MoveNext If Data1.Recordset.EOF Then Data1.Recordset.MoveLast End Sub 删除功能 错误捕捉语句，程序运行发生错误时，忽略错误行，继续执行下一条语句 Private Sub Command3_Click() Command1.Enabled = Not Command1.Enabled Command2.Enabled = Not Command2.Enabled Command4.Enabled = Not Command4.Enabled If Command3.Caption = 修改 Then mbookmark = Data1.Recordset.Bookmark Command3.Caption = 确认 Data1.Recordset.Edit Text1.SetFocus Else Command3.Caption = 修改 Data1.Recordset.Update End If End Sub 修改功能 Private Sub Command4_Click() Command1.Caption = 新增 Command3.Caption = 修改 Command1.Enabled = True