寫在前面：

組合查詢顧名思義是多條件查詢，關鍵就是確定在一定的條件下需要查詢與這個條件想對應的內容，確定好查詢內容之後，每一次查詢都是在上一個條件基礎上加一個條件的查詢。

下面就看一下機房中複合查詢值的關注的地方。

過程：

1.向combobox控制元件中填充資訊

我在新增的時候就是一個個地新增，結果寫了好長的程式碼，在這裡值得學習是設定控制元件陣列，利用索引來設定迴圈往控制元件裡新增資訊，具體的程式碼如下：

Private Sub Form_Load()
 Dim i, j, k
 Me.Height = 10185
 Me.Width = 15135
 Label1.Caption = "輸入查詢條" & Chr(13) & Chr(10) & "件（請在下" & Chr(13) & Chr(10) & "拉）選單中" & Chr(13) & Chr(10) & "選擇"
 
 '用迴圈語句向combobox中填充資訊
 For i = 0 To 2
     With combo1(i)
         .AddItem "卡號"
         .AddItem "學號"
         .AddItem "姓名"
         .AddItem "性別"
         .AddItem "系別"
         .AddItem "年級"
         .AddItem "班級"
      End With
  Next i
  
  For j = 0 To 2
      With Combo2(j)
         .AddItem "="
         .AddItem "<"
         .AddItem ">"
         .AddItem "<>"
       End With
   Next j
   
   For k = 0 To 1
       With Combo3(k)
          .AddItem "與"
          .AddItem "或"
       End With
   Next k
  
End Sub
 

2.判斷查詢條件是否為空，定義了一個testtxt函式，當被查詢的內容為空，則testtxt的值為false,否則為true.最後把值賦給isempty變數，這樣就不需要一個個挨著判斷了，不足之處就是使用者會不知道該去填寫哪個查詢條件。

定義了一個testtxt函式用於判斷被判斷的內容是否為空

'定義一個檢查文字框是否為空的函式
Public Function testtxt(txt As String) As Boolean         '引數是txt,即文字框內容
    If Trim(txt) = "" Then
       testtxt = False
    Else
       testtxt = True
    End If
End Function
 

把判斷結果返回給isempty，這樣一下子就可以判斷幾個文字框或comboboxl裡的內容是否為空。

'判斷查詢條件是否為空，用到了函式
    isempty0 = testtxt(combo1(0).Text) Or testtxt(Combo2(0).Text) Or testtxt(txtinquire(0).Text)
    If isempty0 = False Then
       MsgBox "請輸入查詢條件", vbOKOnly, "提示"
       Exit Sub
    End If
    
    If Combo3(0).Text <> "" Then
       isempty1 = isempty0 Or testtxt(combo1(1).Text) Or testtxt(Combo2(1).Text) Or testtxt(txtinquire(1).Text)
       If isempty1 = False Then
          MsgBox "請輸入查詢條件", vbOKOnly, "提示"
       Exit Sub
       End If
      'Exit Sub
    End If
      
    If Combo3(1).Text <> "" Then
       isempty2 = isempty0 Or isempty1 Or testtxt(Combo3(0).Text) Or testtxt(combo1(2).Text) Or testtxt(Combo2(2).Text) Or testtxt(txtinquire(2).Text)
       If isempty2 = False Then
          MsgBox "請輸入查詢條件", vbOKOnly, "提示"
          Exit Sub
       End If
    End If
 

'把漢字轉換成資料庫中的欄位名，可以自定義一個fieldname函式實現
  Private Function fieldname(strfieldname As String) As String
      Select Case strfieldname
          Case "卡號"
             fieldname = "cardno"
          Case "學號"
             fieldname = "studentno"
          Case "姓名"
             fieldname = "studentname"
          Case "性別"
             fieldname = "sex"
          Case "系別"
             fieldname = "department"
          Case "年級"
              fieldname = "grade"
          Case "班級"
              fieldname = "class"
       End Select
  End Function
  
  Private Function fieldname1(strfieldname As String) As String
       Select Case strfieldname
          Case "與"
             fieldname1 = "and"
          Case "或"
             fieldname1 = "or"
       End Select
  End Function

4.組合條件的查詢，到這裡的時候像熱鍋上的螞蟻，不知道怎麼是好，現在把思路理清楚了，感覺沒有那麼麻煩了

