Access Access database

[veryjonny]

how does one open a access database using ADODB which is protected with a password.

I know that u use some - conn.properties method - but I dont want to do it that way. any other way perphaps????

Also when I do try to open it then it informs me that the database shd have exclusive permissions

how do I do that??

[AIS_DK]

Exclusive permision means, that no other program can use the database, while your program uses it, so you can't have it opened in ie. Access.

Under the ADODB.Connection object, in the code, where you open the db, add this line of code before you try to open the DB

.Properties("Jet OLEDBatabase Password") = "DATABASEPASSWORD"

Change DATABASEPASSWORD with the DB password.

That should do it.

[AIS_DK]

%&¤#!%&# Smilies

Should have been

.Properties("Jet OLEDB:Database Password") = DATABASEPASSWORD

[veryjonny]

The workgroup information file is missing or open exclusively by another user

The file is not open by any other user!!!!!!

[dongaman]

Access97 or Access2k DB?

[veryjonny]

Access 2k.

[Slaine]

Sounds like the database is protected by User Level Security.

In this case you will also need to put the following in you code before you open the database:

.Properties("Jet OLEDB:System database") = SYSTEMDATABASE
.Properties("User ID") = USERNAME

Replacing SYSTEMDATABASE with the full name and path of the system database (.mdw file) and USERNAME with the name of the user with the correct access rights. You would then replace the DATABASEPASSWORD with this users password.

[veryjonny]

thanks a lot.

But now I am getting "Invalid password error"


So I switched back to the previous code i.e
without this stm :

.Properties("User ID") = USERNAME


Then to I am getting the same error - invalid password.

Now what shd I do?

[Slaine]

If you can send a sample of the code and the database I will have a look at it for you.

Either post it on here or email it to me.

[veryjonny]

I pasting the code here.

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset


Dim mstr As String
mstr = App.Path & "\Library.mdb"
With conn
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & mstr
    conn.Properties("Jet OLEDB:Database Password") = "12345"
End With

The exact error is :

Run Time error -21....

Not a valid password

Then it highlights the .open Line.

[peet]

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\TEST.MDB;Jet OLEDB:Database Password=SecretPass"

[veryjonny]

It works now.

But just for my knowledge can u tell me why didnt work before?

[peet]

did u ever try switching the sequense?
assign password before opening the connection?

try

Dim mstr As String
mstr = App.Path & "\Library.mdb"
With conn
conn.Properties("Jet OLEDBatabase Password") = "12345"  
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & mstr    
End With

[veryjonny]

Yes i did try that, but still gave me error : something - cannot find provider.....

[dongaman]

U may need:
.....................
cnn.Open "Provider=MSDataShape;Data Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\YourDatabase.mdb;Jet OLEDBatabase Password=YourPassword"
.....................