Cita:
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