[igamerpc]

Extraer todos los registro de la tabla2 pasar a otra tabla1
La tabla 2, nomf es string ejemplo la cadena codigo200

La tabla 1, fich es integer eso ahi poner 200.



Bueno varios registros

Código Delphi [-]
While Not CFG.DBF_OLD.Eof do
        Begin
          fich:=MOD.tabla2.fieldbyName('NOMF').Value;

          Insertar_registro_fichero('prueba', fich, sender);

          MOD.tabla2.Next;
        end;

Código Delphi [-]
procedure Tform1.Insertar_registro_fichero(TablaN:string; fichero:integer; sender:TObject);
begin

If MOD.Conectar.Connected =False Then
    MOD.Conectar.Connected:=True;

  MOD.tabla1.TableName:=TablaN;
  MOD.tabla1.Active:=True;

  MOD.Command.SQL.Clear;
  MOD.Command.sql.Add('INSERT INTO '+TablaN+'(fich) VALUES(:fich)');
  MOD.Command.ParamByName('fich').Value:=fich;

  Try
    MOD.Command.Execute;

  Except

  End;
  MOD.tabla1.Refresh;

end;

No se si hace falta poner functions extraer solo numeros.