Changing MS Access password using OLEDB Connection

[mimpuerto]

Hello!

I really want to know how to change password of an MS Access database through OLEDb. If I have db1.mdb, my connection string would be:

gstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb;Jet OLEDB:Registry Path=;Jet OLEDBatabase Password=;Jet OLEDB:New Database Password=TEST;"

cnn.open gstr
cnn.close


this did not work. though i dont have any error but when i open db1.mdb, it did not apply my database password. Another way of doing it is:

gstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb;Jet OLEDB:Registry Path=;Jet OLEDBatabase Password=;"

cnn.open gstr
cnn.Properties("Jet OLEDB:New Database Password&quot="test"
cnn.close


I got an error message Run-time error '-2147217887 (80040e21)':Read-only property value was not set.

Please help me.

 

[CCLINT]

You need to open the mdb exclusively, first of all, just like when using MS ACCESS and doing the same.
Use JRO (MS JET and Replication Object Library) to compact the mdb, and at the same time, you can change the password.