Programación General > Visual Basic 6.0 e inferiores

 Porque???

(1/2) > >>

Kev:
Hola a todos, mi pregunta es la siguiente:

Tengo una aplicacion donde utilizo una Base de datos (MSAcces) que la uso como auxiliar para enlazar a un reporte, es decir, cada vez que envio a imprimir, primero vacio todas las tablas de la BD y leugo lleno las tablas de la base de datos auxiliar y luego llamo al reporte (Crystal reports) para que utilize los datos de la BD auxiliar, el programa me funciona muy bien solo hay un problema, que recien me di cuenta, la base de datos va creciendo (ocupaba unos cuantos Kb y luego ocupo varios, demasiados, para su contenido), es decir es como si la BD estaria almacenando todos los datos de todas las veces que mande a imprimir, pero al revisarla no es asi, la BD solo contiene los datos de la ultima vez que se envio a imprimir, no se que es lo que esta pasando.

Alguien me puede ayudar, o dar alguna sugerencia de como resuelvo esto?

Gracias de antemano
 :smartass:  :comp:

Brroz:
Hola Kev.

Lo que te ocurre es que el espacio de los registros deleteados en la bd sigue ocupando espacio. Para solucionarlo compacta la base de datos.

Chao.

Brroz:
Hola de nuevo.

Con una referencia a DAO:

--- Código: Text ---      DAO.CompactDatabase "DbOrigen.mdb" , "DbDestino.mdb"  La bd no se puede compactar sobre si misma, pero luego la copias y listo.

Si usas ADO, ahora mismo no sé como hacer esto, tendría que buscarlo.

Otra posibilidad es usar la automatización de Access y usar el objeto DoCmd de la base de datos.

Suerte.

Kev:
Muchas gracias por las respuestas, pero estoy usando ADO, alguien me podria explicar un poco mas eso de compactar la base de datos?

* Hay alguna forma de borrar una tabla sin que los datos anteriores continuen, todo esto mediante ADO.

Gracias de antemano
 :hola:

Brroz:
Hola Kev.

Ha pasado tiempo, pero hoy viendo un antiguo proyecto me acordé del tema este. Aquí tienes código para compactar una base de datos sin usar DAO.


--- Código: Text ---     Dim je As Object    Set je = CreateObject("JRO.JetEngine")    je.CompactDatabase "Data Source=C:\Ruta\DbOrg.mdb" _    & ";Data Source=c:\Ruta\DbDest.mdb;"  
Suerte.

Navegación

[0] Índice de Mensajes

[#] Página Siguiente