Ver Mensaje Individual
  #1  
Antiguo 13-02-2008
Caronte Caronte is offline
Miembro
 
Registrado: feb 2008
Posts: 14
Reputación: 0
Caronte Va por buen camino
Copiar un registro de una tabla a otra.

Hola, necesitaba copiar un registro completo desde una tabla a otra y no he encontrado una funcion o procedure que lo haga ¿Existe?

Si no es así, lo que yo he hecho (y funciona) es el código que pongo a continuación:

Código Delphi [-]
//copia un registro (previamente debe haberse filtrado la tabla1).//

procedure TForm1.Button1Click(Sender: TObject);
VAR
F: INTEGER;
begin
    Table2.Append;
    FOR F:=0 TO TABLE1.FieldCount-1 DO
          Table2.Fields.Fields[F].Value:=Table1.Fields.Fields[F].Value;
    Table2.Post;
end;
Responder Con Cita