Accessdatabaser växer ju rätt fort och om man tar bort en massa poster så krymper de ju inte lika mycket. I Access kan man ju Reparera och komprimera en databas för att få ner storleken. Men är det möjligt att på något sätt utföra detta kommando genom ASP (på en .mdb-fil som ligger på en server)? Det bör gå att använda dao360.dll, som har exakt de funktionerna du söker. Läs i VB:s hjälp om bl.a. DBEngine. Löste det med:<code><% Komprimera
Och nu så är det Access som gäller så säg inte att jag ska gå över till SQL-server eller MySQL. Det får bli ett senare projekt :-)Sv: Komprimera
Sv: Komprimera
Dim strPathToMDB
Dim objJetEngine
Dim objScript
orgFilePath=Server.MapPath("databasfilen.mdb")
newFilePath=orgFilePath&".tmp"
originalFile="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" &orgFilePath& ";"
compactedFile="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" &newFilePath&";"
SET objJetEngine = Server.CreateObject("JRO.JetEngine")
objJetEngine.CompactDatabase originalFile,compactedFile
SET objScript= Server.CreateObject("Scripting.FileSystemObject")
objScript.CopyFile newFilePath, orgFilePath, True
objScript.DeleteFile newFilePath
SET objJetEngine=nothing
SET objScript=nothing
Response.Write "Packning av databasfilen: " & orgFilePath &"<br>"
Response.Write "<STRONG>Filen är packad och klar.</STRONG><br><br>"
%></code>