Access and VB

[Chris Huddle]

Does anyone know how to programatically set a password for an Access
Database, preferably in ADO? Thanks! - Chris

 

[Cor Ligthert]

Chris,

Maybe you find it here

Access Automate
http://support.microsoft.com/default.aspx?scid=kb;EN-US;317113#7

I hope this helps a little bit?

Cor

 

[Guest]

Hi Chris,

This code will set a password to a previously unprotected Access database:

Dim cnData As ADODB.Connection
Set cnData = New ADODB.Connection
With cnData
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=c:\mydatabase.mdb"
.Mode = adModeShareExclusive
.Open
End With

cnData.Execute "ALTER DATABASE PASSWORD mynewpassword NULL"

Regards

Gerard O'Donnell

 

[Guest]

Great code..I needed something like that. Next question, how do you open an
Access database that is password protected>

 

[Guest]

Hi Dennis,

To open a password protected Access database you've got to include the
Password in the Properties collection of the ADO connection.

Dim cnData As ADODB.Connection
Set cnData = New ADODB.Connection

With cnData
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=c:\mydatabase.mdb"
.Properties("Jet OLEDBatabase Password") = "existingpassword"
.Mode = adModeShareExclusive
.Open
End With

Regards,

Gerard O'Donnell

 

[Guest]

Thanks. I wasn't sure of the syntax. This will help me a lot in what I'm
working on.