Que pasa con mi base de datos!???

[roman]

Primero que nada, bienvenido al Club y felicidades porque son pocos quienes en su primer mensaje usan las etiquetas correctas.

Ahora bien, en cuanto al asunto que preguntas pues no sé yo cuál pueda ser la razón de que desparezcan los datos, sobre todo porque comentas que ya los has visto con el Database Desktop.

Sin embargo, el código que muestras es un poco raro porque lo usual para recorrer una tabla es:

Código Delphi [-]
ventas.First;

while not ventas.EoF do
begin
  ...

  ventas.Next;
end;

en lugar de basarse en el número de registro. Por otro lado, yo creo que te convendría más usar un Query para la actualización, usando la siguiente consulta SQL:

Código SQL [-]
update ventas
set year = extract(year from fecha)

en el caso de qe fecha sea de tipo DATE. Si no, si es un alfanumérico, entonces puedes usar la función SUBSTR:

Código SQL [-]
update ventas
set year = substring(fecha from 7 for 4)

Cualquiera de las dos opciones, además de hacer la actulización en un sólo paso, puedes hacerla desde el SQL Explorer, de manera que ni siquiera tendrías que programar un procedimiento.

// Saludos

[roman]

Una corrección:

Como year es una palabra reservada para paradox, las consultas SQL deberán ser:

Código SQL [-]
update ventas
set "ventas"."year" = extract(year from fecha)

De cualquier manera, te convendría cambiar el nombre del campo para evitar problemas.

// Saludos

[[basti]]

Comprueba que cierras la tabla antes de finalizar la aplicación. De hecho, prueba a cerrarla justo después del código para rellenar el campo. Puede ser que la aplicación no cierre la tabla correctamente, entonces no se actualizarán los datos, sólo los verás mientras esté la aplicación funcionando. Y si copias, como dices, los datos a otra carpeta, estarán vacíos.

[gamez2809]

Que tal, gracias por sus respuestas, realmente cuando aprendi a programar en delphi no profundice mucho en base de datos, asi que lo que se hacer es casi puro instinto, jeje, gracias por el consejo con el codigo, y en cuanto lo de cerrar las tablas, en que consiste? es ponerlas en active:=false ? o no me enseñaron eso? Gracias por su ayuda!

Saludos