SQL查询Excel结果数据还可这样输出到窗体控件ListBox和ListView

上一期作品，我们分享了通过SQL查询Excel的结果数据输出到Excel自身的工作表区域。大家估计应该感觉到了SQL查询的强大功能，它对精确或模糊查询均无畏惧，优点是查询检索效率高，将查询结果输出的形式更加灵活，语法结构较为简洁，没有过多的IF结合循环结构繁琐的语句，只需掌握几个简单的流程环节“连接对象、数据记录结合对象创建-->连接对象的打开-->SQL语句的编辑创建-->执行结构化查询-->输出查询结果-->关闭数据记录结合对象和连接对象-->置空数据记录集合对象和数据连接对象”即可。上一期作品在末尾我们提到过将SQL查询结果输出采用更多的形式--窗体控件展示，通过窗体控件展示我们的查询将从界面上更加符合我们的视觉感官(直接将查询结果拿出来显示而不占用Excel原有的工作表区域，进而Excel工作表很整洁不凌乱！)。

今天，我们就来着手解决这个问题。还是来认识下基于窗体的ListBox和ListView这两个控件吧。

ListBox是ActiveX列表框控件，里面的项目内容是一条一条的数据记录，列表项目内容可以通过属性“.RowSource”或“.List”的形式从外部直接载入，显示多少列用属性“.ColumnCount”指定。

ListView是ActiveX列表视图控件，乍一看，它和ListBox很相似，但是ListView还是不同于它，ListView其实就是一种视图方式的显示，使用上比起ListBox而言更加灵活自由。这主要体现在列表视图表头标题的添加可以自由定义，而ListBox也不是这么容易；还有就是ListView的列表项目数据载入的方式和ListBox不同，ListView是先添加每一行的第一列作为本行的母项目(ListView1.ListItems.Add , ,rs.Fields(rs(0).Name)))，然后再紧接着添加母项目的子项目作为本行后续的列值母项目(ListView1.ListItems(i).SubItems(j) Add , ,rs.Fields(rs(j).Name)))，在这里：rs是记录集合对象实例，rs.Fields(rs(j).Name))是返回rs中第j列字段名rs(j).Name所对应的当前记录的该字段的属性值rs.Fields(rs(j).Name))。有了这个知识了解，大家对我们后续的理解将会更加容易。

其他的SQL查询技术和上一期作品方法是一样的，我们本期作品不作过多的阐述，本期作品的重点是关于SQL查询结果如何分别输出到窗体ListBox和ListView控件上呈现的问题！

下面，我们就一起来解决ListBox和ListView呈现SQL查询结果的问题。

一、准备用于SQL查询的前端Excel数据及简单交互按钮

和上一期作品类似，准备简单的用于待查询的数据及添加一个简单的表单控件按钮用于交互。如下图所示

二、VBA后台添加一个窗体并对其布局设置

我们插入一个窗体，然后在其上面添加两个文本框(第一个文本框用于输入模糊查询的关键字，第二个文本框用于动态跟踪第一个文本框输入的内容状态)，接着添加四个标签用于提示，最后添加一个ListBox、一个ListView，值得注意的是ListView要通过控件工具箱右键附加控件载入。最终效果如下图所示

三、体验SQL查询结果分别输出到ListBox和ListView的呈现效果

(一)点击Excel前端的按钮<利用结构化查询Sql语句输出查询结果到列表框ListBox和列表视图ListView>，即将呈现SQL查询结果的输出窗体。如下图所示

(二)在SQL输出窗体的关键字提示的文本框输入【姓名】字段查询关键字如果是存在的，则会发现第二个文本框动态跟进第一个关键字文本框输入的内容，同时，ListBox列表框和ListView列表视图也同步呈现动态的查询结果。如下图所示

(三)如果在SQL输出窗体的关键字提示的文本框中输入【姓名】字段查询关键字是不存在的，则ListBox列表框和ListView列表视图也同步呈现为空内容

(四)如果在SQL输出窗体的关键字提示的文本框中回退【姓名】字段查询关键字为空，则ListBox列表框和ListView列表视图也同步呈现为空内容

好了，我们接下来看看后台是SQL查询后是如何给ListBox列表框和ListView列表视图传送数据的呢？请大家看看下面的功能代码。

四、SQL查询后输出给ListBox列表框和ListView列表视图的功能代码截图(带详尽注释)

(一)模块1代码截图：

这个数组转置函数非常重要，我们通过SQL查询的结果事实上可以赋予一个动态数组暂存，然后直接可以将这个动态数组赋予ListBox列表框的.List属性，但是对于ListView列表视图的列表项目内容则不能直接用这个动态数组的元素复制追加，原因是这个通过SQL查询的结果赋予的动态数组元素结构非常奇特--是按照纵向检索到的数据按“列”的方式存入的，而并非我们理想的按“行”的方式存入的。为此，我们必须将该动态数组转置后用新的数组存储，新的数组的内容存储就是我们理想的按“行”的方式存入的模式。于是，这个新的数组就可用于ListView列表视图的列表项目内容赋值了。

(二)窗体代码截图：

好了，本期将SQL查询Excel的结果数据分别输出给窗体控件ListBox和ListView就完整分享给各位了，大家可以大胆去用该方法查询输出你们的数据了，看看效果吧！不要忘了，大家点个赞和评价哦，在此深表感谢！

在这里得补充一下，本来我们可以用最常用的DataGrid数据珊格控件对象更加直接接收SQL的查询结果的，但遗憾的是VBA没有DataGrid数据珊格控件，只能通过从外部引入到Windows目录“Windows\System32\”下面的形式以管理员身份注册，虽说可以注册成功也能看到这个控件，但是不可用，原因在于该控件估计是纯的Visual Basic才能用，而我们Office的VBA却不能使用它的缘故。所以，我们这里就没有用DataGrid数据珊格控件而使用了ListBox和ListView控件做出了同样的效果，望大家理解。

最后，还是老话，非常感谢各位粉丝朋友对我的关注(头条号：跟我学Office高级办公)、推广和点评，有了各位的支持，我会带着各位的鼓励一如既往地推出更多有实用意义的作品，谢谢！