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 )');
解决方案 »
- delphi调用C动态库问题
- Delphi Component -> install Packages
- 有关WWDBGRID的问题
- 可以在delphi程序中实现sql server数据库的备份与恢复吗?
- 一个简单问题,大家帮忙!
- 各位高手如何学好Delphi呀,请指教
- 请问如何通过语句来实现SQL Server 7.0的备份及还原数据库?
- 提取字符问题(急,急)
- 为什么我动态的将数据加入InfoPower2000 的TwwDBComboBox 中并且将其属性中的MapList设置为True 可是使用GetComboValue获得的值为空?
- 高手关注:资源占用问题!
- 关于商业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 确保只有一条记录