原来用的sqlserver数据库,后来要改成access的,发现有个语句不能运行了,请教这个sql在access里怎么写RsC.Open "select sj as 操作日期 ,djbh as 操作流水号 ,
(case when djlx in ('ZLRK','PFRK') then '入库' when djlx='CK' THEN '出库' when djlx='BS' THEN '报损'
when djlx='BC' THEN '补货' end ) as 操作类型 ,sl as 数量,CZY as 操作人,rtrim(bz) from kcjl
where djlx in ('ZLRK','PFRK','CK','BS','BC') and ((djbh='" & Trim(StrDjbh) & "'and djlx in ('ZLRK','PFRK'))or (hwmc='" & Trim(StrDjbh) & "'and djlx NOT in ('ZLRK','PFRK')))
order by sj", Conn
(case when djlx in ('ZLRK','PFRK') then '入库' when djlx='CK' THEN '出库' when djlx='BS' THEN '报损'
when djlx='BC' THEN '补货' end ) as 操作类型 ,sl as 数量,CZY as 操作人,rtrim(bz) from kcjl
where djlx in ('ZLRK','PFRK','CK','BS','BC') and ((djbh='" & Trim(StrDjbh) & "'and djlx in ('ZLRK','PFRK'))or (hwmc='" & Trim(StrDjbh) & "'and djlx NOT in ('ZLRK','PFRK')))
order by sj", Conn
解决方案 »
- VB中创建一个新的standard exe工程最后怎么才能生成一个exe程序而独立运行
- vb批量插入mysql问题
- VB调用C动态库,程序崩溃,高手帮忙!特急
- 为什么文本框里只显示一个字符?
- 用setup factory打包工具是如何调用他的Uninstall删除程序呢?
- enumwindow函数为什么无法遍历窗口
- vb搜索TXT内容,符合显示
- 做程序员做到这么贱也没什么好说啦~~~~~~
- 为什么我在IE的地址栏中一键入www. 就出现了“本程序执行了非法操作”这句话?然后就退出了IE. 怎么解决?重装IE也不好用啊!
- MSHflexgrid控件当我的allowuserresizing属性为true时,改变cell的大小时,会不会激发事件。如果不激发事件,我浮在cell上的textbox如何调整大小使它和调整后的cell的宽度与高度相同。
- 请教datareport基础问题(刚发一个却找不到了。怪)
- 如何获取一个实时刷新的进度条网页,显示在程序里的webBrowser中?
把case when then end 他是sql专有的
改成 iff (,true,false)
iif(djlx in ('ZLRK','PFRK'),'入库',iif(djlx='CK','出库',iif(djlx='BS','报损','补货'))) as 操作类型 ,sl as 数量,CZY as 操作人,rtrim(bz) from kcjl
where djlx in ('ZLRK','PFRK','CK','BS','BC') and (djbh='" & Trim(StrDjbh) & "'and djlx in ('ZLRK','PFRK')) or (hwmc='" & Trim(StrDjbh) & "'and djlx NOT in ('ZLRK','PFRK'))
order by sj", Conn
把case when then end 他是sql专有的
改成 iff (,true,false)
晕了写错了
把case when then end 他是sqlserver专有的 access不支持IIf(,true,false)