Compress mdb online

Det du har der er en Visual basic kode.. og ikke en vbscript eller asp..

Du skal derimod bruge dette link til at løse det i asp:
http://www.motobit.com/tips/detpg_CompactMDB/

Umiddelbart virker de 2 scripts ikke lokalt, men så vidt jeg kan forstå skal der være installeret nogle komponenter på serveren, er disse komponenter almindelige på diverse webhoteller?

Det er også vigtigt at scriptet automatisk omdøber den komprimerede database tilo det originale navn

løsning 2 skulle du meget gerne kunne bruge, da mdac er almindelig..

Og så bruger du denne her:
Set fso = CreateObject("Scripting.FileSystemObject")
sourceFile = 'C:\windows\notepad.exe'
destFile = 'C:\'
fso.CopyFile sourceFile,destFile,true
fso.DeleteFile sourceFile
Set fso = Nothing

Hvor du udskifter sourceFile med stien til den nye database, som det ovenover lavet... og i destFile skriver du navnet på hvad den gamle db hed og så vil den overskrive den gamle db med den nye fil.. og slette den nye db, med det midlertidige navn ;-)

Jeg har siddet og rodet lidt med det, men kan desværre ikke få det til at virke.
Jeg kunne godt bruge et helt færdigt script... :)

Set Engine = CreateObject("JRO.JetEngine")
  Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=path\database.mdb", _
    "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=path\compacted_database.mdb"

Den kommer med noget OLE DB fejl...

+ er det ikke muligt at bruger server.MapPath... da stien ellers henviser til c:\windows\system32\

hvilken fejl få du...

sourceFile = ""
destFile = ""
Set Engine = CreateObject("JRO.JetEngine")
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & destFile, _
    "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sourceFile
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile sourceFile,destFile,true
fso.DeleteFile sourceFile
Set fso = Nothing

det er hele scriptet... ren c&p...

Det eneste du skal definere er stien og navnet på databaserne... hvis du vil bruge server.mappath, er du velkommen til det...

Med den kode du lige har lavet får jeg følgende fejl:

Microsoft JET Database Engine (0x80004005)
Filen "C:\WINDOWS\system32\Lblog.mdb" kan ikke findes.

Jeg har skrevet Lblog.mdb som destFile

Det vil sige at hvis jeg skal bruge server.Mappath så skal scriptet se sådan ud:

sourceFile = "Lblog_old.mdb"
destFile = "Lblog.mdb"
Set Engine = CreateObject("JRO.JetEngine")
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Server.MapPath=" & destFile, _
    "Provider=Microsoft.Jet.OLEDB.4.0;Server.MapPath=" & sourceFile
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile sourceFile,destFile,true
fso.DeleteFile sourceFile
Set fso = Nothing

ja.. men du skal også skrive stien til hvor filen ligger jo...

så er destfile kan der f.eks. står C:\min\database\sti\Lblog.mdb

Der kommer følgende fejl:

Microsoft JET Database Engine (0x80004005)
Den installerbare ISAM kan ikke findes.

Nej.. Nej

Du skal gøre det hele op i variablerne destFile og SourceFile

F.eks. destFile = Server.Mappath(".") & "\Lblog.mdb"

Hvis db'en vel og mærke ligger i samme mappe som scriptet..

men når det kører på et webhotel, kan jeg vel ikke bruge den nødagtige sti (C:\min\database\sti\Lblog.mdb)

OK... prøver lige dit forslag kl. 00:53:52

Jo.. du kan sagtens bruge den nøjagtige sti... hvis du har den ellers kan den fåes ved response.write Server.Mappath(".")

<%
sourceFile = Server.Mappath(".") & "\Lblog_old.mdb"
destFile = Server.Mappath(".") & "\Lblog.mdb"
Set Engine = CreateObject("JRO.JetEngine")
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & destFile, _
    "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sourceFile
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile sourceFile,destFile,true
fso.DeleteFile sourceFile
Set fso = Nothing
%>

Giver følgende fejl...

Microsoft JET Database Engine (0x80040E09)
Microsoft Jet-databasemotoren kan ikke åbne filen "c:\inetpub\wwwroot\Lblog_old.mdb". Den er allerede åbnet med udelt adgang af en anden bruger, eller du skal have tilladelse til at vise dataene.
compress.asp, line 5


Men der er ikke en database der hedder Lblog_old.mdb

Prøv med den her:

<%
sourceFile = Server.Mappath(".") & "\Lblog_old.mdb"
destFile = Server.Mappath(".") & "\Lblog.mdb"
Set Engine = CreateObject("JRO.JetEngine")
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & destFile, _
    "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sourceFile
Set Engine = Nothing
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile sourceFile,destFile,true
fso.DeleteFile sourceFile
Set fso = Nothing
%>

Cool.. det virker på serveren, der kan åbenbart ikke gøres lokalt....

Du skal have mange tak.. smid et svar

Svar....

Grunden til det ikke virker lokalt, er at du nok ikke har skriveadgang på din lokale server

Jeg takker endnu engang :)

Det var så lidt... at jeg skulle hjælpe din lille blog på vej...

Må man godt redist. den...

og rette i den.. så vi kan lave den om til MySQL ;-)

:)
hvad mener du med redist. den?

at man må videregive den.

du kan evt. fange mig på tt@device.dk