Ojala me puedan ayudar,
Saludos!

| ||||
__________________ Manual de ASP Avanzado ;-) |
| ||||
Cita: JejejejeLos únicos códigos que encontré que no hagan uso del filesystemobject son estos:
Código:
ySet Engine = CreateObject("DAO.DBEngine.35") Engine.CompactDatabase "path\database.mdb", "path\compacted_database.mdb"
Código:
(fuente)Set Engine = CreateObject("JRO.JetEngine") Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=path\database.mdb", _ "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=path\compacted_database.mdb" Pero fijate que mdb origen y mdb destino usan nombres de base de datos diferentes. No sé que pasará si tanto mdb origen y mdb destino se llaman de la misma manera. Probalo (con un respaldo de la BD, por favor) y comentame!
__________________ ...___... |
| ||||
si ambas tienen el mismo nombre te alega por el nombre de la base de destino y te dice que ya existe. Lo que hace es tomar tu base original, la compacta y luego la copia con otro nombre. Lo que sigue entonces sería: eliminar la base original y luego renombrar la nueva base. Me sigues hechando una mano??? Mientras tanto veré si este codigo funciona en un server gratuito (probaré en domaindlx) y te aviso. |
| ||||
lo que interpreto es que ya probaste a colocarle el mismo nombre a base origen y destino y te dice que no se puede. Cita: Y... la única que le encuentro es que lo vas a tener que hacer manualmente si no disponés de FSO. Llegado este punto, yo lo haría al revés:Lo que sigue entonces sería: eliminar la base original y luego renombrar la nueva base. Me sigues hechando una mano??? Si la base de datos original se llama pcarvajal.mdb, la renombro a pcarvajal_tmp.mdb e inmediatamente corro alguno de los dos scripts de esta manera... Set Engine = CreateObject("DAO.DBEngine.35") Engine.CompactDatabase "path\pcarvajal_tmp.mdb", "path\pcarvajal.mdb" ... y, luego de verificar que la base de datos quedó funcional, borro manualmente el pcarvajal_tmp.mdb
__________________ ...___... |