close;
sql.Clear;
sql.Add(' insert into SSS(SS001,SS002,SS003,SS004,SS005,SS006,SS007,SS008,SS009)(select DISTINCT KC001 AS SS001,KC002 AS SS002,KC003 AS SS003,KC004 AS SS004,KC005 AS SS005, KC006 AS SS006,WS002 AS SS007,WS003 AS SS008,KH002 AS SS009 FROM SINA,PHKF');
sql.Add(' where KC001=PH001 AND KH002=''Clarity'' AND (KC004=''001'' OR KC004=''002'' OR KC004=''003'' OR KC004=''088'')');
SQL.Add(' DELETE FROM SINA WHERE KC001=(SELECT SSS.SS001 FROM SSS )');
sql.Clear;
sql.Add(' insert into SSS(SS001,SS002,SS003,SS004,SS005,SS006,SS007,SS008,SS009)(select DISTINCT KC001 AS SS001,KC002 AS SS002,KC003 AS SS003,KC004 AS SS004,KC005 AS SS005, KC006 AS SS006,WS002 AS SS007,WS003 AS SS008,KH002 AS SS009 FROM SINA,PHKF');
sql.Add(' where KC001=PH001 AND KH002=''Clarity'' AND (KC004=''001'' OR KC004=''002'' OR KC004=''003'' OR KC004=''088'')');
SQL.Add(' DELETE FROM SINA WHERE KC001=(SELECT SSS.SS001 FROM SSS )');
解决方案 »
- 怎么在控件的单击事件中取控件的Caption和name
- 关于dbgrid中的表数据导出的问题还没有解决啊???大家再帮帮忙了
- 如何把一个应用程序添加到服务中
- delphi 怎么做分类统计的grid
- 有关stringgird的问题 请大家帮忙 急!!!
- 有一个程序在Win2000 Server编译,运行正常,但在Xp下报如下错,请进指教,谢谢。急。
- 关于SQLConnection.LoadParmesOnConnect的问题
- 请教各位高手!
- 求MRPII的项目设计方案
- 能谈谈刚刚到一个软件公司,你是怎么做事的吗,能提到点的加分
- 关于商业BI系统的请教,高手请进
- delphi 中 if excelapp.cell[i,3].value='' then报错
2. SQL.Add(' DELETE FROM SINA WHERE KC001=(SELECT SSS.SS001 FROM SSS )'); 这句有问题吧!应该在执行了上一句SQL之后另再执行!
主要是第二句 SQL.Add(' ;DELETE FROM SINA WHERE KC001=(SELECT SSS.SS001 FROM SSS )'); where条件,等号两头不是1对1关系
sql.Clear;
sql.Add(' insert into SSS(SS001,SS002,SS003,SS004,SS005,SS006,SS007,SS008,SS009)(select DISTINCT KC001 AS SS001,KC002 AS SS002,KC003 AS SS003,KC004 AS SS004,KC005 AS SS005, KC006 AS SS006,WS002 AS SS007,WS003 AS SS008,KH002 AS SS009 FROM SINA,PHKF');
sql.Add(' where KC001=PH001 AND KH002=''Clarity'' AND KC004 in(''001'',''002'',''003'', ''088'')');
sql.open;
close;
sql.clear;
SQL.Add(' DELETE FROM SINA WHERE KC001=(SELECT SSS.SS001 FROM SSS )');
sql.exect
//try it
SQL.Add(' ;DELETE FROM SINA WHERE KC001 in (SELECT SSS.SS001 FROM SSS )');
SELECT SSS.SS001 FROM SSS 确保只有一条记录