Online komprimer og reparer Database (access)

Hvorfor skal den repareres ?  Er den i stykker!
J.

Du kan jo altid downloade den, eller bare hente den via FTP og så bliver den rep. automatisk af access!
No problem!
J.

Jeg er godt klar over, at man kan downloade og reparere dem med access.

Men at give svar som :
Hvorfor skal den repareres ?  Er den i stykker!

på 800 point er lidt optimistisk, synes du ikke ?

Og fortsat: at man kan downloade den- tjah hvis man har 100 af dem liggende på forskellige sider, skal man så også downloade dem alle ??

helt ærligt tag lige og læs spørgsmålet ?

sváret kunne have været noget i retning af:

Dim fso As New FileSystemObject
 
  Set engine = CreateObject(\"DAO.DBEngine.35\")
  engine.CompactDatabase \"db1.mdb\",\"db2.mdb\"
 
  fso.DeleteFile \"db1.mdb\"
  fso.MoveFile \"db2.mdb\", \"db1.mdb\"

Set fso = Nothing
Set engine = Nothing
End Sub

---

men jeg leder efter folk, som har erfaring med online komprimering og ikke undskyld udtrykket \"nybegyndere\"

mvh

Brock

lukker & slukker

Brock !
Jamen jeg prøver lige at hjælpe, og fuck dine points, du så giver dig selv.
Har du det skidt !
Jeg kender én der er specialist med online komprimering og hvis du vil kan du bare skrive til \"nybegynderen\", og \"brocke\" dig lidt!
MEN DET VIL KOSTE DIG PENGE og ingen skide points!
J.

Godt ord igen ... Det var ikke ment som en fornærmelse.

Du må undskylde, hvis det blev opfattet sådan.

Jo, jeg giver dig ret i, at pointene ikke er det centrale på eksperten, og det glæder mig, at du kan benytte stedet til at lave noget forretning med kroner og ører i. Og det er selvfølgelig godt, at du har venner, som er eksperter.

Men stadigvæk - og hånden på hjertet -

Spørgsmål:
Hvordan komprimerer og reparerer man online en access-database ???

Hvorfor skal den repareres ?  Er den i stykker!
J.

Det er sådan lidt bøvet - nes pas ?

Angående penge - intet problem - hvis du vil sætte mig i kontakt med din ven, som har forstand på dette spørgsmål kunne jeg høre lidt om hans priser.

med venlig hilsen

Brock

Da jeg sagde \"undskyld udtrykket \"nybegyndere\" \"

var det netop for ikke at formærme nogen. Dine lakoniske svar indikerede, at der muligvis var tale om en, som lige var startet med ASP.

Og jeg gav da også et eksempel på, hvad det var jeg jagtede.

Det var oprigtigt ikke ment, som nogen fornærmelse. Og jeg kan kun beklage, at du tog det ilde op.

Jeg mener, at ekspertens ånd er det vigtigste og at forummet ikke er til for at brillere over andre eller for den sags skyld aflastningsrum for ens agressioner. Det er et sted for såvel nybegyndere som mere erfarne programmører. Dette også ment inden for erfaring, alder og modenhed.

mvh
Brock

Hej Brock !
Ja, det er 1. gang jeg er kald for \"nybegynder\"
Men jeg arbejder meget med Access db, til dagligt,
og jeg har bare Aldrig haft behov for at stille et spørgsmål der lyder sådan :\"
Hvordan komprimerer og reparerer man online en access-database ??? \"
OK, jeg indrømmer, at jeg ordet \"reparerer\" fangede min opmærksomhed og jeg kender dig ikke lige, og derfor kunne jeg ikke vide hvor meget nybegyndere du er.  Men p... med det.
Hvordan man komprimerer en db, og så det omvente i den anden ende, det har jeg aldrig lavet. Men som sagt, jeg kender ÉN der kan, og jeg tror han bruger et kompinent til det.
Ja, på det område er jeg en NYbegynder,,,hihihi
Respekt!
J.

np ;)

imellemtiden fandt jeg faktisk løsningen:

  ++++++++++++    Begin Compact.asp    +++++++++++++++++++++++++++++
<%
option explicit
Const JET_3X = 4

Function CompactDB(dbPath, boolIs97)
Dim fso, Engine, strDBPath
strDBPath = left(dbPath,instrrev(DBPath,\"\\\"))
Set fso = CreateObject(\"Scripting.FileSystemObject\")

If fso.FileExists(dbPath) Then
    Set Engine = CreateObject(\"JRO.JetEngine\")

      If boolIs97 = \"True\" Then
            Engine.CompactDatabase \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & dbpath, _
            \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & strDBPath & \"temp.mdb;\" _
              & \"Jet OLEDB:Engine Type=\" & JET_3X
      Else
    Engine.CompactDatabase \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & dbpath, _
    \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & strDBPath & \"temp.mdb\"
      End If
      fso.CopyFile strDBPath & \"temp.mdb\",dbpath
      fso.DeleteFile(strDBPath & \"temp.mdb\")
      Set fso = nothing
      Set Engine = nothing
      CompactDB = \"Your database, \" & dbpath & \", has been Compacted\" & vbCrLf
Else
      CompactDB = \"The database name or path has not been found. Try Again\" & vbCrLf
End If

End Function
%>
<html><head><title>Compact Database</title></head><body>

<h2 align=\"center\"> Compacting an Access database</h2>
<p align=\"center\">
<form action=compact.asp>
Enter relative path to the database, including database name.<br><br>
<input type=\"text\" name=\"dbpath\"><br><br>
<input type=\"checkbox\" name=\"boolIs97\" value=\"True\"> Check if Access 97 database
<br><i> (default is Access 2000)</i><br><br>
<input type=\"submit\">
<form>
<br><br>
<%
Dim dbpath,boolIs97
dbpath = request(\"dbpath\")
boolIs97 = request(\"boolIs97\")

If dbpath <> \"\" Then
      dbpath = server.mappath(dbpath)
      response.write(CompactDB(dbpath,boolIs97))
End If
%>
</p></body></html>

Så hvis du en dag får brug for det, har du he løsningen uden anden komponent en microsoft egen

mvh
Brock