Sign in to follow this  
Followers 0
PoojaKrishna

Access database encryption.

3 posts in this topic




Hi friends,

The following code encrypts an Access Db:

_EncryptDB($Source,$Dest)

If FileExists($Source) Then

$adoProvider="Microsoft.Jet.OLEDB.4.0"

If FileExists($Dest) Then FileDelete($Dest)

$obj = ObjCreate("JRO.JetEngine")

If IsObj($obj) Then

$obj.CompactDatabase("Provider = " & $adoProvider & ";"&"Data Source = " & $Source,"Provider = " & $adoProvider &";"& "Data Source = " & $Dest&";"& "Jet OLEDB:Encrypt Database=True")

EndIf

EndIf

EndFunc ;<===>_EncryptDB()

More parameters are listed here: http://msdn.microsoft.com/en-us/library/bb237197.aspx

Regards,

Pooja.

Share this post


Link to post
Share on other sites

Hi friends,

The following code encrypts an Access Db:

_EncryptDB($Source,$Dest)

If FileExists($Source) Then

$adoProvider="Microsoft.Jet.OLEDB.4.0"

If FileExists($Dest) Then FileDelete($Dest)

$obj = ObjCreate("JRO.JetEngine")

If IsObj($obj) Then

$obj.CompactDatabase("Provider = " & $adoProvider & ";"&"Data Source = " & $Source,"Provider = " & $adoProvider &";"& "Data Source = " & $Dest&";"& "Jet OLEDB:Encrypt Database=True")

EndIf

EndIf

EndFunc ;<===>_EncryptDB()

More parameters are listed here: http://msdn.microsoft.com/en-us/library/bb237197.aspx

Regards,

Pooja.

Nice find. Thanks for posting your resolution.

:P


Valuater's AutoIt 1-2-3, Class... Is now in Session!For those who want somebody to write the script for them: RentACoder"Any technology distinguishable from magic is insufficiently advanced." -- Geek's corollary to Clarke's law

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0