Fórum Copiar dados de um Client para outro Client de outro banco #474871

function TransfereDadosEntreTabelas(cdsOrigem: TClientDataSet;
  nomeTabelaDestino: string; conexaoDestino: TSQLConnection):Boolean;
var
  TabelaAuxiliar: TSQLTable;
  ClientDataSet: TClientDataSet;
  DataSetProvider: TDataSetProvider;
  I, n: integer;
begin
  try
  TabelaAuxiliar := TSQLTable.Create(nil);
  TabelaAuxiliar.SQLConnection := conexaoDestino;
  TabelaAuxiliar.TableName := nomeTabelaDestino;
  TabelaAuxiliar.Open;

  DataSetProvider := TDataSetProvider.Create(nil);
  DataSetProvider.DataSet := TabelaAuxiliar;
  DataSetProvider.Name := 'dsp';

  ClientDataSet := TClientDataSet.Create(nil);
  ClientDataSet.ProviderName := 'dsp';
  ClientDataSet.FieldDefs.Clear;
  ClientDataSet.Close;

  for I := 0 to cdsOrigem.FieldCount - 1 do
  begin
    ClientDataSet.FieldDefs.Add(cdsOrigem.Fields[I].FieldName,
      cdsOrigem.Fields[I].DataType, cdsOrigem.Fields[I].Size, cdsOrigem.Fields[I].Required);
  end;
  ClientDataSet.CreateDataSet;
  ClientDataSet.Open;

  cdsOrigem.First;
  while not cdsOrigem.Eof do
  begin
    ClientDataSet.Append;
    for I := 0 to cdsOrigem.FieldCount - 1 do
    begin
      ClientDataSet.Fields[I].Value := cdsOrigem.Fields[I].Value;
    end;
    cdsOrigem.Next;
  end;

  if not(ClientDataSet.IsEmpty) then
  begin
    DataSetProvider.ApplyUpdates(ClientDataSet.Delta, -1, n);
    Result := True;
  end
  else
    Result := False;
  except
    Result:= False;
  end;
end;