设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 2274|回复: 2

[窗体] [源码实例]多条件组合查询(SQL IN关键字使用)

[复制链接]
发表于 2007-9-3 13:16:03 | 显示全部楼层 |阅读模式
给网友做的示例,主要实现多条件组合查询,代码使用了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联了
    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

点击这里给我发消息

发表于 2007-9-3 15:15:11 | 显示全部楼层
huang大师源码实例,顶!如有库示例则更好了!谢谢!
 楼主| 发表于 2007-9-3 18:19:55 | 显示全部楼层
例子下载补上了。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-3-29 18:10 , Processed in 0.142222 second(s), 27 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表