delphi复制数据库

uses
  Data.DB, Data.Win.ADODB;

procedure CopyDatabase(const SourceConnectionString, TargetConnectionString: string);
var
  SourceConnection, TargetConnection: TADOConnection;
  SourceQuery, TargetQuery: TADOQuery;
begin
  SourceConnection := TADOConnection.Create(nil);
  TargetConnection := TADOConnection.Create(nil);
  SourceQuery := TADOQuery.Create(nil);
  TargetQuery := TADOQuery.Create(nil);

  try
    SourceConnection.ConnectionString := SourceConnectionString;
    TargetConnection.ConnectionString := TargetConnectionString;

    SourceConnection.Open;
    TargetConnection.Open;

    SourceQuery.Connection := SourceConnection;
    TargetQuery.Connection := TargetConnection;

    // 假设我们要复制一个名为"Users"的表
    SourceQuery.SQL.Text := 'SELECT * FROM Users';
    SourceQuery.Open;

    TargetQuery.SQL.Text := 'INSERT INTO Users (ID, Name, Email) VALUES (:ID, :Name, :Email)';
    while not SourceQuery.Eof do
    begin
      TargetQuery.Parameters.ParamByName('ID').Value := SourceQuery.FieldByName('ID').Value;
      TargetQuery.Parameters.ParamByName('Name').Value := SourceQuery.FieldByName('Name').Value;
      TargetQuery.Parameters.ParamByName('Email').Value := SourceQuery.FieldByName('Email').Value;
      TargetQuery.ExecSQL;

      SourceQuery.Next;
    end;
  finally
    SourceQuery.Free;
    TargetQuery.Free;
    SourceConnection.Free;
    TargetConnection.Free;
  end;
end;