遇到的問題：

（1）.沒有理清楚思路，每個下拉列表框那麼多的條件，不知道該怎麼去寫程式碼了，另外一方面要判斷查詢條件是否為空，條件很多，一時沒有找到好的解決方法，另一方面要確定查詢的內容組合，把這兩部分摻雜在了一起，沒有分成小的模組，思路沒有清楚。

（2）.沒有想到複合查詢其實就是在上一個條件基礎上的查詢。

其實符合查詢在敲學生資訊管理系統的時候用到過，現在就來看看學生與機房在組合查詢上的區別以及共同之處吧，方便更好地學習。

學生資訊管理系統：

這是學生中查詢成績資訊的窗體：

程式碼：

首先寫txtsql查詢語句

txtSQL = "select * from result_info where "

一個條件的查詢：當1中有學號資訊時

If Check(0).Value Then
       If Trim(Txtsid.Text) = "" Then
           MsgBox "學號不能為空", vbOKOnly + vbExclamation, "提示"
           Txtsid.SetFocus
           Exit Sub
        Else
           dd(0) = True     '作標記，第一個條件被選中
           txtSQL = txtSQL & "student_id= '" & Trim(Txtsid.Text) & "'"
         End If
     End If

兩個條件的查詢：2中有姓名資訊時

If Check(1).Value Then
         If Trim(txtname.Text) = "" Then
             MsgBox "姓名不能為空", vbOKOnly + vbExclamation, "提示"
             txtname.SetFocus
             Exit Sub
          Else
            dd(1) = True
            If dd(0) = True Then    '如果第一個條件也被選中
               txtSQL = txtSQL & " and student_name= '" & txtname.Text & "'"
             Else                    '第一個條件沒有被選中，只選中了第二個條件
                txtSQL = txtSQL & "student_name= '" & txtname.Text & "'"
             End If
           End If
      End If

If Check(2).Value Then
          If Trim(txtcourse.Text) = "" Then
             MsgBox "課程不能為空！", vbOKOnly + vbExclamation, "提示"
             txtcourse.SetFocus
             Exit Sub
           Else
              dd(2) = True                   '第三個條件被選中
              If dd(0) Or dd(1) Then         '第一個條件或者第二個條件被選中
                  txtSQL = txtSQL & "and course_name= '" & txtcourse.Text & "'"
               Else                          '前兩個條件都沒有被選中
                   txtSQL = txtSQL & "course_name= '" & txtcourse.Text & "'"
               End If
             End If
       End If

機房收費系統：

以學生基本資訊維護窗體為例：

當沒有4與5的時候，只對1條件進行查詢，當4中有組合關係時，對1和2兩個條件進行組合查詢，當5中有組合關係時，對1,2,3三個條件進行組合查詢。

程式碼如下：

   '一個條件的查詢
   txtsql = "select * from student_info where " & fieldname(combo1(0).Text) & Combo2(0).Text & "'" & Trim(txtinquire(0).Text) & "'"
  
   If Combo3(0).Text <> "" Then
      '新增第二個條件的查詢
       txtsql = txtsql & fieldname1(Combo3(0).Text) & " " & fieldname(combo1(1).Text) & Combo2(1).Text & "'" & Trim(txtinquire(1).Text) & "'"
   End If
 
   If Combo3(1).Text <> "" Then
      '新增第三個條件的查詢
      txtsql = txtsql & fieldname1(Combo3(1).Text) & " " & fieldname(combo1(2).Text) & Combo2(2).Text & " '" & Trim(txtinquire(2).Text) & "'"
   End If
   
   Set mrc = executesql(txtsql, msgtext)
   

經過與學生資訊管理系統進行對比，我們會發現組合查詢其實沒有實質性的區別，複合查詢都是在上一個條件的基礎上加一個條件的查詢。

總結：

思想：學習過程中顆粒歸倉，及時總結，多尋找聯絡，多建立聯絡，每遇到一個完全陌生的問題的時候，要想以前是否遇見過，要相信用於都沒有孤立的知識單獨存在，建立知識網。另外在寫程式之前一定要先理清思路。

技術：對於複雜，重複的操作，我們可以定義一個函式實現，用的時候直接呼叫該函式就可以，提高程式的複用性。對於多條件的查詢，把複雜問題簡單化，化成在原來基礎上加一個條件的查詢。