[[basti]]

Si los campos de una y otra tabla son iguales:

Código Delphi [-]
begin
  IBTABLE1.Close;
  IBDATABASE1.DatabaseName:='LOCALHOST:C:\TABLAS\DATOS.FDB';
  IBTABLE1.TableName:='CLAVES';
  IBTABLE1.Open;
  IBTABLE1.EmptyTable; 
  TABLE1.close;
  table1.DatabaseName:='c:\datos';
  table1.TableName:='claves2.db';
  table1.Open;
  Table1.First;
  While not Table1.EOF do
  begin
    ibTable1.append;
    for i := 0 to table1.Fields.Count - 1 do
      ibTable1.Fields[i].Value:= table1.Fields[i].Value;
    ibTable1.Post;
    Table1.Next;
  end;
  IBTransaction1.CommitRetaining;
end;