posible borrar toda informacion registrada en bases de datos en un determinado tiempo

[jirbert]

Buenos Dias, foro como andan espero que bien, trabajo en mi sistema de facturacion, en fin tengo todo listo bueno casi, ando dando unas ultimas modificaciones, como ya les he mensionado antes (no se mucho sobre el tema pero ahi medio le meto, por cierto les hice caso y estoy leyendo "la cara oculta de delphi" esta super ayuda mucho) bueno al grano quisiera borrar toda la informacion que se guarda en mi base de datos, el motivo es que hago un reporte mensual, y ese mes lo quiero fuera de la base de datos para asi generar solo en mes en curso, pudiese ser generandole un codigo a un button o algo asi pero no se como redactar la linea.

alguna idea sobre lo mensionado

delphi 6
mysql

gracias de antemano...

[Northern]

Lo más rápido sería crear una nueva BD con la misma estructura y borrar la vieja directamente y no ir borrando registro a registro


Saludos

[*Caro*]

Hola jirbert, estas seguro que quieres borrar toda la información que tienes en tu BD en base a una condición, solo para generar un reporte, no es mejor que, cuando vayas a generar el reporte le pongas condiciones a tu consulta y solo generes del mes en curso. Para borrar puedes usar "Delete From tabla Where campo=condicion".

Saluditos

[[Lepe]]

Me ha parecido entender que tienes datos de prueba y al terminar el programa quieres vaciar todos los datos para empezar con datos reales, 2 formas:

- Como te han dicho, extraes la metadata, y después la ejecutas de nuevo cambiando el nombre de la base de datos (todo esto desde tu administrador de BBDD)

- Te preparas una rutina que lance una sentencia sql sobre cada tabla. El objeto TDatabase tendrá un método GetTablenames, después puedes lanzar un query:

Código Delphi [-]
listatablas := Tstringlist.create;
DAtabase.GetTablenames(listaTablas);
for i:= 0 to listaTablas.Count-1 do // listatablas es un TStringlist;
begin 
  query1.sql.text := 'delete from '+ listatablas[i]';
  query1.ExecSql;
end;
listatablas.free;

Saludos