compress file

[rameez]

Hi everyone actually i wanna compress the access file at run time in vb6.0 so plz help me out

[sashi]

Hi there,

Run a simple search on google, look for "Huffman Encoding". Very useful when it comes to compress/decompress files. Good luck & Take care.

Hi everyone actually i wanna compress the access file at run time in vb6.0 so plz help me out

[Killer42]

Hi everyone actually i wanna compress the access file at run time in vb6.0 so plz help me out

My guess is you actually wanted to do the Access "compact and repair" thing - right?

If so, I'm pretty sure NeoPa posted some info about this in the Access (or possibly VB) forum some months back. I'll try to track it down for you.

[ansumansahu]

Hi everyone actually i wanna compress the access file at run time in vb6.0 so plz help me out

Hi ,

If you want to compact the database look at this piece of code.

---------------------------------------------------------------------------

' PROCEDURE : CompactDB
' DESCRIPTION :
' RETURN VALUE: true or false depending wether there were errors or not
' NOTE :
' Add "Microsoft Jet and Replication Objects 2.x Library" to
' the references of your project
' EXAMPLE :
'---------------------------------------------------------------------------

Public Function CompactDB(pFileName As String) As Boolean
On Error GoTo ErrH
Dim CONN As New JRO.JetEngine
Dim ConnstringSorg As String, ConnstringDest As String

' Ensure file is not read only
SetAttr pFileName, vbNormal
ConnstringSorg = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
pFileName & ";User ID=;Password=;"
ConnstringDest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
App.Path & "\Temp.mdb" & ";Jet OLEDB:Engine Type=5;"

Screen.MousePointer = vbHourglass
CONN.CompactDatabase ConnstringSorg, ConnstringDest
Screen.MousePointer = vbDefault

'Copia il file compattato.
Kill pFileName
FileCopy App.Path & "\Temp.mdb", pFileName
Kill App.Path & "\Temp.mdb"

Set CONN = Nothing
CompactDB = True
Exit Function
ErrH:
Screen.MousePointer = vbDefault
Debug.Print Err.Description
End Function
-----------------------------------------------------------------------------------------

-ansuman sahu