组合查询 ——vb

概述     机房收费系统中需要组合查询，如图      首先，我分析了查询的流程，并画了流程图，如下： 思路总结好了，下面就是代码的编写了（以学生上机统计信息为例）： Dim mrc As ADODB.RecordsetDim txtSQL As StringDim Msgtxt As String If Combo3(0).Text = "" Then

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

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

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

Dim mrc As ADODB.RecordsetDim txtsql As StringDim 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 "请选择 *** 作符","警告"            Exit Sub         Else           If Text1.Text = "" Then             MsgBox "请填写要查询的内容","警告"             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),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 "请选择字段名","警告"              '第一行与第二行都不能有空值，否则报错           Exit Sub       Else         If (Combo2(0).Text = "" Or Combo2(1).Text = "") Then            MsgBox "请选择 *** 作符","警告"            Exit Sub         Else           If (Text1.Text = "" Or Text2.Text = "") Then             MsgBox "请填写要查询的内容","警告"             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字段名","警告"              '第一行与第二行都不能有空值，否则报错                    Exit Sub                 Else                    If (Combo2(2).Text = "") Then                      MsgBox "请选择条件3 *** 作符","警告"                      Exit Sub                    Else                      If (Text3.Text = "") Then                         MsgBox "请填写条件3要查询的内容","警告"                         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,7) = "余额"                  MSFlexGrID1.TextMatrix(0,8) = mrc.FIElds(13)                                  mrc.MoveNext                 End With               Loop             Else                   MsgBox "该条件下没有记录！"             End If                     mrc.Close

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

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

总结

以上是内存溢出为你收集整理的组合查询 ——vb全部内容，希望文章能够帮你解决组合查询 ——vb所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。