Madness.nl | Scripts - Database online comprimeren

Hoofdmenu

•  Home
•  ASP Tips
•  Artikelen
•  ASP Lessen
•  Scripts
•  Opleidingen
•  Resources
•  Madness Forum
•  Nieuws
•  Adverteren?

Members

Inloggen
Registreer je nu!
Wachtwoord vergeten?

Laatste reacties

26-11 ASP en formulieren
09-06 ASP en databases
14-03 SQL de basis
28-02 Formulier > E-mail
07-08 Nieuwe versie Madne...

Madness.nl Forum

21:41 Te mooi om waar te ..
08:47 application
08:46 Domein Hosting
08:45 USB webserver
08:45 Eigen Scripts
08:44 Database paging
10:21 Even voorstellen?
10:18 Re: It agree, it is..
10:16 ASp.NET MVC
20:42 GPS-applicatie VB v..

Database online comprimeren

Terug naar scripts

Auteur: Highzone
Geplaatst op: 7-9-2003 14:42:01
Laatste update: 7-9-2003 14:42:33
Aantal keer bekeken: 17622
Download script (zip file)

Database online comprimeren

Omschrijving: Met dit ASP script kan er online een Access database worden gecomprimeerd. Met behulp van een dropdown menu kan de database geselecteerd worden. Vervolgens wordt er aangegeven of de database compressie gelukt is of niet.
Het comprimeren van de database kan ervoor zorgen dat de database wel 20% kleiner wordt.

Extra informatie:

Voor het gebruik moet het path en de database in het script worden ingevuld.

Meer informatie is ook te vinden op Microsoft.

Script:

Pagina: compact.asp

<%@LANGUAGE="VBSCRIPT" %>
<html>
<head>
<title>Comprimeer database</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1250">
</head>

