Error Key Violation al copiar tablas

[Mathom]

no hagais caso, me he dejado el begin. Lo siento mea culpa....

[Mathom]

Perdón por el error anterior. Ya me funciona, también se me había olvidado poner que las tablas fuesen adelantando un registro. Al final para aquel que le interese el código ha quedado del siguiente modo:

procedure TFormPrincipal.Realizarcopia1Click(Sender: TObject);
begin
  while not DM.TblDepartamentos_seg.Eof do
          DM.TblDepartamentos_seg.Delete;
  DM.TblDepartamentos_seg.Refresh;
  while not DM.TblDepartamentos.Eof do
  begin
    DM.TblDepartamentos_seg.Insert;
    DM.TblDepartamentos_seg.FieldByName('Nombre').AsString := DM.TblDepartamentos.fieldbyname('Nombre').AsString;
    DM.TblDepartamentos_seg.FieldByName('Cod_dep').AsString := DM.TblDepartamentos.fieldbyname('Cod_dep').AsString;
    DM.TblDepartamentos_seg.Post;
    DM.TblDepartamentos_seg.Refresh;
    DM.TblDepartamentos_seg.Next;
    DM.TblDepartamentos.Next;
  end;
end;

Gracias por vuestra ayuda.

[Mathom]

Hola a todos, de nuevo con mis problemas...seguramente tontos.

Recordais que quería hacer una copia de seguridad (esplicada más arriba) y que, resumiendo, tenía que borrar los registros antes de copiarlos??? Bien, pues en eso estoy, el caso es que tengo tablas maestro- detalle. La idea es borrar todas las tablas una por una por lo que el código se me queda del siguiente modo:

procedure TFormPrincipal.Realizarcopia1Click(Sender: TObject);
begin
  DM.TblPedidos_seg.First;
  while not DM.TblPedidos_seg.Eof do
  begin
    DM.TblArticulosPedido_seg.First;
    while not DM.TblArticulosPedido_seg.Eof do
       DM.TblArticulosPedido_seg.Delete;
    DM.TblPedidos_seg.Delete;
    DM.TblPedidos_seg.Refresh;
  end; 

    DM.TblAlbaranes_seg.First;
    While not DM.TblAlbaranes_seg.Eof do
    begin
      DM.TblDetalleAlbaranes_seg.First;
      while not DM.TblDetalleAlbaranes_seg.Eof do
          DM.TblDetalleAlbaranes_seg.Delete;
      DM.TblAlbaranes_seg.Delete;
      DM.TblAlbaranes_seg.Refresh;
    end;
..............

DM.TblDepartamentos_seg.First;
  while not DM.TblDepartamentos_seg.Eof do
          DM.TblDepartamentos_seg.Delete;
  DM.TblDepartamentos_seg.Refresh;
...........

El final del código sería la copia de las tablas pero primero esto.
EL tema es que lo ejecuto y al pulsar en ralizar copia me aparece el mensaje de error:

"TblPedidos_seg:Cannot perfom this operation on an empty dataset"

El caso es que me borra los registros u posteriormente saca este error por lo que la aplicación (la copia de seguridad, o sea, lo borrados de las otras tablas) se detiene. El resto de la aplicación sigue funcionando.

Si la acaba de borrar la de pedidos por que da el error?? en todo caso no debería ser si estuviese vacia desde un principio??

A ver si me lo aclarais un poco, porque no entiendo nada..

gracias...

[[maeyanes]]

Prueba quitando la línea que hace el Refresh...

Es lo único que veo en tu código que podría estar provocando el error.


Saludos...

[ContraVeneno]

¿No sería mejor usar un "Drop table" o un "delere from" en lugar de ir borrando registro por registro?

[[maeyanes]]

Tomando lo que dice ContraVeneno, el componente TTable tiene un método llamado EmptyTable que bien te podría servir para lo que buscas.



Saludos...

[Mathom]

Gracias....he quitado la línea del refresh y me ha funcionado. Pero no lo entiendo, por que daba el error???

De nuevo, gracias.