数据库原理与应用16

《数据库原理与应用16》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第十六章VB数据库应用编程示例主要学习内容示例1使用ADO数据控件，实现数据查询操作示例2对数据的添加、删除和更新操作。示例3两个窗体，一个用于查询，一个用表格显示数据。数据窗体向导用VB数据窗体向导，自动生成查询和操作数据库的窗体示例一本示例说明如何利用ADO数据控件实现对Student表中全部数据的浏览，以及如何实现按用户指定的系查找相应学生信息的功能。通过本示例可以看到，设置好ADO数据控件的属性后，用户不需要编制任何代码就可以实现对数据的查询。如果查找条件变化了，用户只需要编写很少的代码就可以实现对数据源的重新查询。本示例的窗体布局如右图所示。图15-1示例1窗体布局示例一各控件所

2、设置的与数据操作有关的属性及属性值如表所示。对象名属性名属性值AdodcStudentConnectionString连接到SQLServer的“学生管理数据库”CommandTypeadCmdTableRecordSourceStudentTxtSnoDataSourceAdodcStudentDataFieldSnoTxtSnameDataSourceAdodcStudentDataFieldSnameTxtSsexDataSourceAdodcStudentDataFieldSsexTxtSageDataSourceAdodcStudentDataFieldSageTxtSdeptD

3、ataSourceAdodcStudentDataFieldSdept示例一在这个界面中，用户可以通过单击AdodcStudent数据控件的四个按钮改变所浏览的记录。当用户单击“查找”按钮时，表示要按用户在txtSearchdept文本框中所指定的系进行查找。程序代码窗体Form1的Load事件（窗体启动时初始化）PrivateSubForm_Load()'窗体加载时初始化查找系的内容'初始化要查找的系为空TxtSearchDept.Text=""EndSub“退出”按钮CmdExit的Click事件PrivateSubCmdExit_Click()'"退出"按钮EndEndSub示例一程

4、序代码“查找”按钮CmdSearch的Click事件PrivateSubCmdSearch_Click()'"查找"按钮IfLen(TxtSearchDept.Text)>0Then'如果用户指定了系名AdodcStudent.CommandType=adCmdTextAdodcStudent.RecordSource="select*fromstudentwhere_Sdept='"&Trim(TxtSearchDept.Text)&"'"AdodcStudent.Refresh'使所设置的属性生效Else'若用户未指定列名MsgBox("请指定要查找的系")'则提示用户输入系名EndI

5、fEndSub示例二在示例1的基础上增加了两组供用户操作的按钮。一组是为了说明如何实现数据更改操作，即如何使用Recordset对象的AddNew、Update、Delete和CancelUpdate方法；另一组是为了说明如何编程控制结果集中浏览记录的移动，即如何使用Recordset对象的Move方法组。窗体布局如右图所示。图15-3示例2窗体布局示例二程序代码窗体启动时的初始化代码PrivateSubForm_Load()'初始时使“取消”按钮为不可用状态CmdCancel.Enabled=FalseEndSub数据操作按钮组代码PrivateSubCmdAdd_Click()'“添加

6、”命令按钮AdodcStudent.Recordset.AddNew'使“添加”和“删除”按钮为不可用状态CmdAdd.Enabled=FalseCmdDel.Enabled=False'使“更改”和“取消”按钮为可用状态CmdUpdate.Enabled=TrueCmdCancel.Enabled=TrueEndSub示例二程序代码数据操作按钮组代码PrivateSubCmdCancel_Click()'“取消”命令按钮AdodcStudent.Recordset.CancelUpdate'使“添加”和“删除”按钮为可用状态CmdAdd.Enabled=TrueCmdDel.Enable

7、d=True'使“取消”按钮为不可用状态CmdCancel.Enabled=FalseEndSub示例二程序代码数据操作按钮组代码PrivateSubCmdDel_Click()'“删除”命令按钮DimresAsIntegerres=MsgBox("确实要删除此行记录吗？",_vbExclamation+vbYesNo+vbDefaultButton2)'提示用户Ifres=vbYesThen'如果确实要删除AdodcS