组合查询 ——vb_vb 组合查询-程序员宅基地

机房收费系统中需要组合查询，如图

需实现的功能如图

首先，我分析了查询的流程，并画了流程图，如下：

流程图

思路总结好了，下面就是代码的编写了（以学生上机统计信息为例）：

Dim mrc As ADODB.Recordset
Dim txtSQL As String
Dim Msgtxt As String


   If Combo3(0).Text = "" Then                                 '不需要组合查询，第一行有为空值时提示错误信息
       If Combo1(0).Text = "" Then
           MsgBox "请选择字段名", vbOKOnly + vbExclamation, "警告"
           Exit Sub
       Else
         If Combo2(0).Text = "" Then
            MsgBox "请选择操作符", vbOKOnly + vbExclamation, "警告"
            Exit Sub
         Else
           If Text1.Text = "" Then
             MsgBox "请填写要查询的内容", vbOKOnly + vbExclamation, "警告"
             Exit Sub
           Else                                 '组合关系框为空且条件成立时，建立的查询，只有第一行"
   '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
               txtSQL = "select * from line_info where "
               txtSQL = txtSQL & FName(Combo1(0).Text) & Trim(Combo2(0).Text) & "'" & Trim(Text1.Text) & "'"
  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''
              Set mrc = ExecuteSQL(txtSQL, Msgtxt)
              
              If Not (mrc.BOF And mrc.EOF) Then
                  MSFlexGrid1.Rows = 1
                  
                  MSFlexGrid1.CellAlignment = 4
                  MSFlexGrid1.TextMatrix(0, 0) = "卡号"
                  MSFlexGrid1.TextMatrix(0, 1) = "姓名"
                  MSFlexGrid1.TextMatrix(0, 2) = "上机日期"
                  MSFlexGrid1.TextMatrix(0, 3) = "上机时间"
                  MSFlexGrid1.TextMatrix(0, 4) = "下机日期"
                  MSFlexGrid1.TextMatrix(0, 5) = "下机时间"
                  MSFlexGrid1.TextMatrix(0, 6) = "消费金额"
                  MSFlexGrid1.TextMatrix(0, 7) = "金额"
                  MSFlexGrid1.TextMatrix(0, 8) = "备注"

   
               Do While Not mrc.EOF                                   '显示数据
                 With MSFlexGrid1
                 .Rows = .Rows + 1 '这种方式也可防止空白行的出现
                 .CellAlignment = 4
                 .TextMatrix(.Rows - 1, 0) = mrc.Fields(1)
                 .TextMatrix(.Rows - 1, 1) = mrc.Fields(2)
                 .TextMatrix(.Rows - 1, 2) = Format(mrc.Fields(6), "yyyy-mm-dd")
                 .TextMatrix(.Rows - 1, 3) = mrc.Fields(7)
                 .TextMatrix(.Rows - 1, 4) = Format(mrc.Fields(8), "yyyy-mm-dd")
                 .TextMatrix(.Rows - 1, 5) = mrc.Fields(9)
                 .TextMatrix(.Rows - 1, 6) = mrc.Fields(11)
                 .TextMatrix(.Rows - 1, 7) = mrc.Fields(12)
                 .TextMatrix(.Rows - 1, 8) = mrc.Fields(13)
                
                   mrc.MoveNext
                 End With
               Loop
             Else
                   MsgBox "该条件下没有记录！"
             End If
           End If
        End If
      End If
   End If
       
   If Not (Combo3(0).Text = "") Then                                        'combo3（0）不为空时，分两行或三行查询
       If (Combo1(0).Text = "" Or Combo1(1).Text = "") Then
           MsgBox "请选择字段名", vbOKOnly + vbExclamation, "警告"              '第一行与第二行都不能有空值，否则报错
           Exit Sub
       Else
         If (Combo2(0).Text = "" Or Combo2(1).Text = "") Then
            MsgBox "请选择操作符", vbOKOnly + vbExclamation, "警告"
            Exit Sub
         Else
           If (Text1.Text = "" Or Text2.Text = "") Then
             MsgBox "请填写要查询的内容", vbOKOnly + vbExclamation, "警告"
             Exit Sub
           Else
             If Combo3(1).Text = "" Then     'combo3（1）为空值时，前两行查询

                       txtSQL = "select * from line_info where "
                       txtSQL = txtSQL & FName(Combo1(0).Text) & " " & Trim(Combo2(0).Text) & "'" & Trim(Text1.Text) & "'" & FName(Combo3(0).Text) & " " & FName(Combo1(1).Text) & Combo2(1).Text & "'" & Trim(Text2.Text) & "'"
                     
                End If

              If Not Combo3(1).Text = "" Then                         'combo3（1）不为空值时，三行查询
                 If (Combo1(2).Text = "") Then
                    MsgBox "请选择条件3字段名", vbOKOnly + vbExclamation, "警告"              '第一行与第二行都不能有空值，否则报错
                    Exit Sub
                 Else
                    If (Combo2(2).Text = "") Then
                      MsgBox "请选择条件3操作符", vbOKOnly + vbExclamation, "警告"
                      Exit Sub
                    Else
                      If (Text3.Text = "") Then
                         MsgBox "请填写条件3要查询的内容", vbOKOnly + vbExclamation, "警告"
                         Exit Sub
                      Else                     '没有空值
                      
                         txtSQL = "select * from line_info where "
                         
                         txtSQL = txtSQL & FName(Combo1(0).Text) & Trim(Combo2(0).Text) & "'" & Trim(Text1.Text) & "'" & FName(Combo3(0).Text) & " " & FName(Combo1(1).Text) & Trim(Combo2(1).Text) & "'" & Trim(Text2.Text) & "' " & FName(Combo3(1).Text) & " " & FName(Combo1(2).Text) & Trim(Combo2(2).Text) & "'" & Trim(Text3.Text) & "'"
                       End If
                    End If
                  End If
               End If
            End If
          End If
        End If
     End If
     
         Set mrc = ExecuteSQL(txtSQL, Msgtxt)
              
              If Not (mrc.BOF And mrc.EOF) Then
                  MSFlexGrid1.Rows = 1
                  
                  MSFlexGrid1.CellAlignment = 4
                  MSFlexGrid1.TextMatrix(0, 0) = "卡号"
                  MSFlexGrid1.TextMatrix(0, 1) = "姓名"
                  MSFlexGrid1.TextMatrix(0, 2) = "上机日期"
                  MSFlexGrid1.TextMatrix(0, 3) = "上机时间"
                  MSFlexGrid1.TextMatrix(0, 4) = "下机日期"
                  MSFlexGrid1.TextMatrix(0, 5) = "下机时间"
                  MSFlexGrid1.TextMatrix(0, 6) = "消费金额"
                  MSFlexGrid1.TextMatrix(0, 7) = "余额"
                  MSFlexGrid1.TextMatrix(0, 8) = "备注"

   
               Do While Not mrc.EOF                                   '显示数据
                 With MSFlexGrid1
                 .Rows = .Rows + 1 '这种方式也可防止空白行的出现
                 .CellAlignment = 4
                 .TextMatrix(.Rows - 1, 0) = mrc.Fields(1)
                 .TextMatrix(.Rows - 1, 1) = mrc.Fields(2)
                 .TextMatrix(.Rows - 1, 2) = Format(mrc.Fields(6), "yyyy-mm-dd")
                 .TextMatrix(.Rows - 1, 3) = mrc.Fields(7)
                 .TextMatrix(.Rows - 1, 4) = Format(mrc.Fields(8), "yyyy-mm-dd")
                 .TextMatrix(.Rows - 1, 5) = mrc.Fields(9)
                 .TextMatrix(.Rows - 1, 6) = mrc.Fields(11)
                 .TextMatrix(.Rows - 1, 7) = mrc.Fields(12)
                 .TextMatrix(.Rows - 1, 8) = mrc.Fields(13)
               
                   mrc.MoveNext
                 End With
               Loop
             Else
                   MsgBox "该条件下没有记录！"
             End If
             
        mrc.Close

