用VB开发数据库应用程序3实例.ppt

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控件的属性设置
对象名
属性名
属性值
AdodcStudent
ConnectionString
连接到SQL Server的“学生管理”数据库
CommandType
adCmdTable
RecordSource
Student
TxtSno
DataSource
AdodcStudent
DataField
Sno
TxtSname
DataSource
AdodcStudent
DataField
Sname
TxtSsex
DataSource
AdodcStudent
DataField
Ssex
TxtSage
DataSource
AdodcStudent
DataField
Sage
TxtSdept
DataSource
AdodcStudent
DataField
Sdept
示例1程序代码
“退出”按钮单击(Click)鼠标事件程序代码
“查找”按钮单击(Click)鼠标事件程序代码
窗体加载(Load事件)时初始化程序代码
“退出”按钮单击(Click)鼠标事件程序代码
Private Sub CmdExit_Click() ' "退出"按钮
End
End Sub
“查找”按钮单击(Click)鼠标事件程序代码
Private Sub CmdSearch_Click() ' "查找"按钮
If Len() > 0 Then '如果用户指定了系名
mandType = adCmdText
= “ select * from student where Sdept = ‘“& Trim() & “‘“
' 使所设置的属性生效
Else ' 若用户未指定列名
MsgBox (“请指定要查找的系”) ' 则提示用户输入系名
End If
End Sub