PoojaKrishna Posted March 7, 2009 Posted March 7, 2009 Hi,How to encrypt and decrypt an Access database using Autoit? Some VB examples are: http://support.microsoft.com/kb/104875 http://www.developer.com/lang/other/article.php/724731Please helpPooja.
PoojaKrishna Posted March 10, 2009 Author Posted March 10, 2009 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 EndIfEndFunc ;<===>_EncryptDB()More parameters are listed here: http://msdn.microsoft.com/en-us/library/bb237197.aspxRegards,Pooja.
PsaltyDS Posted March 10, 2009 Posted March 10, 2009 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 EndIfEndFunc ;<===>_EncryptDB()More parameters are listed here: http://msdn.microsoft.com/en-us/library/bb237197.aspxRegards,Pooja.Nice find. Thanks for posting your resolution. 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
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now