逻辑不难，但是查询的时候我的思维有些问题，太麻烦了，在跟别人交流时，发现这种查询方法比我的简单多了，学到了很多，尤其是思维方式，自己应该积极转变，多多学习。

 txtSQL = "select * from line_info where "
 txtSQL = txtSQL & ...

本文链接：https://blog.csdn.net/JYL15732624861/article/details/47210925

原作者删帖不实内容删帖广告或垃圾文章投诉

智能推荐

【Android】Retrofit入门详解-程序员宅基地

文章浏览阅读1.6k次，点赞23次，收藏2次。简介：大三学生党一枚！主攻Android开发，对于Web和后端均有了解。个人语录：取乎其上，得乎其中，取乎其中，得乎其下，以顶级态度写好一篇的博客。Retrofit入门一.Retrofit介绍二.Retrofit注解2.1 请求方法注解2.1.1 GET请求2.1.2 POST请求2.2 标记类注解2.2.1 FormUrlEncoded2.2.2 Multipart2.2.3 Streaming2.3 参数类注解2.3.1 Header和Headers2.3.2 Body2.3.3 Path2.3.4_retrofit

教你拷贝所有文件到指定文件夹_所有文件夹下文件的拷贝怎么弄-程序员宅基地

文章浏览阅读1.9k次。在处理文件的时候，如何将文件、文件夹复制到指定文件夹之中呢？打开【文件批量改名高手】，在“文件批量管理任务”中，先点“添加文件”，将文件素材导入。选好一系列的复制选项，单击开始复制，等全部复制好了，提示“已完成XX%”然后可以任意右击一个文件夹路径，在显示出的下拉列表中，选择“打开文件夹”在“复制到的目标文件夹（目录）”中，导入文件夹，多个文件夹，一行一个。最后，即可看到文件、文件夹都复制到各个指定的文件夹之中一一显示着啦。导入后，在表格中我们就可以看到文件或文件夹的名称以及所排列的序号。..._所有文件夹下文件的拷贝怎么弄

