0

以下のステートメントを使用しています。

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;

すべて削除したいと思います。

4

1 に答える 1

1

試しましたか：

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

と ";" ' ' 内の各行の最後に?

于 2014-12-12T17:33:52.013 に答える