用vb开发数据库应用程序3实例

《用vb开发数据库应用程序3实例》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、C/S——VB数据库应用系统开发数据库应用系统结构VisualBasic快速入门开放数据库连接（ODBC）数据访问接口（ADO）VB数据库编程举例VB开发数据库应用系统实例分析VB数据库编程举例本节结合“学生管理数据库”以及其中的三张表，利用数据访问接口技术和ADO数据控件以及数据绑定控件，介绍在VisualBasic中开发数据库应用程序的过程。示例1示例2示例3示例1示例1说明示例1控件的属性设置示例1程序代码示例1实现过程展示示例1说明本示例说明如何利用ADO数据控件实现对Student表中全部数据的浏览，以及如何实现按用户指定的系查找相应学生信息的功能。数据浏览方式采用单行浏览

2、方式，即一次查看一条记录。通过本示例我们可以看到，设置好ADO数据控件的属性后，用户不需要编制任何代码就可以实现对数据的查询。如果查找条件变化了，用户只需要编写很少的代码就可以实现对数据源的重新查询。示例1窗体布局其中“学号”、“姓名”、“性别”、“年龄”、“所在系”及“查找系”用标签控件（Label）实现。对Student表中的各列数据用文本框控件（TextBox）实现，界面上各文本框控件内显示的内容为此文本框的对象名。ADO数据控件对象名AdodcStudent。“查找”命令按钮的对象名为“cmdSearch”，“退出”命令按钮的对象名为“cmdExit”。示例1控件的属性设置对

3、象名属性名属性值AdodcStudentConnectionString连接到SQLServer的“学生管理”数据库CommandTypeadCmdTableRecordSourceStudentTxtSnoDataSourceAdodcStudentDataFieldSnoTxtSnameDataSourceAdodcStudentDataFieldSnameTxtSsexDataSourceAdodcStudentDataFieldSsexTxtSageDataSourceAdodcStudentDataFieldSageTxtSdeptDataSourceAdodcStuden

4、tDataFieldSdept示例1程序代码“退出”按钮单击（Click）鼠标事件程序代码“查找”按钮单击（Click）鼠标事件程序代码窗体加载（Load事件）时初始化程序代码“退出”按钮单击（Click）鼠标事件程序代码PrivateSubCmdExit_Click()'"退出"按钮EndEndSub“查找”按钮单击（Click）鼠标事件程序代码PrivateSubCmdSearch_Click()'"查找"按钮IfLen(TxtSearchDept.Text)>0Then'如果用户指定了系名AdodcStudent.CommandType=adCmdTextAdodcStuden

5、t.RecordSource=“select*fromstudentwhereSdept=‘“&Trim(TxtSearchDept.Text)&“‘“AdodcStudent.Refresh'使所设置的属性生效Else'若用户未指定列名MsgBox(“请指定要查找的系”)'则提示用户输入系名EndIfEndSub窗体加载（Load事件）时初始化程序代码PrivateSubForm_Load()'窗体加载时初始化查找系的内容'初始化要查找的系为空TxtSearchDept.Text=""EndSub示例1实现过程展示设置控件和属性编写程序代码执行程序观察结果观察查找前后的结果示例2示

6、例2说明示例2控件的属性设置示例2程序代码示例2实现过程展示示例2说明示例2在示例1的基础上增加了两组供用户操作的按钮。一组是为了说明如何实现数据更改操作，即如何使用Recordset对象的AddNew、Update、Delete和CancelUpdate方法；另一组是为了说明如何编程控制结果集中浏览记录的移动，即如何使用Recordset对象的Move方法组。在这个示例中我们不使用ADO数据库控件移动记录，而是使用四个命令按钮实现此功能，因此在运行时将ADO数据控件隐藏起来。示例2窗体布局新增各命令按钮控件的对象名分别为：“添加”命令按钮：cmdAdd“删除”命令按钮：cmdDel

7、“更新”命令按钮：cmdUpdate“取消”命令按钮：cmdCancel“第一条”命令按钮：cmdFirst“上一条”命令按钮：cmdPrevious“下一条”命令按钮：cmdNext“末一条”命令按钮：cmdLast“退出”命令按钮：cmdExit示例2控件的属性设置示例2窗体上的ADO数据控件以及各文本框控件的属性设置同示例1。为了在运行时隐藏ADO数据控件，我们将AdodcStudent的Visible属性设置为：False。示例2程序代码窗体启动时