Copiar el contenido de un DataSet a otro DataSet

[Javi2]

Hola,

¿Hay alguna manera rápida de copiar el contenido de un TDataSet a otro TDataSet?Por si sirve de algo, los datos los obtengo a través de una TQuery

Muchas gracias

[ContraVeneno]

¿y si utilizas el mismo query para los dos datasets?

[Javi2]

Es un poco complejo de explicar pero no me sirve. Realmente necesito copiar el contenido de un TDataSet en otro.

Muchas gracias por tu ayuda

[Javi2]

He encontrado el siguiente procedimiento que creo que me servirá (tiene buena pinta):

procedure MoverDatosTabla(prmDSOrigen, prmDSDestino :TDataSet);
var Campo :string;
i :integer;
begin
prmDSDestino.EmptyTable;
prmDSDestino.Open;

with prmDSOrigen do begin
Open;
while not EOF do begin
prmDSDestino.Append;
for i := 0 to FieldCount-1 do begin
Campo := prmDSOrigen.Fields[i].FieldName;
prmDSDestino[Campo] := prmDSOrigen[Campo];
end;
prmDSDestino.Post;
Next;
end;
Close;
end;
prmDSDestino.Close;
end;

Os lo dejo aquí por si a alguien le interesa.

Muchas gracias a todos por vuestra colaboración.

[Enan0]

y con un

Dataset1:=datasetorigen;

en este caso tendrias los datos en dos datasets distintos

[[maeyanes]]

No, así lo único que estaría haciendo es solo apuntar al mismo dataset de origen desde otra variable.



Saludos...

[Neftali [Germán.Estévez]]

Empezado por Javi2

¿Hay alguna manera rápida de copiar el contenido de un TDataSet a otro TDataSet? Por si sirve de algo, los datos los obtengo a través de una TQuery

Eso no tiene mucho sentido; Los datos que están viendo en el DataSet son el resultado de una consulta;
(a) Si lo que quieres es otro DataSet con los mismos datos, vuelve a ejecutar la misma consulta en el segundo DataSet.
(b) Si el segundo DataSet es una tabla, yo te recomiendo que revises la cláusula SQl INSERT..INTO; Una vez insertados abre el segundo DataSet sobre la tabla destino.
(c) Si el segundo DataSet es una tabla y no puedes utilizar INSERT..INTO; Haz un recorrido por el primer DataSet y ves insertando en el segundo (Post o INSERT-SQL-);
(d) Si el segundo DataSet es una tabla y usas BDE, revisa en la ayuda de Delphi sobre el componente TBachMove.

[Rayku]

usa la funcion clone,

Código Delphi [-]
ado.clone(cventa.listarseries(dmconeccion.adoconection,error));

la funcion listar series es otro dataset

//Lo Edite para poner todo en minusculas

[Rayku]

Código Delphi [-]
ADODATASET2.Clone(ADODATASET1);

ok espero este mejor explicado aqui

//Lo edite por la misma razon del anterior

[[maeyanes]]

Hola...

Ya te fijaste de la fecha del mensaje original? Es de hace más o menos un año...

Otra cosa, te recomiendo que leas la Guía de Estilo de los foros.

Saludos...

[Neftali [Germán.Estévez]]

Empezado por maeyanes

...Es de hace más o menos un año...

Espero que no esté esperando la respuesta...