一个基于ACCESS的复杂检索系统的功能实现图解教程及关键代码

软件教程 2024-06-22 11:46:32 热度：34℃

最近在做一个基于ACCESS的检索系统，数据量不是很大，但数据检索窗体比较复杂，如下图（软件界面的文字部分做了隐藏处理），左侧是一个控件树，上方为检索的条件设置，第一个字段为检索值，第二个字段为是用户输入的检索值，第三个为检索逻辑，现把主要的技术难点记录一下：

（一）、学科树和检索条件的结合查询

ACCESS提供一个叫“Treeview”的控件，可以制作学科树，单击学科树的某个叶子节点，可以访问相应的学科数据。但用户又要求，检索后，要在不同学科下浏览检索结果，这就要求，单击学科树时，也要同时触发检索。

具体的实现方法为：

Treeview的NodeClick事件，定义一个SQL变量，用户获取子节点的信息；同时，对进行条件判断，判断用户是否输入检索条件，如用户未输入检索条件，则直接把这个SQL变量赋给查询结果窗体；如用户输入了检索条件，则把用户的输入转化为SQL语句，并用and条件和这个SQL连接，这样就实现了学科树检索和用户条件检索的结合。

一个基于ACCESS的复杂检索系统的功能实现图解教程及关键代码1

一个基于ACCESS的复杂检索系统的功能实现图解教程及关键代码2

（二）、多字段检索和全文检索

用户要求能进行全文检索，怎么做呢？可以新建一个查询，把要检索的多个字段进行连接，连接成一个长字段，用户进行全文检索时就在这个字段内检索就可以了。这种实现方法不是特别好，但我测试，在目前的数据量下不会有问题，另外，ACCESS的查询保存的是SQL语句，并不会增加数据库表的体积，数据库体积不会增大，目前测试速度没有问题。

（三）、查询结果中记录的导出

查询结果存储在一个子窗体内，用户要求把查询结果导出为EXCEL格式。把窗体导出的数据导出方法很多，在其他开发工具里很容易就实现，但在ACCESS里确有些费周折。网上查了下，主要的方法有复制的方法，用VBA代码把子窗体的光标移动到第一条记录，然后写个循环，依次选中所有的行，然后，调用excel把选中的行复制到excel里去。这种方法在数据量小的时候，一点问题没有，但超过1万条是就很慢了。

我使用的是另一种方法，使用vb里的Excel.Application，这个对象可以直接把窗体里的内容复制到一个excel里，

具体如下：

exlpath = getFilepath(, "excel(*.xls)", "保存文件为xls", , False)

If exlpath = "" Then Exit Sub

（这一段是调用一个函数，给用选择一个保存路径的选择，用户选择的路径保存在exlpath里）

（下面的代码网上有，大意是创建一个excel对象，读取表结构，把表结构拷贝至第一行，从A2单元格开始拷贝数据）

Set oExcel = CreateObject("Excel.Application")

Set oBook = oExcel.Workbooks.Add()

Me.xiform.Form.Recordset.MoveFirst

For i = 0 To Me.xiform.Form.Recordset.Fields.Count - 1

oBook.Worksheets(1).Cells(1, i + 1).Value = Me.xiform.Form.Recordset.Fields(i).Name

oBook.Worksheets(1).Range("A2").CopyFromRecordset Me.xiform.Form.Recordset