vb 多条件查询.docVIP

关键词 数据库? 查询? VB? Access? 事件代码 一、前言 对数据库信息进行查询检索是数据库管理软件的主要功能之一，也是其难点之一。本文以“人事档案”数据库为例，在Visual Basic 6.0 Sp3及Microsoft Access2000环境下，介绍在VB＋ Access系统中实现单项条件查询与多项条件查询的程序设计方法。 ? 二、字段及公共变量 假设“人事档案”数据库Archives.mdb已经生成（位于当前路径下），库中有 “人事档案”表，表中有12条记录。为简化说明，假设表中仅有如下几个字段： [姓名]TEXT(4)，[性别]TEXT(1)，[籍贯]TEXT(8)，[出生年月]DATE，[政治面貌]TEXT(8)，[文化程度]TEXT(8)。 其中“性别、政治面貌、文化程度”三个字段的值只能从列表中选择，以下简称“下拉列表字段”，“性别”的列表值有“男、女”两项；“政治面貌”的列表值有“中共党员、共青团员、民主党员、群众”四项；“文化程度”的列表值有“本科以上、大学本科、大学专科、专科以下”四项。 另外，在模块（Modbas）中定义公共变量如下： Public QueryStr As String??????????? 查询条件串 Public ConditionNo As Integer??????? 条件数 Public CombOrText As Boolean?????? 选择了Combo项还是Text项（即是否选择了下拉列表字段） Public Combo(3) As String?????????? 下拉列表字段数组，若增加下拉列表字段数，则增加此数组维数 三、查询主窗体 本查询程序示例包含三个窗体：查询主窗体（FrmQuery）、单项条件查询窗体（FrmSingle）、多项条件查询窗体（FrmMany）。其中查询主窗体（图一）上有如下几类控件： ? ? ? ? ? ? ? ? ? ? ? ? ? 1、三个文本框Text1(1)、Text1(2)、Text1(3)分别显示姓名、籍贯、出生年月等字段的值； 2、三个下拉列表框Combo1(1)、Combo1(2)、Combo1(3) 分别显示性别、政治面貌、文化程度等字段的值； 3、RichTextBox1控件用于显示个人简历； 4、Data1控件的数据库连接方式（Connect）采用VB系统默认的Access 2000（视Microsoft Office版本而定）。可分别在Data1控件的DatabaseName、RecordSource属性中设置Data1所关联的数据库文件名及数据表名，亦可在主窗体的Form_Load中加入如下代码： Private Sub Form_Load() ??? Dim FileName As String ??? If Right(App.Path, 1) = \ Then?????????????? 若 App.Path 为根目录 ????? FileName = App.Path Archives.mdb ??? Else ????? FileName = App.Path \Archives.mdb ??? End If ??? Set File_db = OpenDatabase(FileName)???????? 打开人事档案数据库 ??? Data1.DatabaseName = FileName ??? Data1.RecordSource = 人事档案???????????? 关联人事档案表 ??? Data1.Refresh End Sub 5、MSFlexGrid1控件的数据源（DataSource）为Data1，列数由数据源中“人事档案”表的字段数而定（照片字段不予考虑），本例为6列，固定1行用于显示字段名。 6、几个重要的命令键Command1（单项查询）、Command2（多项查询）、Command3（清除条件）。 四、单项条件查询 1、单项条件查询窗体 在查询主窗体中点击“单项查询”将弹出单项条件查询窗体（图二）。 窗体上有Combo1、Combo2、Combo3三个下拉列表框及一个Text1文本框。其中，查询项目下拉列表（Combo1）为查询主窗体上Data1所关联的数据库的字段；条件关系下拉列表（Combo２）为数学关系符“＝、＜＞、＜、≤、＞、≥、Like（包含）、Not Like（不包含）”；查询信息为下拉列表选项（Combo3）或输入值（Text1）。 当查询项目为“性别、政治面貌、文化程度”等列表字段时，隐藏Text1控件，显示Combo3控件，此时查询者可在Combo3中选择要查询的信息项；当查询项目选择“姓名、籍贯、出生年月”等非列表字段时，隐藏Combo3控件，显