Asp - Compactar y reparar base de datos

Códigos Asp

Compacta la base de datos y le dice al usuario que la base de datos ha sido optimizada o bien muestra un error.

Tutores.org

Inicio > Asp

Visitas: 9,801 - 6/12/2003

CODIGO

<% 'Codigo ofrecido por Tutores.org %>

<%
base_antigua = Server.MapPath("basedatos1.mdb")
base_nueva = Server.MapPath("basedatos2.mdb")
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& base_antigua
strConnBak = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & base_nueva
Set objJRO = Server.CreateObject("JRO.JetEngine")
objJRO.CompactDatabase strConn, strConnBak
Set objJRO = Nothing
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(base_nueva) And objFSO.FileExists(base_antigua) Then
objFSO.DeleteFile(base_antigua)
objFSO.MoveFile base_nueva, base_antigua
Response.Write "<font size=""2"" color=""verdana"">La base de datos ha sido compactada y reparada satisfactoriamente.</font>"
Else
Response.Write "<font size=""2"" color=""verdana"">Ha ocurrido un problema intentelo nuevamente.</font>"
End If
Set objFSO = Nothing
%

ENLACE AL CODIGO

Si quieres enlazar desde tu pagina a este codigo

<a title="Tutores.org - Compactar y reparar base de datos" href="http://www.tutores.org/codigo/434/" target="_blank">Compactar y reparar base de datos</a>

COMENTARIOS

Aun no existe ningun comentario para este Codigo.

INSERTAR COMENTARIO

Usuario:
Email:
Comentario:
	Codigo Seguridad
	Antes de enviar un comentario... Todos los comentarios son revisados personalmente Todo comentario que no haga relacion al codigo mostrado en esta pagina sera eliminado Usuarios registrados tienen preferencia en recibir respuestas de ayuda!! Ademas de poder insertar Imagenes,Enlaces y otras propiedades del editor. Por favor, insertar los comentarios descriptivos.