【VB开源代码栏目提醒】：本文主要为网学会员提供“用VB开发数据库应用程序3实例 - 其它资料”，希望对需要用VB开发数据库应用程序3实例 - 其它资料网友有所帮助，学习一下!

C/S——VB数据库应用系统开发数据库应用系统结构Visual Basic快速入门开放数据库连接（ODBC）数据访问接口（ADO）VB数据库编程举例VB开发数据库应用系统实例分析VB数据库编程举例本节结合 “学生管理数据库”以及其中的三张表，利用数据访问接口技术和ADO数据控件以及数据绑定控件，介绍在Visual Basic中开发数据库应用程序的过程。

    示例1示例2示例3示例1示例1说明示例1控件的属性设置示例1程序代码示例1实现过程展示示例1说明本 示 例 说 明 如 何 利 用 ADO 数 据 控 件 实 现 对Student表中全部数据的浏览，以及如何实现按用户指定的系查找相应学生信息的功能。

    数据浏览方式采用单行浏览方式，即一次查看一条记录。

    通过本示例我们可以看到，设置好ADO数据控件的属性后，用户不需要编制任何代码就可以实现对数据的查询。

    如果查找条件变化了，用户只需要编写很少的代码就可以实现对数据源的重新查询。

    示例1窗体布局其中“学号”、“姓名”、“性别”、“年龄”、“所在系”及“查找系”用标签控件（Label）实现。

    对Student表中的各列数据用文本框控件（TextBox）实现，界面上各文本框控件内显示的内容为此文本框的对象名。

    ADO数据控件对象名AdodcStudent。

    “查找”命令按钮的对象名为“cmdSearch”，“退出”命令按钮的对象名为“cmdExit”。

    示例1控件的属性设置 对象名 属性名 属性值 ConnectionString 连接到SQL Server的“学生管理”数据库AdodcStudent CommandType adCmdTable RecordSource StudentTxtSno DataSource AdodcStudent DataField SnoTxtSname DataSource AdodcStudent DataField SnameTxtSsex DataSource AdodcStudent DataField SsexTxtSage DataSource AdodcStudent DataField SageTxtSdept DataSource AdodcStudent DataField Sdept示例1程序代码“退出”按钮单击（Click）鼠标事件程序代码“查找”按钮单击（Click）鼠标事件程序代码窗体加载（Load事件）时初始化程序代码“退出”按钮单击（Click）鼠标事件程序代码Private Sub CmdExit_Click 退出按钮 End End Sub “查找”按钮单击（Click）鼠标事件程序代码Private Sub CmdSearch_Click 查找按钮If LenTxtSearchDept.Text 0 Then 如果用户指定了系名 AdodcStudent.CommandType adCmdText AdodcStudent.RecordSource “ select from student where Sdept ‘ “ TrimTxtSearchDept.Text “ ‘ “ AdodcStudent.Refresh 使所设置的属性生效 Else 若用户未指定列名 MsgBox “请指定要查找的系” 则提示用户输入系名 End IfEnd Sub窗体加载（Load事件）时初始化程序代码 Private Sub Form_Load 窗体加载时初始化查找系的内容 初始化要查找的系为空 TxtSearchDept.Text End Sub示例1实现过程展示设置控件和属性编写程序代码执行程序观察结果观察查找前后的结果示例2 示例2说明 示例2控件的属性设置 示例2程序代码 示例2实现过程展示示例2说明 示例2在示例1的基础上增加了两组供用户操作的按钮。

     一组是为了说明如何实现数据更改操作，即如何使用 Recordset对象的AddNew、Update、Delete和 CancelUpdate方法； 另一组是为了说明如何编程控制结果集中浏览记录的移 动，即如何使用Recordset对象的Move方法组。

     在这个示例中我们不使用ADO数据库控件移动记录，而 是使用四个命令按钮实现此功能，因此在运行时将ADO 数据控件隐藏起来。

    示例2窗体布局新增各命令按钮控件的对象名分别为： “添加”命令按钮：cmdAdd “删除”命令按钮：cmdDel “更新”命令按钮：cmdUpdate “取消”命令按钮：cmdCancel “第一条”命令按钮：cmdFirst “上一条”命令按钮：cmdPrevious “下一条”命令按钮：cmdNext “末一条”命令按钮：cmdLast “退出”命令按钮：cmdExit示例2控件的属性设置示例2窗体上的ADO数据控件以及各文本框控件的属性设置同示例1。

    为了在运行时隐藏ADO数据控件，我们将AdodcStudent的Visible属性设置为：False。