Grabar de tabla a taba

[[BlueSteel]]

Empezado por veronica

Hola de nuevo, tengo el siguiente problema. Necesito grabar registros de una tabla a otra que tienes los mismos campos y en este caso son muchisimos, pero ha de ser registro a registro, pues en algunos casos he de insertar registros distintos, se que existe el bathmove, pero creo que mueve la tabla completa.

Gracias.

Hola veronica...

Bueno.. con que componente estas trabajando para accesar a las tablas...

son tablas planas.. o trabajas con algun motor de base de datos..

Mira.. el sgte ejemplo lo que hace es traspasar los datos de una tabla de Dbase a Interbase...

Datos es un formulario de tipo DataModule
Smae es un TTable..
IBQ_Edit es un IBQuery

Código Delphi [-]
     With Datos.Smae Do
     Begin
         First;
          While Not Eof Do
          Begin
               p_nro := FieldByName('Nro').AsString;
               p_rut := Concat(FormatFloat('##,###,##0',StrToFloat(FieldByName('rut').AsString )),'-',FieldByName('dvr').asString);
               p_nom := FieldByName('nom').asstring;
               Datos.IBQ_Edit.SQL.Clear;
               Datos.IBQ_Edit.SQL.Add('Insert Into "Personal" ("Per_Nro","Per_Nombre","Per_Rut")');
               Datos.IBQ_Edit.SQL.Add('Values (:P1, :P2, :P3)');
               Datos.IBQ_Edit.Params[0].AsString := p_nro;
               Datos.IBQ_Edit.Params[1].AsString := p_nom;
               Datos.IBQ_Edit.Params[2].AsString := p_rut;
               Datos.IBQ_Edit.ExecSQL;
               Datos.IBT_Edit.Commit;
               p_nro := '';
               p_rut := '';
               p_nom := '';
               Next;
          End;
     End;

espero que esto te sirva

Salu2