Error Key Violation al copiar tablas

[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.

[Mathom]

Hola e nuevo, vuelvo con mis dudas...me encuentro en el intento de copiar los datos de una tabla maestro detalle a otra maestro-detalle. En un principio intentaba copiar las tablas por separado pero no me aparece la información correcta en la detalle y no me aparecía nada en la pedidos. Ahora estoy probando de otro modo, el código que utilizo es el siguiente:

DM.TblPedidos.First;
  while not DM.TblPedidos.Eof do
  begin
    DM.TblPedidos_seg.Insert;
    DM.TblPedidos_seg.FieldByName('Id').AsString := DM.TblPedidos.fieldbyname('Id').AsString;
    DM.TblPedidos_seg.FieldByName('Proveedor').AsString := DM.TblPedidos.fieldbyname('Proveedor').AsString;
    DM.TblPedidos_seg.FieldByName('Cod_Pedido').AsString := DM.TblPedidos.fieldbyname('Cod_Pedido').AsString;
    DM.TblPedidos_seg.FieldByName('Nom_Proveedor').AsString := DM.TblPedidos.fieldbyname('Nom_Proveedor').AsString;
    DM.TblPedidos_seg.FieldByName('Fecha').AsString := DM.TblPedidos.fieldbyname('Fecha').AsString;
    DM.TblPedidos_seg.FieldByName('Fecha_prevista').AsString := DM.TblPedidos.fieldbyname('Fecha_prevista').AsString;
    DM.TblPedidos_seg.FieldByName('Fecha_llegada').AsString := DM.TblPedidos.fieldbyname('Fecha_llegada').AsString;
    DM.TblPedidos_seg.FieldByName('Gen_Albaran').AsString := DM.TblPedidos.fieldbyname('Gen_Albaran').AsString;
    while not DM.TblArticulosPedido.Eof do
      begin
        DM.TblArticulosPedido_seg.Insert;
        DM.TblArticulosPedido_seg.FieldByName('Articulo').AsString := DM.TblArticulosPedido.fieldbyname('Articulo').AsString;
        DM.TblArticulosPedido_seg.FieldByName('Id').AsString := DM.TblArticulosPedido.fieldbyname('Id').AsString;
        DM.TblArticulosPedido_seg.FieldByName('Cod_Pedido').AsString := DM.TblArticulosPedido.fieldbyname('Cod_Pedido').AsString;
        DM.TblArticulosPedido_seg.FieldByName('Cantidad').AsString := DM.TblArticulosPedido.fieldbyname('Cantidad').AsString;
        DM.TblArticulosPedido_seg.FieldByName('Ultimo_precio').AsString := DM.TblArticulosPedido.fieldbyname('Ultimo_precio').AsString;
        DM.TblArticulosPedido_seg.Post;
        DM.TblArticulosPedido_seg.Next;
       DM.TblArticulos.Next;
      end;
    DM.TblPedidos_seg.Post;
    DM.TblPedidos_seg.Next;
    DM.TblPedidos.Next;
  end;

Pero me da el siguiente error:

"Corrupt Index. Index E:\webs\Hotels\delphi\DBHG_seg\DB\PEDIDOS.PX"

Entonces mis preguntas son:

- PQ no se pueden copiar las tablas por separado??
- Es el código lo que hace que me de el error comentado??

Espero que me podais echar una mano.

Un saludo y gracias...

[[maeyanes]]

El problema puede estar en que en las relaciones maestro-detalle, se necesita que exista el registro padre antes de poder insertar los registros hijos, por aquello de la integridad referencial.

Entonces, en tu código, insertas un registro padre, pero antes de hacer el post, insertas los registros hijos y haces post a cada hijo, pero al no existir un registro padre se produce un error.

Trata haciendo el post del registro padre antes de insertar los registros hijos.



Saludos...

[[Lepe]]

Código Delphi [-]
DM.TblPedidos.First;
  while not DM.TblPedidos.Eof do
  begin
    DM.TblPedidos_seg.Insert;
    DM.TblPedidos_seg.FieldByName('Id').AsString := DM.TblPedidos.fieldbyname('Id').AsString;
...
//   no puedes empezar a grabar los detalles, porque la maestra todavia
//   no se ha guardado.
    dm.TblPedidos_seg.Post; //<<<< ahora si se ha guardado el maestro.
//                                 ya podemos empezar con los detalles.
    dm.tblArticulosPedidos.First; // claro, empezamos en el primero.
    while not DM.TblArticulosPedido.Eof do
      begin
        DM.TblArticulosPedido_seg.Insert;
        DM.TblArticulosPedido_seg.FieldByName('Articulo').AsString := DM.TblArticulosPedido.fieldbyname('Articulo').AsString;
...
        DM.TblArticulosPedido_seg.Post;
        DM.TblArticulosPedido_seg.Next; <<<<<end;
    DM.TblPedidos_seg.Post;<<<<<<<<< esto sobra
    DM.TblPedidos_seg.Next;<<<<<<<<< esto sobra
    DM.TblPedidos.Next; // exacto, la misma tabla del bucle.
  end;

Solo me queda un par de dudas.

No sé ni me voy a parar en mirar que campos son los que actuan en la relación maestra-detalle y cuales son claves primarias. Tú debes saberlo exactamente y debes tener mucho cuidado. Si en tblPedidos-tblArticulosPedido lo une un código que tiene el valor 10, puede que ese ya exista en tblPedidos_seg No sé pero es algo a tener en cuenta.

Para los indices, asegurate de que todas las tablas tengan en el evento afterpost ttable.FlushBuffers.

saludos y espero se entienda