Problemas con error en bases de datos en delphi5
 

QUE TAL

Me Gustaría saber si alguien sabe la razón del porqué el código de más
abajo me genera el error Corrupt Index Index:C:\Tablas\Reg_Deprec_Aux.
Reg_Deprec_Aux es el nombre de mi tabla creada en Paradox 7 para delphi5

Mi intención con el código de abajo es eliminar todos los registros
que posee la tabla, al salir o cerrar una forma.

si alguien sabe porque me genera ese error agradecería su ayuda, de igual
manera si alguien conoce otra forma de hacer lo mencionado, se los agradezco.

El código es:

Código Delphi [-]
procedure Limpiar_Tabla_Reg_Dep_Aux; //Elimina todos los registros de la tabla REg_Deprec_Aux
 Var
   v:Integer;
 Begin
   If (Modulo_Datos.TblReg_Deprec_Aux.IsEmpty=False) Then
   Begin
     Modulo_Datos.TblReg_Deprec_Aux.First;
     For v:=1 to Modulo_Datos.TblReg_Deprec_Aux.RecordCount do
       Modulo_Datos.TblReg_Deprec_Aux.Delete;
   End;
 End;

¡SALUDOS HASTA LUEGO!

Hola,

No soy muy ducho en estas lides (en ninguna lo soy, a decir verdad), pero, bastaría con el método "EmtpyTable" para borrar todos los registros contenidos en una tabla. Así se puede ver en el ejemplo que acompaña a la ayuda del susodicho método:


Ignoro si aún así continuará apareciéndote el error que comentas. Ya dirás algo, en todo caso. ;)

pues se me hace que el empty table es mejor pero como quiera creo que a tu codigo le falta algo como:

Código Delphi [-]
 Modulo_Datos.TblReg_Deprec_Aux.First;
 For v:=1 to Modulo_Datos.TblReg_Deprec_Aux.RecordCount do
 Begin
   Modulo_Datos.TblReg_Deprec_Aux.Delete;
   Modulo_Datos.TblReg_Deprec_Aux.Next;
 End;

Al hacer un Delete, se actualiza la posición del Dataset, así que el .Next no hace falta, es más poniendolo, borrará alternativamente los registros.

saludos

Saludos

Código Delphi [-]
while  Modulo_Datos.TblReg_Deprec_Aux.RecordCount>0 do
   Modulo_Datos.TblReg_Deprec_Aux.Delete;

Copiando a roman de otro ejemplo :p