“上一条”命令按钮“上一条”命令按钮PrivateSubCmdPrevious_Click()AdodcStudent.Recordset.MovePreviousIfAdodcStudent.Recordset.BOF=TrueThen如果已经移到了第一行之前，则将指针定位在第一行AdodcStudent.Recordset.MoveFirstEndIfEndSub第30页，共48页，星期日，2025年，2月5日结束程序代码“退出”命令按钮PrivateSubCmdExit_Click()EndEndSub第31页，共48页，星期日，2025年，2月5日示例2实现过程展示设置控件和属性第32页，共48页，星期日，2025年，2月5日编写程序代码第33页，共48页，星期日，2025年，2月5日执行程序观察结果第34页，共48页，星期日，2025年，2月5日第1页，共48页，星期日，2025年，2月5日VB数据库编程举例本节结合“学生管理数据库”以及其中的三张表，利用数据访问接口技术和ADO数据控件以及数据绑定控件，介绍在VisualBasic中开发数据库应用程序的过程。示例1示例2示例3第2页，共48页，星期日，2025年，2月5日示例1示例1说明示例1控件的属性设置示例1程序代码示例1实现过程展示第3页，共48页，星期日，2025年，2月5日示例1说明本示例说明如何利用ADO数据控件实现对Student表中全部数据的浏览，以及如何实现按用户指定的系查找相应学生信息的功能。数据浏览方式采用单行浏览方式，即一次查看一条记录。通过本示例我们可以看到，设置好ADO数据控件的属性后，用户不需要编制任何代码就可以实现对数据的查询。如果查找条件变化了，用户只需要编写很少的代码就可以实现对数据源的重新查询。第4页，共48页，星期日，2025年，2月5日示例1窗体布局第5页，共48页，星期日，2025年，2月5日其中“学号”、“姓名”、“性别”、“年龄”、“所在系”及“查找系”用标签控件（Label）实现。对Student表中的各列数据用文本框控件（TextBox）实现，界面上各文本框控件内显示的内容为此文本框的对象名。ADO数据控件对象名AdodcStudent。“查找”命令按钮的对象名为“cmdSearch”，“退出”命令按钮的对象名为“cmdExit”。第6页，共48页，星期日，2025年，2月5日示例1控件的属性设置对象名属性名属性值AdodcStudentConnectionString连接到SQLServer的“学生管理”数据库CommandTypeadCmdTableRecordSourceStudentTxtSnoDataSourceAdodcStudentDataFieldSnoTxtSnameDataSourceAdodcStudent?DataFieldSnameTxtSsexDataSourceAdodcStudentDataFieldSsexTxtSageDataSourceAdodcStudentDataFieldSageTxtSdeptDataSourceAdodcStudentDataFieldSdept第7页，共48页，星期日，2025年，2月5日示例1程序代码“退出”按钮单击（Click）鼠标事件程序代码“查找”按钮单击（Click）鼠标事件程序代码窗体加载（Load事件）时初始化程序代码第8页，共48页，星期日，2025年，2月5日“退出”按钮单击（Click）鼠标事件程序代码PrivateSubCmdExit_Click()退出按钮EndEndSub第9页，共48页，星期日，2025年，2月5日“查找”按钮单击（Click）鼠标事件程序代码PrivateSubCmdSearch_Click()查找按钮IfLen(TxtSearchDept.Text)0Then如果用户指定了系名AdodcStudent.CommandType=adCmdTextAdodcStudent.RecordSource=“select*fromstudentwhereSdept=‘“Trim(TxtSearchDept.Text)“‘“AdodcStud