|
Utilizando ASP podemos compactar una Base de datos que tengamos en el servidor de manera que esta sea más pequeña y su rendimiento mejor. El problema de las Bases de Datos de Acces es que van ceciendo y muchas veces al borrar un registro este no aparece peró sigue ocupando espacio en la Base de Datos. Al compactar, todos estos espacios ocupados y inservibles són borrados.
<%
Function CompactDB(source, Destination)
If trim(source) = "" and trim(Destination) = "" Then
CompactDB = False
Else
Dim DBE
Set DBE = CreateObject("DAO.DBEngine")
DBE.CompactDatabase source, Destination
CompactDB = True
End IF
End Function
%>
|
