设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

12下一页
返回列表 发新帖
查看: 2907|回复: 14
打印 上一主题 下一主题

[查询] [求助]like值来自于数组,该如何写这样的查询?

[复制链接]
跳转到指定楼层
1#
发表于 2009-9-14 17:30:25 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
有个数组"打印时间"的值为:2009-09-01,2009-09-04,2009-09-15
想做个查询,把所有打印时间在这个数组内的记录显示出来.
不知在怎么写like语句

谢谢关注.
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
15#
 楼主| 发表于 2009-9-15 14:10:21 | 只看该作者
这样产生的"Q"该如何更新啊?
我每次要关闭一下"Q"再执行那段代码才能更新.
14#
 楼主| 发表于 2009-9-15 13:53:43 | 只看该作者
问题似乎在 IN()函数,括号里面是文本没问题,但如果是变量的话似乎就出错了.
13#
 楼主| 发表于 2009-9-15 13:52:47 | 只看该作者
是的.
我试过了,稍微改了下,您那段程序可行...
知道了另一种查询的方法..
谢谢
12#
发表于 2009-9-15 13:37:59 | 只看该作者
你是这样输入的吗?#2009-09-10#,#2009-09-15#
11#
发表于 2009-9-15 13:33:41 | 只看该作者
本帖最后由 Henry D. Sy 于 2009-9-15 13:38 编辑

没有测试,你自己试试
把查询名字更改为 Q
Dim Qdf As DAO.QueryDef
    Dim sSQL As String
    Dim sWhere As String
    Dim DateArray() As Date
    Dim i As Integer
    If IsNull(Me.日期2) Then
        Exit Sub
    End If
    DateArray = Split(Me.日期2, ",")
    For i = 0 To UBound(DateArray)
        sWhere = sWhere & "#" & DateArray(i) & "#,"
    Next
    sSQL = "select * from 订单明细 where 打印日期 in (" & sWhere & ")"
    Set Qdf = CurrentDb.QueryDefs("Q")
    Qdf.SQL = sSQL
    Qdf.Close
    Set sqf = Nothing
    DoCmd.OpenQuery "Q"
10#
 楼主| 发表于 2009-9-15 13:27:01 | 只看该作者
可以直接在窗体TEXT11中写入:#2009-09-10#,#2009-09-15#
用来测试查询中的IN函数
9#
发表于 2009-9-15 13:20:39 | 只看该作者
日期数组能直接在窗体中写
什么意思??
8#
 楼主| 发表于 2009-9-15 13:13:45 | 只看该作者
要不看看这个2000版的.日期数组能直接在窗体中写...
谢谢...

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
7#
发表于 2009-9-15 12:39:31 | 只看该作者
07的帮不了您
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-9-20 21:19 , Processed in 0.089500 second(s), 36 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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