北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |
Access中，假设我有个数据库AAA，里边Name列是客户的姓名，现在我想从中挑选出所有姓名包含“赵”或“钱”或“孙”或“李”的客户，最简单的方式是什么？
请好心人帮忙指导，谢谢！
点击下载此附件
另一种方法，
1、先做一个自定义函数如下：
Public Function LikeIn(ByVal STR As String, CHR As String) As Boolean
'STR:接受搜索的字符串，CHR ：要查找的字符串，不同关键字之间用英文分号分隔，例如想从中挑选出所有姓名包含“赵”或“钱”或“孙”或“李”的客户，则chr=“赵;钱;孙;李”
Dim j As Long
Dim ary
ary =Split(CHR, ";")
LikeIn = False
For j = 0 To UBound(ary)
If Len(ary(j)) > 0 And InStr(STR, ary(j)) > 0 Then
LikeIn = True
Exit Function
End If
Next j
End Function
2、再创建查询如下：
select * from 表名称 where LikeIn(某字段名称,“赵;钱;孙;李”)=TRUE
3、运行查询
附件备注：由于我的电脑无法正常运行split、instr等函数，就自定义了类似的函数mysplit、myinstr代替。
