Acces database comprimeren en herstellen

Thread View: be.comp.programming

5 messages

[T] Back to Threads [V] Tree View [G] Group Articles

5 total messages Started by Cofke Sun, 30 Nov 2003 15:55

#3676

Author: Cofke
Date: Sun, 30 Nov 2003 15:55

5 lines
949 bytes

Acces database comprimeren en herstellen.
Is dit ook mogelijk vanuit Visual basic 6.0?

Greetz
Cofke

Re: Acces database comprimeren en herstellen

#3543

Author: Wim Poorten
Date: Sun, 30 Nov 2003 18:40

13 lines
1389 bytes

Cofke wrote:
> Acces database comprimeren en herstellen.
> Is dit ook mogelijk vanuit Visual basic 6.0?
>
> Greetz
> Cofke

Misschien helpt het als je ziet hoe het gaat in VB.NET:
http://support.microsoft.com/default.aspx?scid=KB;EN-US;306287

-- 

Wim Poorten

Re: Acces database comprimeren en herstellen

#3554

Author: Cofke
Date: Tue, 02 Dec 2003 06:40

17 lines
1374 bytes

"Wim Poorten" <invalid@nohost.com> wrote in news:xQqyb.442$rH3.150894957
@hestia.telenet-ops.be:

> Cofke wrote:
>> Acces database comprimeren en herstellen.
>> Is dit ook mogelijk vanuit Visual basic 6.0?
>>
>> Greetz
>> Cofke
> 
> Misschien helpt het als je ziet hoe het gaat in VB.NET:
> http://support.microsoft.com/default.aspx?scid=KB;EN-US;306287
> 

Bedankt, nu weet de method tog al.
Greetz
Cofke

Re: Acces database comprimeren en herstellen

#3567

Author: Kris De Decker http://www.jerboa...
Date: Thu, 04 Dec 2003 02:37

18 lines
1493 bytes

Cofke,

> Acces database comprimeren en herstellen.
> Is dit ook mogelijk vanuit Visual basic 6.0?
Hier is het artikel met uitleg en sample code:
http://msdn.microsoft.com/archive/default.asp?url=/archive/en-us/dnarvbtips/html/msdn_msdn81.asp
Is geschreven in 1995 maar de functies zijn nog steeds dezelfde:
The RepairDatabase statement can be used to repair a previously
corrupted database file.
The CompactDatabase statement can be used to compress a defragmented
database file.

Sukses,

Kris De Decker
______________
ps: professioneel vastgoedbeheer >>
http://www.jerboa.be/website/nl/fullfill.asp

Re: Acces database comprimeren en herstellen

#3575

Author: 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

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads