SprintDevelop.com - Diseño y desarrollo web - Diseño, desarrollo web,Aplicaciones Móviles, TabletasSprintDevelop.com - Diseño y desarrollo web
Mostrando Codigo - Asp
Code

Asp - Compactar base de datos desde el sevidor

Códigos Asp

Con este script conseguimos compactar una base de datos de access o .mdb directamente desde el servidor sin tener que descargarla.Simplemente cambiar el path de la base de datos en la linea 3
Visitas: 11,350 - 21/09/2003 22.21.18
CODIGO SIN DEMOSTRACIONNO CONTIENE ARCHIVO DESCARGABLEComentario
CODIGO
Codigo probado en ChromeCodigo probado en Mozilla FirefoxCodigo probado en Internet Explorer 7+Codigo probado en OperaCodigo probado en Safari


<% 'Codigo ofrecido por Tutores.org %>

  1. <%
  2. Const DriverConexion = "Provider=Microsoft.Jet.OLEDB.4.0; Data source="
  3. Dim strDatabase, strFolder, strFileName
  4. StrCarpeta = server.mappath("./db")
  5. Private Sub dbCompact(StrBaseDeDatos)
  6. if right(StrCarpeta,1) <> "" then StrCarpeta = StrCarpeta & ""
  7. Dim SourceConn, DestConn, oJetEngine, oFSO
  8. SourceConn = DriverConexion & StrCarpeta & StrBaseDeDatos
  9. DestConn = DriverConexion & StrCarpeta & "Temp" & StrBaseDeDatos
  10. Set oFSO = Server.CreateObject("Scripting.FileSystemObject")
  11. Set oJetEngine = Server.CreateObject("JRO.JetEngine")
  12. If Not oFSO.FileExists(StrCarpeta & StrBaseDeDatos) Then
  13. Response.Write ("No se encontro base de datos: " & StrCarpeta & StrBaseDeDatos)
  14. else
  15. If oFSO.FileExists(StrCarpeta & "Temp" & StrBaseDeDatos) Then
  16. Response.Write ("Error. Intentelo de nuevo.")
  17. oFSO.DeleteFile (StrCarpeta & "Temp" & StrBaseDeDatos)
  18. else
  19. oJetEngine.CompactDatabase SourceConn, DestConn
  20. oFSO.DeleteFile StrCarpeta & StrBaseDeDatos
  21. oFSO.MoveFile StrCarpeta & "Temp"& StrBaseDeDatos, StrCarpeta& StrBaseDeDatos
  22. Response.Write ("* La base de datos <B'>" & Request.form("DBFileName") & "</B'> fue compactada exitosamente.")
  23. End If
  24. End If
  25. Set oFSO = Nothing
  26. Set oJetEngine = Nothing
  27. End Sub
  28. Private Sub dbList
  29. Dim oFolders, i
  30. i = 0
  31. Set oFolders = Server.CreateObject("Scripting.FileSystemObject")
  32. Response.Write ("<SELECT name='DBFileName''>")
  33. For Each Item In oFolders.GetFolder(StrCarpeta).Files
  34. If LCase(Right(Item, 4)) = ".mdb" Then
  35. item = Replace(lcase(Item), lcase(StrCarpeta), "")
  36. item = Replace(Item, "", "")
  37. Response.Write ("<OPTION value='" & item &"'>" & item & "</OPTION'>")
  38. i = i+1
  39. End If
  40. Next
  41. Response.Write ("</SELECT'>")
  42. Response.Write ("<BR'><BR'>En la carpeta <b'>"& StrCarpeta &"</b'> hay <b'>"& i &"</b'> bases de datos Access.")
  43. Set oFolders = Nothing
  44. End Sub
  45. Select Case Request.form("compactar")
  46. Case "Compactar"
  47. dbCompact Request.form("DBFileName")
  48. End Select
  49. %>
  50. <p align="center"><b>Seleccionar base de datos</b>
  51. <form method="POST" action="" id=form1 name=form1>
  52. <%dbList%><BR><BR>
  53. <input type="submit" value="Compactar" name="compactar">
  54. </form></p>
  55.  



ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo
<!-- Inicio enlace Tutores.org -->
<a title="Tutores.org - Compactar base de datos desde el sevidor" href="http://www.tutores.org/codigo/573/" target="_blank">Compactar base de datos desde el sevidor</a>
<!-- Final enlace Tutores.org -->
COMENTARIOS
Comentario usuario
Oscar Mendoza
3 5
Me encataron los resultados de este escript.

Gracias por postear este excelente Script.. me soluciono varios problemas..

Atte. Oscar Israel Mendoza desde el sur del mundo.
Stgo - chile.

www.srv.cl
Comentario usuario
14/11/2003 0.57.38
5 5
Hola,
este script debe ir en un modulo vba normal ...ó debo hacer antes algún otro procedimiento crear algún boton pagina...gracias de antemano
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.