<body>
<b>COMPRIMEER DE DATABASE</b> !<br>
<%
    Const Jet_Conn_Partial = "Provider=Microsoft.Jet.OLEDB.4.0; Data source="
    Dim strDatabase, strFolder, strFileName

    ' geef het volledige path van de database
    strFolder = "c:\inetpub\wwwroot\database\"
    strDatabase = "database.mdb"

    Private Sub dbCompact(strDBFileName)
    Dim SourceConn
    Dim DestConn
    Dim oJetEngine
    Dim oFSO
    SourceConn = Jet_Conn_Partial & strFolder & strDatabase
    DestConn = Jet_Conn_Partial & strFolder & "Temp" & strDatabase
    Set oFSO = Server.CreateObject("Scripting.FileSystemObject")
    Set oJetEngine = Server.CreateObject("JRO.JetEngine")
    With oFSO
    if Not .FileExists(strFolder & strDatabase) Then
    Response.Write ("Not Found: " & strFolder & strDatabase)
    Stop
    Else
    If .FileExists(strFolder & "Temp" & strDatabase) Then
    Response.Write ("Er liep iets verkeerds met de vorige poging, aub probeer opnieuw")
    .DeleteFile (strFolder & "Temp" & strDatabase)
    End if
    End if
    End With
    With oJetEngine
    .CompactDatabase SourceConn, DestConn
    End With
    oFSO.DeleteFile strFolder & strDatabase
    oFSO.MoveFile strFolder & "Temp" & strDatabase, strFolder& strDatabase
    Set oFSO = Nothing
    Set oJetEngine = Nothing
    End Sub

    Private Sub dbList()
    Dim oFolders
    Set oFolders = Server.CreateObject("Scripting.FileSystemObject")
    Response.Write ("<Select Name=""DBFileName"">")
    For Each Item In oFolders.GetFolder(strFolder).Files
    if LCase(Right(Item, 4)) = ".mdb"  Then
    Response.Write ("<OPTION Value=""" & Replace(Item, strFolder, "") & """>" & Replace(Item, strFolder, "") & "</OPTION>")
    End if
    Next
    Response.Write ("</Select>")
    Set oFolders = Nothing
    End Sub
    %>
    <br>
    <FORM method="POST" action="">
    <%dbList%>&nbsp;&nbsp;<INPUT type="submit" value="Compact" name="cmd"></P>
    </FORM><br>
<br>
<%
 ' comprimeer database en vertel of het is gelukt
    Select Case Request.form("cmd")
    Case "Compact"
    dbCompact Request.form("DBFileName")
  response.write "<table width=200 border=0 cellpadding=0 cellspacing=1 bgcolor=""#95954D"" align=center ><tr>"
  response.write "<td valign=top><table width=""100%"" border=0 cellpadding=4 cellspacing=0 bgcolor=""#D8D8B4"">"
  response.write "<tr><td valign=middle align=center class=titel2>Database " & Request.form("DBFileName") & " is optimized !</td></tr></table></td></tr></table>"
    End Select
%>
</body>
</html>

Reacties

Reacties: Database online comprimeren (Aantal reacties: 4 )
» Nieuwe reactie	View Mode : \| \|

Door: aynstayn

Okt 26, 09:07

Na het online comprimeren van mijn access-database wordt die inderdaad veel kleiner. Dit komt de snelheid van mijn toepassing ten goede. Het verschil kan enorm zijn.
Mijn vraag: weet er iemand of je een database online mag comprimeren terwijl ze in gebruik is? Of moeten eerst alle verbindingen afgesloten worden? Ik deed enkele tests waarbij alles prima verliep, maar ik zou er zeker van willen zijn dat ik op deze manier mijn data niet corrumpeer.

(Reply...)

Door: AnTraX

Mei 22, 12:17

Ik denk dat het script zo meer doet

[code]<%@LANGUAGE="VBSCRIPT" %>

<b>COMPRIMEER DE DATABASE</b> !<br>
<%
    Const Jet_Conn_Partial = "Provider=Microsoft.Jet.OLEDB.4.0; Data source="
    Dim strDatabase, strFolder, strFileName

    '// Dit stukje wijzigen
    ' geef het volledige path van de database
    strFolder = "Pad naar de database"
    strDatabase = "naam van de database.mdb"


    Private Sub dbCompact(strDBFileName)
    Dim SourceConn
    Dim DestConn
    Dim oJetEngine
    Dim oFSO
    SourceConn = Jet_Conn_Partial & strFolder & strDatabase
    DestConn = Jet_Conn_Partial & strFolder & "Temp" & strDatabase
    Set oFSO = Server.CreateObject("Scripting.FileSystemObject")
    Set oJetEngine = Server.CreateObject("JRO.JetEngine")
    With oFSO
    if Not .FileExists(strFolder & strDatabase) Then
    Response.Write ("Not Found: " & strFolder & strDatabase)
    Stop
    Else
    If .FileExists(strFolder & "Temp" & strDatabase) Then
    Response.Write ("Er liep iets verkeerds met de vorige poging, aub probeer opnieuw")
    .DeleteFile (strFolder & "Temp" & strDatabase)
    End if
    End if
    End With
    With oJetEngine
    .CompactDatabase SourceConn, DestConn
    End With
    oFSO.DeleteFile strFolder & strDatabase
    oFSO.MoveFile strFolder & "Temp" & strDatabase, strFolder& strDatabase
    Set oFSO = Nothing
    Set oJetEngine = Nothing
    End Sub

    Private Sub dbList()
    Dim oFolders
    Set oFolders = Server.CreateObject("Scripting.FileSystemObject")
    Response.Write ("<Select Name=""DBFileName"">")
    For Each Item In oFolders.GetFolder(strFolder).Files
    if LCase(Right(Item, 4)) = ".mdb" Then
    Response.Write ("<OPTION Value=""" & Replace(Item, strFolder, "") & """>" & Replace(Item, strFolder, "") & "</OPTION>")
    End if
    Next
    Response.Write ("</Select>")
    Set oFolders = Nothing
    End Sub
    %>
    <br>
    <FORM method="POST" action="default.asp?pagina=comprimeer">
    <%dbList%>  <INPUT type="submit" value="Compact" name="cmd"></P>
    </FORM><br>
<br>
<%
if request("pagina") = "comprimeer" then

' comprimeer database en vertel of het is gelukt
    Select Case Request.form("cmd")
    Case "Compact"
    dbCompact Request.form("DBFileName")
response.write "<table width=200 border=0 cellpadding=0 cellspacing=1 bgcolor=""#95954D"" align=center ><tr>"
response.write "<td valign=top><table width=""100%"" border=0 cellpadding=4 cellspacing=0 bgcolor=""#D8D8B4"">"
response.write "<tr><td valign=middle align=center class=titel2>Database " & Request.form("DBFileName") & " is optimized !</td></tr></table></td></tr></table>"
    End Select

End if
%>

[/code]

(Reply...)

Door: Highzone

Jun 4, 22:59

Wat gebeurd er hier meer dan ?

(Reply...)

Door: AnTraX

Jun 9, 16:26

laat ik het zo zeggen... als ik dat script kopier en plak in een asp file. krijg ik de ene error na de andere

en nu heb ik het gebug fixed

(Reply...)

Scripts

Overzicht
Script insturen

Zoeken

Zoekterm(en):