数据库 一对多删除

[seven8090]

Close;
SQL.Clear;
SQL.Text := 'SELECT ID AS ID FROM Piece WHERE Produce =' + IntToStr(PID);
Open;
First;
while not QryYS.Eof do //只能执行一次 不能循环
begin
PIID := FieldByName('ID').AsInteger;
Next;
if PIID > 0 then
begin
Close;
SQL.Clear;
SQL.Text := 'DELETE FROM Dosage WHERE Piece =' + IntToStr(PIID);
ExecSQL;
end;
end;

[缘中人]

执行两个sql，要用两个query；
否则第二个执行sql语句，第一个就被动变成第二个的结果了

[广州佬]

原因分析：

  Close;
  SQL.Clear;
  SQL.Text := 'SELECT ID AS ID FROM Piece WHERE Produce =' + IntToStr(PID);
  Open;
  First;
  while not QryYS.Eof do //这里以未到记录尽头为条件进行循环
  begin
    PIID := FieldByName('ID').AsInteger;
    Next;
    if PIID > 0 then
    begin
      //像楼上朋友所说，这里应该使用另外一个数据集！！
      Close;
      SQL.Clear;
      SQL.Text := 'DELETE FROM Dosage WHERE Piece =' + IntToStr(PIID);
      ExecSQL;//这句没有记录返回，从而造成循环条件不再成立！
    end;
  end;

[广州佬]

总结：估计楼主对开域语句 "with" 的使用没掌握好，如果开域语句有嵌套，或使用这样的方式 "with Qry1,Qry2 do" 时，由于被开域的对象存在相同的方法、属性，就会使得后续的语句无法正确确定前导对象了：如后续语句是 "SQL.Clear;" ，那么，指的是Qry1的呢？还是Qry2的呢？所以，当不是那么熟悉 "with" 语句的使用规范时，尽量不去使用它，如某种场合非用不可，也应弄清它的使用方法再去使用。

[taste品味]

先把ID取出来,组装SQL语句,用IN方式,一次招待多条,这样快多了

[seven8090]

总共3个表 表1 表2 表3
表1和表2 1：n的关系
表2和表3 1：n的关系
E-R图

[seven8090]

gzzai

ExecSQL;//这句没有记录返回，从而造成循环条件不再成立！

应该怎么改啊 我是菜鸟

[酣酣]

呵呵！
干嘛要循环呢一条SQL就可以删除掉的！
with tmpQuery do begin
Close;
SQL.Clear;
SQL.Text := 'DELETE FROM Dosage FROM Dosage INNER JOIN Piece ON Dosage.Piece = Piece.PIID WHERE Piece.Produce = ' + IntToStr(PID);
ExecSQL;
end;

[kaikai_kk]

一次性刪除,也可以用Exists

SQL.Text:='DELETE FROM Dosage WHERE Piece IN (SELECT ID FROM Piece WHERE Produce =' + IntToStr(PID)+')';