Office中国论坛/Access中国论坛

标题: 请教组合框模糊查询数据，如何先指定一个固定条件，然后再根据第二个条件继续模糊查询 [打印本页]

作者: 5574916 时间: 2013-7-3 13:41
标题: 请教组合框模糊查询数据，如何先指定一个固定条件，然后再根据第二个条件继续模糊查询
本帖最后由 5574916 于 2013-7-3 17:16 编辑

请教一下大家，我想在组合框中模糊筛选数据

想要实现的效果是：先过滤出组合框中类别=A 的数据，然后再根据组合框中输入的内容，进一步模糊筛选出 test产品这一列的数据。

问题：我试了下用第一种方法，在组合框中输入test，筛选出的数据并没有先过滤类别=A，而是包含test的所有数据？

然后我试了第二种方法可以实现，但是要先建立一个查询，筛选出类别=A 然后再结合第一种方法。

现在我想能不能只是用代码就可以实现和第二种方法一样的效果，而不用先建立一个查询？？可以的话，请问代码要怎么改呢？

[attach]52080[/attach]

1、第一个组合框对应第一种方法（筛选出的数据并没有先过滤类别=A，而是包含test的所有数据？）
[attach]52078[/attach]

<P>Private Sub 产品筛选_Change()
Dim strSql As String
Dim mstrFilter As String</P>
<P>
mstrFilter = "助记码 like '*" & Me.产品筛选.Text & "*' or 产品名称 like '*" & Me.产品筛选.Text & "*' or 品牌 like '*" & Me.产品筛选.Text & "*' and 产品类别 = 'A'"
strSql = "SELECT 产品信息表.助记码, 产品信息表.产品名称,产品信息表.品牌, 产品信息表.产品类别 FROM 产品信息表 Where " & mstrFilter & ""
Me.产品筛选.RowSource = strSql
Me.产品筛选.Dropdown
End Sub</P>

复制代码

2、第二个组合框对应第二种方法（可以实现效果，但是需要另外建立查询1）

[attach]52079[/attach]

查询1:
SELECT 产品信息表.助记码, 产品信息表.产品名称, 产品信息表.品牌, 产品信息表.产品类别
FROM 产品信息表
WHERE (((产品信息表.产品类别)="A")
Private Sub 产品筛选2_Change()
Dim strSql As String
Dim mstrFilter As String
mstrFilter = "助记码 like '*" & Me.产品筛选2.Text & "*' or 产品名称 like '*" & Me.产品筛选2.Text & "*' or 品牌 like '*" & Me.产品筛选2.Text & "*'"
strSql = "SELECT * from 查询1 Where " & mstrFilter & ""
Me.产品筛选2.RowSource = strSql
Me.产品筛选2.Dropdown
End Sub

复制代码

作者: aslxt 时间: 2013-7-3 16:30
搜索“组合框联动”，应该有答案。

作者: todaynew 时间: 2013-7-3 16:32
很简单嘛。用某个分隔符分隔输入的两个字符，在事件中获取组合框的Text，然后用Split函数分解之。得到这两个字符串后构造sql语句的where子句即可。

作者: 5574916 时间: 2013-7-3 17:04

todaynew 发表于 2013-7-3 16:32
很简单嘛。用某个分隔符分隔输入的两个字符，在事件中获取组合框的Text，然后用Split函数分解之。得到这两 ...

Split函数这个我不熟悉哦，具体不知道要怎么改才好，例子我已经上传了，可以抽空帮忙改下吗？改好后我才好好研究研究，先谢谢了！

作者: 5574916 时间: 2013-7-3 17:08
本帖最后由 5574916 于 2013-7-3 23:28 编辑

aslxt 发表于 2013-7-3 16:30
搜索“组合框联动”，应该有答案。

好的，我搜搜看，谢谢提醒！

组合联动看了些例子，结合模糊查询，还是没有头绪{:soso_e101:} 本人对sql的一些用法还不是很熟悉。希望知道的大侠帮忙修改下例子文件，谢谢！

作者: 鱼儿游游 时间: 2013-7-4 10:50
本帖最后由鱼儿游游于 2013-7-4 11:30 编辑

楼主，是下面的效果吗？注意：SQL语句的写法。

[attach]52085[/attach]

Private Sub 产品筛选_Change()
Dim strSql As String
Dim mstrFilter As String
mstrFilter = "助记码 like '*" & Me.产品筛选.Text & "*' or 产品名称 like '*" & Me.产品筛选.Text & "*' or 品牌 like '*" & Me.产品筛选.Text & "*'"
mstrFilter = "(" & mstrFilter & ") and 产品类别 = 'A'"
strSql = "SELECT 产品信息表.助记码, 产品信息表.产品名称,产品信息表.品牌, 产品信息表.产品类别 FROM 产品信息表 Where " & mstrFilter & ""
Me.产品筛选.RowSource = strSql
Me.产品筛选.Dropdown
End Sub

复制代码

作者: 5574916 时间: 2013-7-4 13:20

鱼儿游游发表于 2013-7-4 10:50
楼主，是下面的效果吗？注意：SQL语句的写法。

是的，就是这种效果！我以后会多注意的，谢谢鱼儿！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)