数据库原理和应用16”.pptVIP

第十六章 VB数据库应用编程示例 主要学习内容 示例1 使用ADO数据控件，实现数据查询操作 示例2 对数据的添加、删除和更新操作。 示例3 两个窗体，一个用于查询，一个用表格显示数据。 数据窗体向导 用VB数据窗体向导，自动生成查询和操作数据库的窗体 示例一 本示例说明如何利用ADO数据控件实现对Student表中全部数据的浏览，以及如何实现按用户指定的系查找相应学生信息的功能。 通过本示例可以看到，设置好ADO数据控件的属性后，用户不需要编制任何代码就可以实现对数据的查询。如果查找条件变化了，用户只需要编写很少的代码就可以实现对数据源的重新查询。 本示例的窗体布局如右图所示。 示例一 各控件所设置的与数据操作有关的属性及属性值如表所示。 示例一 在这个界面中，用户可以通过单击AdodcStudent数据控件的四个按钮改变所浏览的记录。当用户单击“查找”按钮时，表示要按用户在txtSearchdept文本框中所指定的系进行查找。 程序代码 窗体Form1的Load事件（窗体启动时初始化） Private Sub Form_Load() 窗体加载时初始化查找系的内容 初始化要查找的系为空 TxtSearchDept.Text = End Sub “退出”按钮CmdExit的Click事件 Private Sub CmdExit_Click() 退出按钮 End End Sub 示例一 程序代码 “查找”按钮CmdSearch的Click事件 Private Sub CmdSearch_Click() 查找按钮 If Len(TxtSearchDept.Text) 0 Then 如果用户指定了系名 AdodcStudent.CommandType = adCmdText AdodcStudent.RecordSource = select * from student where _ Sdept = Trim(TxtSearchDept.Text) AdodcStudent.Refresh 使所设置的属性生效 Else 若用户未指定列名 MsgBox (请指定要查找的系) 则提示用户输入系名 End If End Sub 示例二 在示例1的基础上增加了两组供用户操作的按钮。一组是为了说明如何实现数据更改操作，即如何使用Recordset对象的AddNew、Update、Delete和CancelUpdate方法；另一组是为了说明如何编程控制结果集中浏览记录的移动，即如何使用Recordset对象的Move方法组。 窗体布局如右图所示。 示例二 程序代码 窗体启动时的初始化代码 Private Sub Form_Load() 初始时使“取消”按钮为不可用状态 CmdCancel.Enabled = False End Sub 数据操作按钮组代码 Private Sub CmdAdd_Click() “添加”命令按钮 AdodcStudent.Recordset.AddNew 使“添加”和“删除”按钮为不可用状态 CmdAdd.Enabled = False CmdDel.Enabled = False 使“更改”和“取消”按钮为可用状态 CmdUpdate.Enabled = True CmdCancel.Enabled = True End Sub 示例二 程序代码 数据操作按钮组代码 Private Sub CmdCancel_Click() “取消”命令按钮 AdodcStudent.Recordset.CancelUpdate 使“添加”和“删除”按钮为可用状态 CmdAdd.Enabled = True CmdDel.Enabled = True 使“取消”按钮为不可用状态 CmdCancel.Enabled = False End Sub 示例二 程序代码 数据操作按钮组代码 Private Sub CmdDel_Click() “删除”命令按钮 Dim res As Integer res = MsgBox(确实要删除此行记录吗？, _ vbExclamation + vbYesNo + vbDefaultButton2) 提示用户 If res = vbYes Then 如果确实要删除 AdodcStudent.Recordse