vba sql like多条件查询

cnxwj

各位老师上午好，遇到一个多条件组合查询的问题请教。
条件中既有包含和排除，想借助Like的用法，搞了几天没有搞出来。

多个查询条件描述：条件1、人员编号列：以zjj、zjjb开头，不含zjjt开头
条件2：充值描述列：不含“用户取消订单”、“测试”关键字
通过上面的条件查询记录，目前只实现条件2其中一个条件，不含“用户取消订单”
Private Sub CommandButton1_Click()
Dim rw%
Set conn = CreateObject("adodb.connection")
conn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ActiveWorkbook.FullName
Sql = "select * from [数据源$] where 充值描述 like '%[!用户取消订单]%' and  '%[!测试]%' "
Sheet2.[2:65536].Delete
Sheet2.Range("a2").CopyFromRecordset conn.Execute(Sql)
conn.Close
Set conn = Nothing
MsgBox "整理完毕,请查看！"
End Sub
like多条件排除查询.zip (22.45 KB, 下载次数: 10)

2021-9-6 10:31 上传

点击文件名下载附件

cui26896

写成这样就可以了
Sql = "select * from [数据源$] where 充值描述 like '%[!用户取消订单]%' and 充值描述 not like '%[测试]%'"

sheeboard

用pandas参考

1. import pandas as pd
   
2. df=pd.reade_excel('test.xlsx')
   
3. df[(df['人员编号'].str.contains(r'(zjj|zjjb)(?!t)',regex=True)) & (df['充值描述']!='用户取消订单') & (df['充 值描述']!='测试')]
   

复制代码

        

zpy2

select rowid,* from 人员编号充值明细表 where not regexp('用户取消订单|测试',充值描述) and regexp('zjj(?!t)|zjjb',人员编号)

like多条件，有点繁琐，先参考正则写个

zpy2

zpy2 发表于 2021-9-6 14:23
select rowid,* from 人员编号充值明细表 where not regexp('用户取消订单|测试',充值描述) and regexp('zj ...

where 充值描述 like '%[!用户取消订单]%' or  '%[!测试]%'

都不包含？