copiar registros

[Osorio]

Hola todos:

Estoy pasando registros de una tabla a otra.

lo estoy haciendo con este procedimiento:

Código Delphi [-]
                
        Data.First;
        while not Data.Eof do
        begin
                ADOTable.Append;
                for i := 0 to Data.FieldCount - 1 do
                begin
                        ADOTable.Fields[i].Value:= data.Fields[i].Value;
                end;
                Data.Next;
        end;

pero me encontre con esto:

Código Delphi [-]
ADOTable.AppendRecord(datos)

Ya probe AppendRecord y en verdad funciona, lo que no se es como pasar el registro de Data que es mi dataset para que quede almacenado en la variable Datos .

De lograrlo me ahorraria el ciclo FOR.


gracias.

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

Creo que debes pasar un array con los valores de todos los campos en el mismo orden que están el la tabla.

[Osorio]

Si, efectiamente como comente en el mensaje inicial, pasando el array funciona.


mi pregunta es, como paso de la tabla origen el registro completo a un array (para no recorrer uno a uno los campos)

[cahosoft]

que tipo de base de datos usas... depronto lo puedes hace de forma maual es mas fasil....

[[AzidRain]]

Empezado por Osorio

mi pregunta es, como paso de la tabla origen el registro completo a un array (para no recorrer uno a uno los campos)

A mi paso igual y lo que encontrè es que los componentes Dataset no tienen una propiedad que devuelva el registro actual completo con todos sus datos. Para acceder al registro hay que ir campo por campo.

No indicas que base de datos utilizas pero muchas veces es más sencillo hacerlo de forma manual, siempre y cuando no sean muchos datos los que vayas a pasar...Delphi cuenta tambien con TBachmove, el cual hace precisamente eso: copiar o mover registros entre datasets, echale ojo

[Osorio]

El BatchMove me sirve si uso BDE pero en mi caso que son IBX y ADO no le veo alternativa.