Error Acces Violation al abrir tabla

[Espartaco]

Hola amigos, de nuevo con una consulta un poco extraña.

Resulta que tengo dos tablas paradox 7 identicas en estructura. Uso delphi 5 professional. Bueno el problema es que el programa rula con una y con otra me da un error de Acces Violation...

He pasado los registros de la que funciona a la que no y tampoco. Primero lo pase con un BatchMove y luego grabando registro a registro y nada de nada.

Incomprensible. Le he pasado el antivirus por si la tabla estaba infectada y nada. No lo entiendo. El programa lanza el error nada mas hace uso de la tabla, es decir no al abrirla sino en una linea como esta:


while not DbContrato.Eof do


He repasado las definiciones de los campos y son exactas. Incluso he reindexado la tabla con la utilidad DTUTIL32 y no me detecta errores, ni borrandole los archivos VAL y PX.

El problema es que la tabla que falla tiene datos que el cliente tiene metidos y los necesita.

Agradeceria cualquier ayuda al respecto. Muchas gracias.:o

[marcoszorrilla]

Haz una copia vacía de la que funciona y como son iguales, con una utilidad, por ejemplo DatabaseDesktop pásale los datos a esta nueva que le tendrás que poner el nombre que corresponda y haz la prueba.

Un Saludo.

[Espartaco]

Gracias por responder tan rapido MarcosZorrilla. He hecho lo que me dices y sigue haciendo lo mismo. En realidad es lo mismo que yo he hecho con codigo pero desde Database Desktop.

Incluso he llegado a eliminar todos los registros de la tabla mala, y aun asi me sigue dando el mismo error. La verdad es que es muy raro, nunca me habia pasado, pero es que ya no se que hacerle mas a la dichosa tabla.

Decirte que si accedo a la tabla desde otro lugar de la aplicacion, no me da ningun error. Lo malo es que no debe ser problema de la aplicacion porque la otra tabla identica funciona sin problemas.

Estoy desesperado la verdad. A ver si se te ocurre cualquier otra cosa.

Muchas Gracias.

[marcoszorrilla]

Pues yo creo más bien que se debe a algún registro que contiene algún dato incorrecto.

Prueba lo mismo, pero da de alta un registro a mano, si funciona, puedes ir añadiendo por código los registros uno a uno y cada vez que añades el registro haces alguna operación con la tabla, probablemente todo funcione correctamente hasta llegar a un registro concreto.

Un Saludo.

[Espartaco]

Bueno solucionado el problema. Te cuento y quedara constancia de que el error Acces Violation es porque se intenta acceder a un objeto que ya no existe.

Resulta que haciendo las pruebas de borrar registros y crear manualmente, siguiendo las instrucciones de MarcosZorrilla, he descubierto que en realidad no ocurria por cambiar la tabla mala por la buena, sino que al poner la supuesta tabla mala, el hilo del programa entraba en una instruccion que tontamente he puesto mal y por tanto ahi estaba el problema, lo que me ha confundido es que en realidad al cambiar la tabla es cuando se saltaba la instruccion y es cuando ocurria el problema. Pongo el codigo:


if DbContrato.RecordCount>0 then
Ficha1:=TContratosRecPend.Create(Self);
Ficha1.DbContrato.Active:=True;
Ficha1.Showmodal;
Ficha1.DbContrato.Active:=False;
Ficha1.Free;


Resulta que se me paso poner el begin...end despues del then para que se ejecutara todo el grupo de instrucciones. Entonces cuando el if no se ejecutaba, resulta que la ventana no se creaba y se intentaba acceder a la misma. Mea culpa, despues de años programando con delphi se puede caer en el fallo mas tonto.

Gracias MarcosZorrilla por tu ayuda y lamento no haberme dado cuenta antes y haberte robado parte de tu tiempo que debe ser muy valioso. Espero no volver a cometer este tipo de errores, que pienso que ocurren mas porque se concentra uno en lo que debe hacer la aplicacion y deja un poco de lado cosas que tiene mas que aprendidas. El codigo correcto es:


if DbContrato.RecordCount>0 then
begin
Ficha1:=TContratosRecPend.Create(Self);
Ficha1.DbContrato.Active:=True;
Ficha1.Showmodal;
Ficha1.DbContrato.Active:=False;
Ficha1.Free;
end;


Gracias de nuevo MarcosZorrilla y recibe un cordial saludo.