Re: Acces database comprimeren en herstellen

Article View: be.comp.programming

Article #3575

Back to be.comp.programming Previous Next

#3575

From: Cofke
Date: Thu, 04 Dec 2003 15:52

30 lines
2007 bytes

Ik had ook iets gevonden uiteindelijk bij mickeysoft 
Dit is het uiteindelijk geworden, en bedankt voor de info

Private Sub Form_Initialize()
Dim DBPATH As String

'Database compressen
Dim je As New JRO.JetEngine

   ' Make sure there isn't already a file with the
   ' name of the compacted database.
   If Dir(App.Path & "\database\newtaakplanner.mdb") <> "" Then Kill 
App.Path & "\database\newtaakplanner.mdb"

   ' Compact the database
   Dim olddb As String
   Dim newdb As String
   olddb = "Data Source=" & App.Path & "\database\taakplanner.mdb"
   newdb = "Data Source=" & App.Path & "\database\newtaakplanner.mdb"
   je.CompactDatabase olddb, newdb


   ' Delete the original database
   Kill App.Path & "\database\taakplanner.mdb"

   ' Rename the file back to the original name
   Name App.Path & "\database\newtaakplanner.mdb" As App.Path & "\database
\taakplanner.mdb"

end sub

Technical Details

Message-ID: <Xns9447AD58B1895cofke@195.130.132.69>

Path:

arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-01!sn-xit-09!supernews.com!newshosting.com!news-xfer2.atl.newshosting.com!newsfeed.icl.net!newsfeed.fjserv.net!newsfeed.freenet.de!feed.news.tiscali.de!newsfeed.tiscali.ch!feed1.news.be.easynet.net!ossa.telenet-ops.be!hestia.telenet-ops.be.POSTED!not-for-mail

References: <Xns9443ADC905DBBcofke@195.130.132.69> <57388f65.0312031837.547f1e92@posting.google.com>

Show Full Headers

Complete Article Headers

X-Google-Language: DUTCH,ASCII-7-bit
X-Google-Thread: fcea4,900029da346dd342
X-Google-Attributes: gidfcea4,public
X-Google-ArrivalTime: 2003-12-04 07:52:53 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-01!sn-xit-09!supernews.com!newshosting.com!news-xfer2.atl.newshosting.com!newsfeed.icl.net!newsfeed.fjserv.net!newsfeed.freenet.de!feed.news.tiscali.de!newsfeed.tiscali.ch!feed1.news.be.easynet.net!ossa.telenet-ops.be!hestia.telenet-ops.be.POSTED!not-for-mail
Newsgroups: be.comp.programming
Subject: Re: Acces database comprimeren en herstellen
From: Cofke <cofke-nospam-@hotmail.com>
References: <Xns9443ADC905DBBcofke@195.130.132.69> <57388f65.0312031837.547f1e92@posting.google.com>
Organization: Your Company
Message-ID: <Xns9447AD58B1895cofke@195.130.132.69>
User-Agent: Xnews/5.04.25
Lines: 30
Date: Thu, 04 Dec 2003 15:52:51 GMT
NNTP-Posting-Host: 213.224.71.145
X-Complaints-To: abuse@telenet.be
X-Trace: hestia.telenet-ops.be 1070553171 213.224.71.145 (Thu, 04 Dec 2003 16:52:51 CET)
NNTP-Posting-Date: Thu, 04 Dec 2003 16:52:51 CET

Reply to Parent Message