Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   Visualizar los registros mientras se van Borrando!! (https://www.clubdelphi.com/foros/showthread.php?t=61908)

sargento elias 26-11-2008 18:21:29

Visualizar los registros mientras se van Borrando!!
 
Hola, Buenas tardes.

Me han encargado una pantalla para borrar facturas desde/hasta fecha y desde/hasta número,hasta ahí bien, pero me han pedido que muestre en un label o en otra pantalla el numFact y la FechaFac de los registros mientras se van borrando, la verdad es que no tengo ni idea de como hacerlo.....Ayuda Please...

marcoszorrilla 26-11-2008 21:43:25

Tienes que montar un bucle para borrar.

1. Pones un filtro a las facturas que vas a borrar.
2. Montas un bucle.

Código Delphi [-]
Application.ProcessMessages;
While Not Facturas.Eof do 
Begin
label1.Caption:=FacturasNumero.Value;
Facturas.Delete;
Facturas.Next;
end;

Lo he puesto de memoria pero más o menos esa es la idea.

Un Saludo.

Casimiro Notevi 26-11-2008 22:05:43

Tan sólo puntualizar que según la base de datos que estés usando puede que sobre el "Facturas.Next" porque al borrar un registro, el puntero se coloca en la siguiente, así que estarías borrando una sí y una no...
Por lo que el código del compañero marcoszorrilla quedaría más o menos así:
Código:

Application.ProcessMessages;
While Not Facturas.Eof do
Begin
  label1.Caption:=FacturasNumero.Value;
  Facturas.Delete;
end;


marcoszorrilla 26-11-2008 22:20:10

Tiene razón Casimiro, el registro borrado haría que el puntero pasara al siguiente siendo innecesaria la instrucción Next, incluso contraproducente puesto que puede dar lugar a que se elimine un regitro sí otro no.

Un Saludo.

sargento elias 27-11-2008 09:30:04

Muchas Gracias cracks.

paladincubano 27-11-2008 16:12:49

No se te olvide poner dentro del bucle Application.ProcessMessage;


La franja horaria es GMT +2. Ahora son las 05:35:46.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi