Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Bases de datos > Tablas planas
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #2  
Antiguo 04-08-2005
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Poder: 31
Lepe Va por buen camino
Al ver la extensión DB parecen archivos paradox, en este caso, cuando se borra con delete, no se adelanta el puntero al registro activo, sino que decrece, por tanto, no debes usar while not tabla.eof sino más bien
while not tabla.bof o incluso while tabla.RecordCount>0

Otra forma más rapida sería con una consulta de borrado:
Código Delphi [-]
const sqlBorrado = ' delete from %s where %s';
var Nombres :array[0..2] of string = ('NITEMTEX.DB','NITEMTER.DB','NITEMREP.DB');

var q:Tquery;
    i:integer;
begin
 q := Tquery.Create;
 try
 for i:= low(nombres) to high(nombres) do
 begin
  if q.Active then q.Close;
  q.sql.Text := format(sqlBorrado,[Nombres[i], 'Nro_Orden= 32']);
  showmessage(IntToStr(q.ExecSql) + ' Registros borrados de la tabla '+Nombres[i]);
 end;
 finally 
    FreeAndNil(q);
 end;

Por supuesto, en el array de Nombres, las tablas irían puesta en orden inverso al que tú has redactado, precisamente para evitar el error de Master-Detail.

Sólo un detalle más, la variable Nombres no puede estar declarada en un procedimiento, ya que Delphi no deja inicializar variables en dicho lugar, debes ponerla como variable "global" del módulo.

Edito: Lo he escrito de memoria, si tienes algun problema comentalo.

Un saludo, y espero que todavía te sirva.
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.

Última edición por Lepe fecha: 04-08-2005 a las 15:13:17.
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 11:01:57.


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