codice:
sub compatta_db
'Comprimo il database creandone una copia compressa e mantenendo l'originale
Dim miodb
Set miodb = CreateObject("DAO.DBEngine.36")
miodb.CompactDatabase server.MapPath("/db.mdb"), server.MapPath("/db_tmp.mdb")
Set miodb=Nothing
'Elimino il vecchio database (quello originale)
Dim objFso, objFile
Set objFso=Server.CreateObject("scripting.filesystemobject")
Set objFile=objFso.GetFile(server.MapPath("/db.mdb"))
objFile.Delete
Set objFile = Nothing
'Rinomino il database temporaneo con il nome di quello originale
objFso.MoveFile server.MapPath("/db_tmp.mdb"), server.MapPath("/db.mdb")
Set objFso = Nothing
end sub
Lancia la compattazione dopo l'inserimento.
Anche se io sapevo che non erano i campi memo il problema bensì, dopo una DELETE, la mancata riduzione dello spazio occupato.
Roby