delphi-xe7 - 如何在 clientdataset 或 fdquery 中运行多个 SQL 语句？

Question

我正在使用以下语句：

procedure TdtmdlImportacao.DeleteParticipante;
begin
  fdqryDelete.Active := False;
  fdqryDelete.SQL.Clear;
  fdqryDelete.SQL.Add('DELETE FROM PARTICIPANTE');
  fdqryDelete.ExecSQL;
end;

procedure TdtmdlImportacao.DeleteProduto;
begin
  fdqryDelete.Active := False;
  fdqryDelete.SQL.Clear;
  fdqryDelete.SQL.Add('DELETE FROM PRODUTO');
  fdqryDelete.ExecSQL;
end;

我想全部删除。

Answer 1

你试过了吗：

begin
  fdqryDelete.Active := False;
  fdqryDelete.SQL.Clear;
  fdqryDelete.SQL.Add('DELETE FROM PARTICIPANTE;');
  fdqryDelete.SQL.Add('DELETE FROM PRODUTO;');
  fdqryDelete.ExecSQL;
end;

和 ”;” 在''内的每一行的末尾？