Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   posible borrar toda informacion registrada en bases de datos en un determinado tiempo (https://www.clubdelphi.com/foros/showthread.php?t=57388)

jirbert 13-06-2008 06:13:44

posible borrar toda informacion registrada en bases de datos en un determinado tiempo
 
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 13-06-2008 10:54:08

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 :rolleyes:


Saludos

Caro 13-06-2008 13:43:53

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 13-06-2008 14:29:31

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


La franja horaria es GMT +2. Ahora son las 23:47:57.

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