[源碼實例]多條件組合查詢(SQL IN關鍵字使用)

huanghai

給網(wǎng)友做的示例,主要實現(xiàn)多條件組合查詢,代碼使用了SQL IN關鍵字包含功能.



下載源代碼文件

Function myQuery()
    Dim strSQL As String
    Dim strXB As String
    Dim strHY As String
    strSQL = "SELECT * from 患者資料"
    strSQL = strSQL & " WHERE 1=1"     '設一個永遠存在的條件,目的是讓WHERE先存在,下面的條件直接就可以使用AND聯(lián)了
    If Me.Check0 Then strXB = strXB & "'男'" & ","
    If Me.Check1 Then strXB = strXB & "'女'" & ","
    If Me.Check2 Then strHY = strHY & "'未婚'" & ","
    If Me.Check3 Then strHY = strHY & "'已婚'" & ","
    If Me.Check4 Then strHY = strHY & "'離異'" & ","
    If Me.Check5 Then strHY = strHY & "'喪偶'" & ","
    If Len(strXB) Then strXB = Left(strXB, Len(strXB) - 1)
    If Len(strHY) Then strHY = Left(strHY, Len(strHY) - 1)
    If Len(strXB) Then strSQL = strSQL & " AND 性別 IN(" & strXB & ")"
    If Len(strHY) Then strSQL = strSQL & " AND 婚姻 IN(" & strHY & ")"
    Debug.Print strSQL
    Me.患者資料查詢子窗體.Form.RecordSource = strSQL
End Function

wang1950317

huang大師源碼實例，頂！如有庫示例則更好了！謝謝！

huanghai

例子下載補上了。