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:
Código:
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...