win10和linux双系统安装步骤（详细!）_怎么装双系统win10和linux-程序员宅基地

文章浏览阅读5k次，点赞11次，收藏42次。Windows10安装ubuntu双系统教程ubuntu分区方案_怎么装双系统win10和linux

从图的邻接表表示转换成邻接矩阵表示_typedef struct arcnode{int adjvex;-程序员宅基地

文章浏览阅读1.1k次。从图的邻接表表示转换成邻接矩阵表示typedef struct ArcNode{ int adjvex;//该弧指向的顶点的位置 struct ArcNode *next;//下一条弧的指针 int weight;//弧的权重} ArcNode;typedef struct{ VertexType data;//顶点信息 ArcNode *firstarc;} VNode,AdList[MAXSIZE];typedef struct{ int vexnum;//顶点数 int _typedef struct arcnode{int adjvex;

学好Python开发你一定会用到这30框架种(1)-程序员宅基地

文章浏览阅读635次，点赞18次，收藏26次。14、fabric是基于Python实现的SSH命令行工具，简化了SSH的应用程序部署及系统管理任务，它提供了系统基础的操作组件，可以实现本地或远程shell命令，包括命令执行，文件上传，下载及完整执行日志输出等功能。7、pycurl 是一个用C语言写的libcurl Python实现，功能强大，支持的协议有：FTP,HTTP,HTTPS,TELNET等，可以理解为Linux下curl命令功能的Python封装。Scipy是Python的科学计算库，对Numpy的功能进行了扩充，同时也有部分功能是重合的。

Ubuntu中anaconda图形化界面的使用_ubuntu安装anaconda后怎么运行图形化节目-程序员宅基地

文章浏览阅读4.9k次，点赞3次，收藏25次。看网上教程，跟着配置，然后装完anaconda之后，大家都继续安装pycharm，然后傻吊的以为Ubuntu下的anaconda是没有图形化界面的，只有win下面装完anaconda之后，可以直接在jupyter下面写代码今天突然发现Ubuntu下anaconda也是有图像化界面的$ conda --version /* 查看版本 */$ conda create --name my_en..._ubuntu安装anaconda后怎么运行图形化节目