第12章 vb与数据库(2)

VB程序设计 面向对象

Visual basic

程序设计第十二章 vb与数据库(2)

VB程序设计 面向对象

第12章 VB与数据库应用(二)12.4

ActiveX绑定控件

12.5

数据过滤和排序

结束

VB程序设计 面向对象

本节主要介绍几个ActiveX绑 定控件的使用方法、SQL(结构 化查询语言)的知识以及用ADO 对象访问数据库的方法。

结束

VB程序设计 面向对象

12.4 ActiveX绑定控件1. DataList控件 和DataCombo控件 选择[工程]/[部件]/[Microsoft DataList Controls 6.0(OLEDB)],可以添加DataList 控件和DataCombo控件。 DataList控件是数据绑定列表框，需要指定 一个ADO Data数据源，并使用一个字段进 行填充。 DataCombo控件是数据绑定组合框，功能 与DataList控件相似。结束

VB程序设计 面向对象

DataList控件和DataCombo控件常用属性属性名称 BouundColum BouundText DataField DataSource 属性含义 返回或设置绑定数据源中的一个源字段名称 返回或设置由BouundColum属性指定的字段值 返回或设置绑定的字段名 返回或设置绑定数据源，通常为ADO Data控件 返回或设置RowSource对象中的字段名，这个对象 由RowSource属性指定，用于填充DataList控件和DataCombo控件的列表部分

Listfield

RowSource SelectItem

设置一个指定ADO Data控件的值， DataList控件和 DataCombo控件的列表由这个ADO Data控件填充 返回一个值，包含DataList控件和DataCombo控件中选中的记录的值结束

VB程序设计 面向对象

2. DataGrid控件 选择[工程]/[部件]/[Microsoft DataGrid Controls 6.0(OLEDB)],可以添加DataGrid 控件。 DataGrid控件以表格的形式显示结果集中的 数据。同样需要ADO Data控件提供数据源。 DataGrid控件显示并允许对Recordset对象 中代表记录和字段的一系列行和列进行数据 操作。 注意：如果使用Move方法定位DataGrid控 件，就必须使用Refresh方法强迫控件重画。结束

VB程序设计 面向对象

DataGrid控件常用属性属性名称 属性含义 设置是否允许向与DataGrid控件连接的Recordset对 象中添加新记录。True:允许；False:不允许。 设置是否允许从与DataGrid控件连接的Recordset对 象中删除记录。True:允许；False:不允许。 设置是否允许修改与DataGrid控件连接的Recordset 对象中的记录。True:允许；False:不允许。 设置在DataGrid控件中是否显示列标头。True:显示； False:不显示。

AllowaddnewAllowDelete

AllowUpdateColumnHeaders

ColumnsDataSource Headfont HeadLines

返回DataGrid控件中Column对象的集合，可以使用 Columns设置表格中列的属性。设置DataGrid控件绑定数据源设置DataGrid控件列标头中使用的字体

设置显示在DataGrid控件列标头中文本行数结束

VB程序设计 面向对象

12.5 数据排序和筛选利用Recordset对象的Filter属性对数据进行 过滤 格式： 数据控件名. Recordset. Filter=“过滤条件” 利用Recordset对象的Sort属性对数据进行 排序 数据控件名. Recordset. Sort =“排序字段”

结束

VB程序设计 面向对象

例：继续设计程序，增加三个窗体：学生成绩选择性 浏览窗体、学生成绩排序窗体和学生成绩筛选窗体， 窗体中用表格方式显示学生成绩表的数据，并能按 指定方式显示、筛选和排序。

学生成绩选择浏览窗体界面

结束

VB程序设计 面向对象

学生成绩排序窗体界面

学生成绩筛选窗体界面

结束

VB程序设计 面向对象

例：添加一个主窗体，添加菜单内容(如图所示), 单击相应菜单项打开相应的窗体。

结束

VB程序设计 面向对象

学生成绩选择浏览窗体代码： Private Sub Command1_Click() If Option1(0).Value Then Frame3.Visible = True Frame4.Visible = False ElseIf Option1(1).Value Then Frame3.Visible = False Frame4.Visible = True End If End Sub结束

VB程序设计 面向对象

学生成绩选择浏览窗体代码： Private Sub DataCombo1_Click(Area As Integer)Adodc2.Recordset.Bookmark = DataCombo1.SelectedItem Frame2.Visible = True

End Sub Private Sub DataList1_Click()Adodc2.Recordset.Bookmark = DataList1.SelectedItem Frame2.Visible = True

End Sub结束

VB程序设计 面向对象

学生成绩排序窗体代码： Private Sub cmdsort_Click() If Combo1.Text = "" Then MsgBox "请选择要排序的字段", , "提示" Exit Sub 留一个空格 End If If Option2.Value Then Adodc1.Recordset.Sort = Combo1.Text & " desc" Else Adodc1.Recordset.Sort = Combo1.Text End If End Sub 结束

VB程序设计 面向对象

Private Sub cmdquit_Click() Unload Me End Sub Private Sub Form_Load() Adodc1.Visible = False Combo1.Text = "" For i = 0 To Adodc1.Recordset.Fields.Count - 1 Combo1.AddItem Adodc1.Recordset.Fields(i).Name Next i End Sub

结束

VB程序设计 面向对象

学生成绩筛选窗体代码：Private Sub Form_Load() Adodc1.Visible = False For i = 0 To Adodc1.Recordset.Fields.Count - 1 Combo1.AddItem Adodc1.Recordset.Fields(i).Name Next i Combo1.Text = "" Combo2.AddItem "=" Combo2.AddItem ">=" Combo2.AddItem ">" Combo2.AddItem "<=" Combo2.AddItem "<" Combo2.AddItem "<>" Combo2.AddItem "like" Combo2.Text = "" Text1.Text = "" End Sub

结束

VB程序设计 面向对象

Private Sub cmdfilter_Click()If Combo1.Text = "" Or Combo2.Text = "" Or Text1.Text = "" Then

MsgBox "请选择筛选的条件", , "提示" Exit SubEnd If

If Combo1.Text = "姓名" Or Combo1.Text = "专业" Then If Combo2.Text = "like" Then Adodc1.Recordset.Filter = Combo1 & " like " & "'" & Text1 & "*'" Else Adodc1.Recordset.Filter = Combo1 & Combo2 & "'" & Text1 & "'" End If Else Adodc1.Recordset.Filter = Combo1 & Combo2 & Text1 End If End Sub结束

VB程序设计 面向对象

Private Sub cmdrel_Click() Adodc1.Recordset.Filter = adFilterNone Adodc1.Refresh End Sub Private Sub cmdquit_Click() Unload Me End Sub

结束