为什么我通过断点获取SQL语句在查询分析器可以运行,在编译的程序里一直提示SQL语句错误呢?代码如下,请高手解释下str1:='INSERT INTO ws_WorkProcedure '
+'SELECT DISTINCT '
+'WorkBillNO, '
+'WorkProcedureName = CASE WHEN WorkProcedureName = ''样箱'' THEN ''裱胶'' '
+'WHEN WorkProcedureName=''电脑'' THEN ''裱胶'' '
+'WHEN WorkProcedureName = ''喷墨稿'' THEN ''裱胶'' END, '
+'PlanNum, PlanArea, BillDate, BillUser, FactNum, FactDate, FactArea, '
+'ScrapNum, Reason, CheckUser, CheckDate, CheckReason, Res, '
+'Flag, Fclass '
+'FROM ws_WorkProcedure '
+'WHERE WorkProcedureName IN (''样箱'', ''电脑'', ''喷墨稿'') ' ;openSql(adoQuery_temp,quotedstr(str1));
+'SELECT DISTINCT '
+'WorkBillNO, '
+'WorkProcedureName = CASE WHEN WorkProcedureName = ''样箱'' THEN ''裱胶'' '
+'WHEN WorkProcedureName=''电脑'' THEN ''裱胶'' '
+'WHEN WorkProcedureName = ''喷墨稿'' THEN ''裱胶'' END, '
+'PlanNum, PlanArea, BillDate, BillUser, FactNum, FactDate, FactArea, '
+'ScrapNum, Reason, CheckUser, CheckDate, CheckReason, Res, '
+'Flag, Fclass '
+'FROM ws_WorkProcedure '
+'WHERE WorkProcedureName IN (''样箱'', ''电脑'', ''喷墨稿'') ' ;openSql(adoQuery_temp,quotedstr(str1));
解决方案 »
- 求救,怎么知道进程用了多少CPU???
- 有没办法将Tadodataset的数据转到tStingList吗?
- 放分200 严重恭喜aiirii做大版主——云淡风清
- Delphi中DBGrid组件的中文显示问题?
- 什么控件允许在一屏页摆放多行组件,当组件在其高度之外时,他会象窗口一样自动产生滚动条?
- (急)delphi6怎么链Access2000的数据库?
- 在MDI中,多个childForm之间切换,怎么判断ChildForm失去了焦点及得到焦点。
- 急:为何不能声明TTreeStrings的实例?
- 请问各位高手,可用分如何获得?
- 为什么我把.cds数据库内的所有记录删除后,数据库的大小却没变??
- delphi的md4加密怎么实现?
- 怎样用delphi开发directshow播放mpeg
已经发现一个错误:
case when 嵌套不对
1、case when a=b then a else (case when b=c then b else c end) end2、case a when 'b' then x1
when 'c' then x2
when 'd' then x3lz的格式显然不对
openSql(adoQuery_temp,quotedstr(str1));改为
ExecSql(adoQuery_temp,str1);就可以了