delphi删除大量数据库数据

uses
  ADODB;

procedure DeleteLargeData;
var
  Connection: TADOConnection;
  Query: TADOQuery;
  BatchSize: Integer;
begin
  Connection := TADOConnection.Create(nil);
  Query := TADOQuery.Create(nil);
  try
    Connection.ConnectionString := 'YourConnectionString';
    Connection.Open;

    Query.Connection := Connection;
    Query.SQL.Text := 'DELETE FROM YourTable WHERE SomeCondition';

    BatchSize := 1000; // 每批删除的记录数
    Query.BatchSize := BatchSize;

    while True do
    begin
      Query.Execute;
      if Query.RowsAffected < BatchSize then
        Break;
    end;
  finally
    Query.Free;
    Connection.Close;
    Connection.Free;
  end;
end;

uses
  ADODB;

procedure DeleteLargeDataWithTransaction;
var
  Connection: TADOConnection;
  Query: TADOQuery;
begin
  Connection := TADOConnection.Create(nil);
  Query := TADOQuery.Create(nil);
  try
    Connection.ConnectionString := 'YourConnectionString';
    Connection.Open;

    Connection.BeginTrans;
    try
      Query.Connection := Connection;
      Query.SQL.Text := 'DELETE FROM YourTable WHERE SomeCondition';
      Query.Execute;

      Connection.CommitTrans;
    except
      Connection.RollbackTrans;
      raise;
    end;
  finally
    Query.Free;
    Connection.Close;
    Connection.Free;
  end;
end;