Compactar base de datos en asp! Aquí...
Para que no des tus respuestas
Incompletas al publico pobres...
<%
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
%>
Postdata y si funciona..!
Incompletas al publico pobres...
<%
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
%>
Postdata y si funciona..!
1 Respuesta
Respuesta de smunoz
1
Ten en cuenta que para compactar una MDB, ésta debe estar libre (nadie puede estar consultándola), y mientras dure la compactación, cualquier acceso sobre ella devolverá un error 500 (Internal server error) o un error de ODBC.
No si compactas tu código en un objeto com y después lo llamas desde global.asa en el inicio de aplicación.
Así cada vez que se reinicie el servidor web se compactara
Así cada vez que se reinicie el servidor web se compactara
